% VAX-11 Librarian V03-00 2_@"!!( 2 // h   sADD_CHARs ADD_COUNTADD_HELPsADD_REPBINARY_CONVERTCALL_DCL CALL_EDIT CALL_SPAWNLCHCH1~HCHECK? CHECK_FILE<CLEAN_UP CLEAR_SCREENCLR_SCOMSCANCONVERTKDCONVERT4DELETE3DISABLE_CTRL_CsDMPKEYsDMPSTA6bDOEDIT DO_CONVERTL DO_DELETEDO_DUMP[DO_FLAGs DO_REPEATL DO_REPLACE DO_SEARCHPDUMP DUMP_ALL_DEFs DUMP_CHARINB BINARY_CONVERT~HCHECK? CHECK_FILE<CLEAN_UP3CONTROLCCONVERTKDCONVERT4DELETE6bDOEDIT[DO_FLAGPDUMPCEDITL EDITPARSEi EXIT_EDITORkFDMP FDMPPARSE FILE_CONVERTeFORGET_COMMANDU GET_BIGRECORD^GET_DEFz GET_RECORDnHANDLER INTEGER_GETp KEEP_RECORDrMATCHCf OPEN_FILEaOUT_DEF=OUT_FILEs PARSE_STRING PUT_RECORDc REMOVE_MACROy,REPLACEs GIVE_ERRORnHANDLER HELP_DESCR INTEGER_GETp KEEP_RECORDrMATCHCOFFITONITf OPEN_FILEaOUT_DEF=OUT_FILEs PARSE_STRING PUT_RECORDQUITREAD_IT REMOVE_ALL REMOVE_MACc REMOVE_MACROy,REPLACE REPLACE_BYTESSAVE1 SAVE1_DEFSAVE2SAVE_DEF SAVE_NAMEQSEARCHE SEARCH_FORX SHOW_CURRENT_SHOW_DEFY SHOW_FLAGSSPECIALAT:2 UP_STRINGI DUMP_CHAR EXIT_EDITORGET_SUBSPECIALVIEWINGkFDMP FETCHA_MACRO FETCH_DEF FETCH_MACRO FILE_CONVERTFILE_ITFISHKEYFISHSTAeFORGET_COMMANDU GET_BIGRECORDGET_COM^GET_DEFGET_HELPz GET_RECORDGET_SERLGET_SUB{s DUPL_CHARsDUPL_REPCEDITLEDITKEYLEDITSCANLEDITSTA3 ENABLE_CTRL_Ci EXIT_EDITORO FDMP$MAIN  STARTBYTE STD_RFA_GETSTD_RFA_USEROPEN STD_SEQ_GET STD_SEQ_PUTSTD_SEQ_USEROPENSTD_SWAP_BYTESSTD_SWAP_WORDS STORE_DEFA STORE_MACROs STORE_REPEATX STRIP_DUPLUPDATE:2 UP_STRINGVIEW  REPLACE_BYTESQSEARCHE SEARCH_FORX SHOW_CURRENT_SHOW_DEFY SHOW_FLAGSSPECIAL STARTBYTESTDIMBSTD_RMSA STORE_MACROX STRIP_DUPLUPDATE:2 UP_STRINGVIEWREPLACE VIEWTRING  !"#$%&'()*+,-./01241@C.2_023CONTROLC0210-NOV-1982 14:17 VAX-11 Macro V03-00 CONTROLC): generalized CTRL-C interrupt handlerY LIB$SIGNAL SYS$ASSIGN SYS$DASSGN SYS$GETCHNSYS$QIOW SYS$TRNLOG . ABS . . BLANK .P$ABS$ PP ABSCONTROLC"PSYS$COMMANDQ Q    ENABLE_CTRL_C&ЬSЬO^^RQP}P?b 5b?b SYS$TRNLOGP P LIB$SIGNAL둢b|~?cb SYS$ASSIGNP P LIB$SIGNAL\|~^R^~~~? DOEDITP013CLEAN_UP0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23CLEAN_UPPfdmpwork1fdmpwork2P   FOR$OPEN@    4 FOR$OPEN@ OCLEAN_UPXPH[FOR$OPENP$ FOR$CLOSE8FOR$OPENPT FOR$CLOSEЫP\ HCLEAN_UPFOR$OPEN FOR$CLOSE4$CODE$>1 >013OUT_FILE0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23OUT_FILEP Current file is:@\P?PP\ "ddlQ OUT_FILEEPHX[FOR$OPENP@ FOR$INQUIREP FOR$CLOSEX LIB$INDEXPk~ FOR$WRITE_SFkdhd FOR$IO_T_DS FOR$IO_ENDP@XP HOUT_FILEFOR$OPEN FOR$INQUIRE FOR$CLOSE LIB$INDEXh$CODE$PDATA$LOCAL?FILES FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFP^PF hww[DO_FLAG$DO_FLAG8DO_FLAGLDO_FLAG`DO_FLAGtDO_FLAGˈDO_FLAG˜DO_FLAGPEk H SHOW_FLAGSDO_FLAGO$CODE$PDATA$LOCAL$FLAGSRFLAG@1@&>015 CHECK_FILE0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23 CHECK_FILE`P Unable to open file: )P?  CHECK_FILEPH[\Ԭ FOR$OPENP4 FOR$CLOSEѬ($Ԭ$P~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END Ԭ$P H CHECK_FILEFOR$OPEN FOR$CLOSEe$CODE$PDATAP$LOCAL?FILES,FLAGS FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFP+P1P-!eOww FOR$WRITE_SFP^PF hww[DO_FLAG$DO_FLAG8DO_FLAGLDO_FLAG`DO_FLAGtDO_FLAGˈDO_FLAG˜DO_FLAGPk H SHOW_FLAGSDO_FLAGO$CODE$PDATA$LOCAL$FLAGSRFLAGB1`>01I6 STORE_MACRO0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23 STORE_MACRONP Invalid macro definition $ Too many macros defined -- ignored  STORE_MACROPPP)PPPPyP`P1P+-P21P.cPSPPPP,PPPP P- PDPKP hP):ww1}2_01/EDIT0120-Jun-1983 09:4120-Jun E-1983 09:41VAX-11 FORTRAN V3.1-23 EDITP EDITPL[мZмѫZDUMP  ѫ Ы P@@ DOEDITZ LEDITDUMPDOEDITn$CODE$PDATA$$LOCAL$FLAGSEDITORBUFEFLAGSPU&P.P=PfP'nww12_0F1R01 5 SEARCH_FOR0113-Sep-1983 16:3413-Sep-1983 16:34VAX-11 FORTRAN V3.1-23 SEARCH_FORP hit eof while searching  Error free virtual memory in search Aborted by CNTL C match in rec # byte pos  *** no matches found8P$$, 4 SPECIALG@ SPECIAL@ Q SEARCH_FORPN[м XЬ@ޫix LIB$FREE_VMPP#~ FOR$WRITE_SF FOR$IO_ENDԩԩ  FOR$REWIND~ FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SF FOR$IO_END~ FOR$WRIITE_SL FOR$IO_T_DS FOR$IO_END FOR$REWINDu N SEARCH_FORRMS$_EOF GET_RECORD LIB$FREE_VMSTD_SWAP_BYTESMATCHCSPECIAL$CODE$PDATA$LOCAL,FLAGS TOO_LARGERFLAGBUF CONTROL_C FOR$REWIND FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_SLFOR$INI_DES1_R2J033 EDITPARSE013-SEP-1983 15:39 VAX-11 Macro V03-00d EDITPARSEo-- tparse stuffuADD_HELPDELETE EDITKEY EDITSTAGET_HELP HELP_DESCRLIB$PUT_OUTPUT LIB$TPARSEREPLACEVIEW . ABS . . BLANK ._P$ABS$P SUB PQ $ZAPPQQQ@EFLAGS\PN 3Ambiguous command -- reenterQ&Q"< _LIB$STATE$P$ _LIB$KEY0$Pq _LIB$KEY1$P@PPP@PPPPABORTP4&@PPPq44PDELETEP4&@P P PL44& PEXITP 4&@PPPq44PHELPP4&@PPP<44&PQUITP4&@P P Pq"44PREPLACE P4&@P,P,P.44O&$PSUBSTITUTE P$4&@P0P0P244&/PVIEWP/4&@P4P4PVIEW6444P@P44@PDPDPGET_HELPF44@PLPLP@PLPLP/XN44&@PPPPPUR44lV44&@PXPXP5PCONFIRMP54&@PXPXPqZ44@PdPdPUf44lj44&=P@PlPlP@PlPlP n44@PtPtP:@PxPxPUz44@PPP@PPP@PPP@PPP/44&@PPPU4444&@PPP>PASCIIP>4&@PPP  444444&DPOCTALPD4&@PPP  444444&JPLONGPJ4&@PPP  444444&OPWORDPO4&@PPP  444444&1@"!01/DUMP01 3-Oct-1983 12:34 3-Oct-1983 12:348VAX-11 FORTRAN V3.1-23 DUMPPdump.out Are you trying to be funny???$ No macro definition to use for dump Error parsing macro definition:)@^ Output will be in file DUMP.OUT$ Wrong terminal type for full screenRecord # Entries Contents--- record # is  bytes long. dump of @R1`XN01e1SEARCH0113-Sep-1983 16:0713-Sep-1983 16:07VAX-11 FORTRAN V3.1-23 SEARCHPunable to open file for searching Invalid search string Invalid record rangeLP 5? TSTD_RFA_USEROPEN )D-LTSTD_RFA_USEROPENDL @ 4H4@L@L  @LL @L @!Q SEARCHP L@[ռ!~ FOR$WRITE_SF FOR$IO_ENDѼ<~ FOR$WRITE_SF FOR$IO_ENDkFOR$OPENP1L FOR$INQUITԫ $ԫ޼<> @8 STD_SEQ_GETPRMS$_EOFQPQ1PмTPLIB$STOP֫ѫZJJZZ2PЫVVPYYЫ XYXPPXYZ4WZYXZPVZQA@gYZZYXX YY$X LIB$GET_VMP LIB$_INSVIRMEMQPQ~ FOR$WRITE_SF FOR$IO_ENDl޼t޼x޼|d GET_BIGRECORDռ$ 1N O GET_RECORD STD_SEQ_GETRMS$_EOFLIB$_INSVIRMEMLIB$STOP LIB$GET_VM GET_BIGRECORD$CODE>$PDATA$LOCAL,FLAGS TOO_LARGETEMP FOR$IO_END FOR$WRITE_SFl,P3P8P`PdP zPPPPP  PPkPO/PkPrPH<wwL P 3*** Spawn failed -- unable to execute commandQ-&Q3 93You expect me to read your mindV1<+ҋ01c8 GET_BIGRECORD01 5-Aug-1983 01:09 5-Aug-1983 01:09VAX-11 FORTRAN V3.1-23 GET_BIGRECORD P QpL GET_BIGRECORDpPO[Ь ,м TЬ<ޫ8PFOR$INI_DES1_R2VЫ W$WW޼\>lX STD_RFA_GETPPмtpLIB$STOP2PWPYZZYHXVZPWZQA@hYZW ZWYVVYY޼|x STD_SEQ_GETPRMS$_EOFQPQPмtpLIB$STOP2PЫ WWPYZZYHXZPWZQA@hYZZYYY$1t O GET_BIGRECORDRMS$_EOF STD_RFA_GETLIB$STOP STD_SEQ_GET3$CODE$PDATA$LOCAL,FLAGSTEMPFOR$INI_DES1_R2P1P8P44& JPPRINT P J 4& P @P @P   B44& PPQUIT P P 4& P DP DP  F44 UPREAD P U 4& P JP JP  L44& ZPREMOVE P Z 4& P NP NP  P44& aPREVE1 >017 SHOW_CURRENT0113-Sep-1983 14:1613-Sep-1983 14:16-VAX-11 FORTRAN V3.1-23 SHOW_CURRENT|P No current macro definition Current macro definition is ) P Q  SHOW_CURRENTPH[ LIB$INDEXPk~ FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SFk $  FOR$IO_T_DS FOR$IO_ENDP H SHOW_CURRENTZ1`>015 SHOW_FLAGS0113-Sep-1983 14:1613-Sep-1983 14:162VAX-11 FORTRAN V3.1-23 SHOW_FLAGS4PByte reversal on input isDisplay of record contents isPrinting of record contents isDisplay of record lengths isFull-screen dump is Currently reading commands from file?Echo of commands read in from file?Writing commands to log file? P  DO_FLAG@  DO_FLAG@848 DO_FLAG@WHW DO_FLAG@t\t DO_FLAG@ %p DO_FLAG@# DO_FLAG@ DO_FLAG@ SHOW_FLAGSPH[DO_FLAG$DO_FLAG8DO_FLAGLDO_FLAG`DO_FLAGtDO_FLAGˈDO_FLAG˜DO_FLAGP k H SHOW_FLAGSDO_FLAGO$CODE$PDATA$LOCAL,FLAGSRFLAG \1@>0142DO_FLAG0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23DO_FLAGW"P))PDO_FLAGP44 P DP DP_ $ F44 P LP LP CHECK_FILE N44 P TP TP 1h'>0142GET_DEF0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23GET_DEF GET_DEF^P013SHOW_DEF0113-Sep-1983 14:1613-Sep-1983 14:16:VAX-11 FORTRAN V3.1-23SHOW_DEFAP No macros definedName  DefinitionPfSHOW_DEFP L['~ FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SF FOR$IO_END'ZkkZOUT_DEFŏkP)@OUT_DEFZk LSHOW_DEFOUT_DEF$CODE.$PDATA $LOCALMINE'MACROS FOR$IO_END FOR$WRITE_SF%P,PRP2VP `P xP)ww  44 x 44& P P P P PASCII `P  4& P P P0  44  44 l 44& POCTAL bP  4& P P P1  44  44 l 44& PLONG dP  4& P P P2  44  44 l 44&b1`18>012OUT_DEF0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23OUT_DEFUP@@@PQ OUT_DEF PL[ŏZJ LIB$INDEXPkkkkkPPPPJ LIB$INDEXPѫ~ FOR$WRITE_SFk(J,( FOR$IO_T_DS0J40 FOR$IO_T_DS FOR$IO_END@P@P@ P LOUT_DEF LIB$INDEX$CODE$PDATA<$LOCAL'MACROS FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFr.P PP+P3P_P ww['~ FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SF FOR$IO_END'ZkkZOUT_DEFŏkP)@OUT_DEFZk LSHOW_DEFOUT_DEF$CODE.d1?>017 REMOVE_MACRO0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23 REMOVE_MACROP No macros defined REMOVE_MACROP019FORGET_COMMAND0113-Sep-1983 14:1613-Sep-1983 14:16'VAX-11 FORTRAN V3.1-23FORGET_COMMANDFORGET_COMMANDP@] @FORGET_COMMAND $CODE$PDATA$LOCAL CONTROL_C ww&8(Ь > >GET_DEFP< < FETCH_DEF&K(Ь >   >SHOW_DEFP< g1"R>01 4 OPEN_FILE0113-Sep-1983 14:1613-Sep-1983 14:16VAX-11 FORTRAN V3.1-23 OPEN_FILEEaP Error opening:) for reading  P?   OPEN_FILE|PH[FOR$OPENPЫP~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDЫP H OPEN_FILEFOR$OPENP$CODE($PDATA8$LOCAL?READING,FLAGS FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFDP W#Paww#0$wwP P< < DO_SEARCH&    Џ?B         SEARCHP< k<GET_SER&5 R Rb < <GET_COM&6  R JFORGET_COMMAND OPEN_FILE$D RANDELL EXIT_EDITOR>@SJ RANDELL EDITPARSE FDMPPARSESEARCH SEARCH_FOR"aYK RANDELL FDMPPARSE# K RANDELL SEARCH_FOR"Z$L RANDELL FDMPPARSEfM RANDELL SEARCH* :YN RANDELL SEARCH SEARCH_FOR#?N RANDELL SEARCH_FOR# ZO RANDELL SEARCH_FOR# O RANDELL SEARCH_FOR#Q RANDELL SEARCH_FOR#nR RANDELLj1`D016 EXIT_EDITOR0113-Sep-1983 14:5913-Sep-1983 14:59VAX-11 FORTRAN V3.1-23 EXIT_EDITORPfdmpwork1fdmpwork2unable to get output file name No changes made  Created: ) record(s)P     SOR$PASS_FILES@ SOR$PASS_FILES@"-)STD_SEQ_USEROPEN"Q Q;Q_ EXIT_EDITORP01 /FDMP0120-Jun-1983 11:5120-Jun-1983 11:51PVAX-11 FORTRAN V3.1-23 FDMP9PFDMP.LOG) Read in: @ Error with command line:)@^) Error in opening log file $PFORGET_COMMAND$,\ p FOR$OPEN@Q\Qfdmp>I FDMPTPL[m, ENABLE_CTRL_C'Z8 LIB$GET_INPUT~  FOR$READ_SF߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDիH UP_STRINGի PP\ P\PPTLX\COMSCANPLIB$_SYNTAXERRQPQ ~ FOR$WRITE_SF PP\ P\PPTLXT FOR$IO_T_DS FOR$IO_ENDpFOR$OPENPJ FOR$WRITE_SF PP\ P\PPTLXT FOR$IO_T_DS FOR$IO_END1˔ FOR$CLOSE1L~ FOR$WRITE_SF FOR$IO_END1m@P@ PPM LFDMPLIB$_SYNTAXERRFORGET_COMMAND ENABLE_CTRL_C LIB$GET_INPUT UP_STRINGCOMSCANFOR$OPEN FOR$CLOSE$CODEl$PDATA$LOCAL'MACROS CONTROL_C$FLAGSFOR$INIT_UNDER FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SFDHP oRMS$_EOF STD_RFA_GETLIB$STOP STD_SEQ_GETJ$CODE$PDATA$LOCALTEMPFOR$INI_DES1_R2C1P5PQP nP-PzP P-7P @PDP6* Jww173_01HANDLER0 2-JUN-1983 12:51 VAX-11 Macro V03-00 HANDLER LIB$PUT_OUTPUT . ABS . . BLANK .P p$ABS$P$DATAP3There was an invalid floating point number in theQ1&Q7=3record below. The value was set to zero. You shouldQ5&Q;z3examine the record in hex to see the value in error.Q4&Q:3 Q&Qi$CODEP HANDLER&ЬRЬSѢTMLIB$PUT_OUTPUTLIB$PUT_OUTPUT9LIB$PUT_OUTPUTvLIB$PUT_OUTPUT qLIB$PUT_OUTPUTP PЏ P$HANDLERHANDLER> . BLANK .$DATA$CODEiww1`N3_016 KEEP_RECORD01 1-Jun-1983 13:54 1-Jun-1983 13:54VAX-11 FORTRAN V3.1-23 KEEP_RECORDPfdmpwork1unable to open journal file Too many edits made to record  Changes made this edit ignoredP  r, FOR$OPEN@  KEEP_RECORDHPH[м $Ь ޫPFOR$INI_DES1_R20FOR$OPENP1  P@%~ FOR$WRITE_SF߼ FOR$IO_L_R FOR$IO_END P@ PP@  FOR$WRITE_SU߼ FOR$IO_L_R? FOR$IO_W_R FOR$IO_X_DA FOR$IO_END߫PFOR$STOP H KEEP_RECORDFOR$OPEN$CODEl$PDATA\$LOCALRECORDsCALLSEFLAGSFOR$STOP FOR$IO_END FOR$IO_W_R FOR$IO_L_R FOR$IO_X_DA FOR$WRITE_SF FOR$WRITE_SUFOR$INI_DES1_R2#P0POP"1%ww1 d3_00MATCHC0 2-JUN-1983 15:57 VAX-11 Macro V03-00MATCHC  . ABS . . BLANK .P MATCHC&ЬUмVV[Ь WмXYTVЏ[UY tZ9Xg[jPìSTXTTT>V5T1YYZVZ Џ[VZZ[ЏT" MATCHC MATCHC . BLANK .ww1 3_06 PARSE_STRING0 2-JUN-1983 17:03 VAX-11 Macro V03-00 PARSESTR&-- parse the macro definition stringq DMPKEY DMPSTALIB$PUT_OUTPUT LIB$TPARSE STR$DUPL_CHARSTR$TRIM SYS$GETMSG . ABS . . BLANuK .P$ABS$PSPECIAL PQ$LOCALUPQ QQQQ%Q-QQ` _LIB$STATE$P _LIB$KEY0$P _LIB$KEY1$P1PPP1PPP1PPPG441PPP, 441PPP^4444&1PPP1PPP^441P P P|"4v41P(P(P(v*440.44&1P0P0P1P0P0P1P4P4P^644L:44&1P441PDPDP)F441pPLPLP1PLPLP1PPPPP^R441PXPZ441P 1 PARSE_STRING&Tԯ$^nR$b~P2`ް b LIB$TPARSEТ< v< STORE_REPEAT&wP< <ADD_REP&UUe֯P< <DUPL_REP&eYo STR$DUPL_CHARP PPSUVU(+Je@P< < DO_REPEAT&9UU("eP< ,<ADD_CHAR&UUe< G< DUMP_CHAR&UUeP< ^< ADD_COUNT& 0R RP< |< DUPL_CHAR&lx STR$DUPL_CHARP PPUeU(RieFM;P  GIVE_ERROR&]$?ݬ SYS$GETMSGSTR$TRIMLIB$PUT_OUTPUTP PARSE_STRING,ADD_CHAR^ ADD_COUNTADD_REP DO_REPEATG DUMP_CHAR| DUPL_CHARDUPL_REP GIVE_ERROR1 PARSE_STRINGv STORE_REPEAT . BLANK .SPECIALy$LOCAL _LIB$STATE$` _LIB$KEY0$ _LIB$KEY1$ww143_015 PUT_RECORD01 6-Dec-1982 14:54 6-Dec-1982 14:54VAX-11 FORTRAN V3.1-23 PUT_RECORDYB?Op+DISK$STD002:[RANDELL.DATA.FDMP]PUTREC.FOR;3 .P PUT_RECORDkPH[м$Ь ޫPFOR$INI_DES1_R2ݼ FOR$WRITE_SU FOR$IzO_X_SE FOR$IO_END# H PUT_RECORDK UNIT BUFFER  SIZE LENGTH FIXED_LENGTHq9$CODE$PDATA($LOCAL FOR$IO_END FOR$IO_X_SE FOR$WRITE_SUFOR$INI_DES1_R2 9ww1%3_012REPLACE01 1-Jun-1983 11:32 1-Jun-1983 11:32VAX-11 FORTRAN V3.1-23REPLACEP  Invalid replacementHP8<{X4D84X8X 8 XX 8X 8` SPECIAL@QREPLACEPO8[ռ~ FOR$WRITE_SF FOR$IO_END޼ STARTBYTEkWѼЫVѼ |мXYYX YYPPZ YPZPJfQYWP PPQ@XYYѼ  PPZ PZPP Jf$( OTS$CVT_TO_LP <CHECKի ޼H޼L P@ثPD REPLACE_BYTESѼ ԫ PPZ PZPP Jf$\ OTS$CVT_TI_LP <CHECKի ޼t޼x P@ث|p REPLACE_BYTESѼ ԫ PPZ PZPP Jf$ˈ OTS$CVT_TI_LP <CHECKի ޼ˠ޼ˤ P@˨˜ REPLACE_BYTESѼ ԫ PPZ PZ}PP Jf$˴ OTS$CVT_TI_LP <CHECKի ޼ˠ޼ˤ P@˨˜ REPLACE_BYTESѼ ԫ PPZ PZPP Jf$ OTS$CVT_T_FP <CHECKի ޼޼ P@ REPLACE_BYTESѼ | PPZ PZPP Jf$ OTS$CVT_T_DP <CHECKի ޼޼ P@ REPLACE_BYTESѼ ԫ PPZ tPZPP Jf$\ OTS$CVT_TZ_LP <CHECKի ޼t޼x P@ث|p REPLACE_BYTES0~SPECIAL  OREPLACE STARTBYTE OTS$CVT_TO_LCHECK REPLACE_BYTES OTS$CVT_TI_L OTS$CVT_T_F OTS$CVT_T_D OTS$CVT_TZ_LSPECIAL$CODE$PDATA$LOCALBUFSUB FOR$IO_END FOR$WRITE_SF P7P?PQPH]P8PaPPaFPmPfPPfPEPfPPfPPa]P ww1`3_010CHECK01 1-Jun-1983 11:32 1-Jun-1983 11:32VAX-11 FORTRAN V3.1-23 CHECK]P& Input conversion error for data type % Unknown error in coversion, code is  CHECKP@OTS$_INPCONERRPѼP~ FOR$WRITE_SF FOR$IO_END SS$_NORMALPѼP+~ FOR$WRITE_SF߼ FOR$IO_L_R FOR$IO_END  @CHECKOTS$_INPCONERR SS$_NORMAL_$CODEW$PDATA$LOCAL FOR$IO_END FOR$IO_L_R FOR$WRITE_SF P7P&!_ww13_018 REPLACE_BYTES01 1-Jun-1983 11:32 1-Jun-1983 11:32VAX-11 FORTRAN V3.1-23 REPLACE_BYTES.P REPLACE_BYTESPO[м 4ЬޫPFOR$INI_DES1_R2üPPT TUVVT(Wм XZZXUYZYP PP ZZJg@XZ UTVZ TkUVr O REPLACE_BYTES$CODE$PDATA8$LOCALBUFFOR$INI_DES1_R2(P5PFEP*ww1`#3_2-0015STD_RMS2-001 1-JUN-1983 17:09 VAX-11 Macro V03-00RMS*- Routines to allow FORTRAN program to uE SYS$CONNECT SYS$CREATESYS$GETSYS$OPENSYS$PUT . ABS . . BLANK .P$ABS$ PP _STD_DATAP _STD_CODEP STD_SEQ_USEROPEN&kЬPʏ ߼SYS$OPEN ߼ SYS$CREATEP߼ SYS$CONNECTP м RЬB GSTD_RFA_USEROPEN&ЬPʏ@ W STD_SEQ_PUT&D<RBR޼ ("RSYS$PUTl ЬQТa  STD_SEQ_GET&I<RBR޼ $ RSYS$GET谢"l ЬQТa  STD_RFA_GET&B<RBRЬQ޼ $ aRSYS$GET"STD_RMS STD_RFA_GETGSTD_RFA_USEROPEN STD_SEQ_GETW STD_SEQ_PUTSTD_SEQ_USEROPENF . BLANK . _STD_DATA _STD_CODEww1 4_011SEARCH01 2-Jun-1983 15:02 2-Jun-1983 15:02VAX-11 FORTRAN V3.1-23 SEARCHPunable to open file for searching Invalid search st record # size (bytes) =  record entries&contents Error freeing virtual memory DP PYP? lSTD_RFA_USEROPEN )-L"TTdlSTD_RFA_USEROPENL DdH0d FOR$OPEN@\\\ \ , <<4T 4T Q QQQQS DUMPP03 FDMPPARSE020-SEP-1983 15:35 DVAX-11 Macro V03-00 FDMPPARSEO-- tparse stuffR| CHECK_FILECLEAN_UPDUMPEDIT EXIT_EDITOR FILE_CONVERT FISHKEY FISHSTAGET_DEF  HELP_DESCRLBR$OUTPUT_HELP LIB$GET_INPUTLIB$PUT_OUTPUT LIB$SPAWN LIB$TPARSE OPEN_FILEOUT_FILE REMOVE_MACROSCR$ERASE_PAGESEARCH SHOW_CURRENTSHOW_DEF SHOW_FLAGS STORE_MACROSYS$EXIT . ABS .N . BLANK .OP$ABS$TPMINEPQQO SERO PQRFLAGI P,FLAGS$2P?FILES PQ??READING PQ?$LOCAL P 3*** Spawn failed -- unable to execute commandQ-&Q3 93You expect me to read your mind??? Give me a co 1/MMM016 INTEGER_GET0120-Sep-1983 00:4220-Sep-1983 00:42VAX-11 FORTRAN V3.1-23 INTEGER_GETP  INTEGER_GETPO[ЬԼм VZЫWZVXZ WWP@hYˏYJVZYм YZZYZ WWPJQ|UP aUyPUUUPPJYZWм YZZYJYZZkN O INTEGER_GET$CODE$PDATA0$LOCAL&P$VP(P ww@@P8 9ZE    &= >HANDLERHt`t@t`X 1 WMM012CONVERT0120-Sep-1983 00:4220-Sep-1983 00:42VAX-11 FORTRAN V3.1-23CONVERT+PCONVERT3PH[}PQPk޼  FOR$CVT_D_TEW HCONVERT FOR$CVT_D_TE"$CODE$PDATA$$LOCAL "ww!8!5Q!%D!UL!UW!UBQ|XAOLWBFDHTZUQmmandQ4&Q: u3command>Q&Q QQQQQQQ Q?Q?Q Z3Ambiguous command -- reenterQ&Q"QQQQ  PLIB$PUT_OUTPUTP ~3SYS$HELP:FDMPHELP.HLBQ&Q! LIB$GET_INPUT 3Error in HELP processing -- see KenQ#&Q) _LIB$STATE$R P _LIB$KEY0$ Pw _LIB$KEY1$ P P P P P P P PCLEAR P  4& P P P r 44 PCONVERT P  4& P P P  44& PDCL P  4& P P P v 44 PDEFINE P  4& P P P j 44& PDISPLAY P  4& P P P  44& !PDO P ! 4& P P P  44& $PDUMP P $ 4& P P P  "44& )PECHO P ) 4& P $P $P N &Z44& .PEDIT P . 4& P (P (P  *44& 3PEXIT P 3 4& P ,P ,P EXIT_EDITOR .44 8PFULLSCR P 8 4& P 4P 4P  4 644& @PHELP P @ 4& P 8P 8P   :44& EPLOGGING P E 4& P 44& MPOPEN P M 4& P @P @P  / B44  F44& RPPRINT P R 4& P HP HP  J44& XPQUIT P X 4& P LP LP  N44 ]PREAD P ] 4& P RP RP  T44& bPREMOVE "P b 4& P VP VP  X44& iPREVERSE $P i 4& P ZP ZP  \44& qPSEARCH &P q 4& P ^P ^P  `44& xPSHOW (P x 4& P bP bP l d44& }PSUMMARY *P } 4& P fP fP  h44& P P jP jP PMACRO ,P  4& P jP jP n l44& P P nP nP P nP nP  p44 v t44& P vP vP P vP vP  x44 P ~P ~P, P P P( ~ 44 P P P) ~ 44 P P P  44 P P P P P P  44 P P P 5 44 P P P P P P  44 P P P:  44& PUSING .P  4& P P P  44& P P P  44 P P P P P P P  44 PUSING 0P  4& P P P  44& P P P  44 P P P P P P P  44 P P P  44 P P P POFF 2P  4& P P P   44 PON 4P  4& P P P   44 P P P P POFF 6P  4& P P P   44 PON 8P  4& P P P   44 P P P P POFF :P  4& P P P   !44 PON P  4& P 4P 4P   ;44 PON @P  4& P AP AP    H44 P P NP NP POFF BP  4& P NP NP!   U44 PON DP  4& P [P [P"   b44 P P hP hP POFF FP  4& P hP hP#   o44 PON HP  4& P uP uP$   |44 P P P P POFF JP  4& P P P%   44 PON LP  4& P P P&   44 P P P P P P P  44 P P P  44 P P P:  44 P P P,  44 P P P[  44 P P P]  44 P P P;  44 P P P.  44 P P P-  44 P P P$  44 P P P_  44 P P P OPEN_FILE 44 P P P P P P/ ` 44& P P P 6 44 P P P. 6 44 P P P: 6 44 P P P, 6 44 P P P[ 6 "44 P (P (P] 6 *44 P 0P 0P; 6 244 P 8P 8P. 6 :44 P @P @P- 6 B44 P HP HP$ 6 J44 P PP PP_ 6 R44 P XP XP CHECK_FILE Z44 P `P `P PVARIABLE NP  4& P `P `P'u( b44 P P lP lP PALL PP  4& P lP lP(  n44 PCURRENT RP  4& P tP tP) SHOW_CURRENT v44 PFILE TP  4& P |P |P*OUT_FILE ~44 PFLAGS VP  4& P P P+ SHOW_FLAGS 44 PMACRO XP  4& P P P,  44& P P P P P P P  44 P P P P P P PALL ZP  4& P P P- R 44 PMACRO \P  4& P P P.  44& P P P P P P P ! 44 P P P P P P P P PQ  44 P P P:  44& PUSING ^P  4& P P P/  44& P P P  44 P P P P:57VAX-11 FORTRAN V3.1-23BINARY_CONVERT2P  Q BINARY_CONVERTjPPkPPPPPP  PUSING `P  4& P P P0  44& P P P  44 P P P: P P PU  44 P P P P P P P  44 P P P  44 P P P P P P/  44& PFOR bP  4& P P P1  44& P P PU  44  44& P P P P PCOMPLETE dP  4& P P P2q  44 "PASCII fP " 4& P P P3  44  44  44& (PBYTE hP ( 4& P P P4  "44  &44  .44& -PDOUBLE jP - 4& P 0P 0P5  244  644  >44& 4PFLOAT lP 4 4& P @P @P6  B44  F44  N44& :PHEX nP : 4& P PP PP7  R44  V44  ^44& >PLONG pP > 4& P `P `P8  b41017 FILE_CONVERT0120-Sep-1983 15:5620-Sep-1983 15:56AVAX-11 FORTRAN V3.1-23 FILE_CONVERTP is an invalid record length].truncated record lostbyteserror writing recordunable to open file for conversion Error free virtual memory in convert Created: ) record(s)LP    ? dSTD_RFA_USEROPEN )(-LdSTD_RFA_USEROPEN(L "d$d(&<DdSTD_RFA_USEROPENT(\ @<$(9> $C @$"ddl"WQQ  FILE_CONVERTPPMP^PbyP P2PPPPPPWPP(P(`PPPWPPP(#PFOR$INI_DES1_R2 %PEEMwwDEF REMOVE_MACROFORGET_COMMAND OPEN_FILEY+ҋ RANDELL DUMP FDMPPARSE GET_RECORD GET_BIGRECORDVIEW SHOW_CURRENT SHOW_FLAGSDO_FLAGCLEAN_UPOUT_FILE CHECK_FILE STORE_MACROGET_DEFSHOW_DEFOUT_DEF REMOVE_MACROFORGET_COMMAND OPEN_FILE'Ji> RANDELL FDMP FDMPPARSEI[> RANDELL VIEW SHOW_CURRENT SHOW_FLAGSDO_FLAGCLEAN_UPOUT_FILE CHECK_FILE STORE_MACROGET_DEFSHOW_DEFOUT_DEF REMOVE_MACRO1 +ҋ01E/DUMP01 5-Aug-1983 01:01 5-Aug-1983 01:01VAX-11 FORTRAN V3.1-23 DUMPB?$ҋ +SYS$SYSDEVICE:[RANDELL.DATA.FDMP]DUMP.FOR;3 %C@t!ҋb,SYS$SYSDEVICE:[RANDELL.DATA.FDMP]FLAGS.INC;4 B?$ҋ +SYS$SYSDEVICE:[RANDELL.DATA.FDMP]DUMP.FOR;3& uPdump.out Are you trying to be funny???$ No macro definition to use for 1>01t/VIEW0113-Sep-1983 14:1613-Sep-1983 14:16EVAX-11 FORTRAN V3.1-23 VIEWHP P SPECIAL@ VIEWU!PH[SPECIALPSU HVIEWSPECIAL$CODE$PDATA$$LOCALBUFR wwS STORE_MACROSYS$EXITs . ABS . . BLANK .P$ABS$Po!ww P P P P P  44 P P P  44 P P P P P P/  44& PFOR bP  4& P P P1  44& P P PU  44  44& P P P P PCOMPLETE dP  4& P P P2q  44 "PASCII fP " 4&1 MM012SPECIAL0120-Sep-1983 00:4220-Sep-1983 00:42VAX-11 FORTRAN V3.1-23SPECIALP# Illegal character following U or Z! format code (must be L, W, or B) Aborted by CNTL C-@@P8 9ZE    &= >HANDLERHt`t@t`X(t`t``X0thth`X8tptptP` txQQf!AFQ!3Q!SL!SW!SB!XLQ!8!5Q!%D!UL!UW!UBQ|XAOLWBFDHTZUQSPECIALPOL[}PQˀP|мxЬ`ޫ\PFOR$INI_DES1_R2D LIB$ESTABLISHL LIB$INDEXP,n Zԫԫ ԫԫ  м hXSYS$FAOP$PЫ$plLIB$STOPZ(PZP,( PJ :,@,0Ы04ԫ8Ы<ѫ<1Q&Q QQQQ Q?OwwQ N3Ambiguous command -- reenterQ&Q"QQQQ  PLIB$PUT_OUTPUTP 3SYS$HuELP:FDMPHELP.HLBQ&Q! LIB$GET_INPUT 3Error in HELP processing -- see KenQ#&Q) _LIB$STATE$ Pv _LIB$KEY0$ PH _LIB$KEY1$ P P P P P P P PCLEAR P  4& P P P ` 44 PDCL P  PLˈ FOR$INQUIRE˘ FOR$INQUIRE- gkk˨ FOR$INQUIRE˸ LIB$INDEXPFOR$STOP,n n$,l ЏLISTjЏNONEjFOR$OPENUPDATE FOR$INQUIRE$ LIB$INDEXP H~ FOR$WRITE_SF 0n40 FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_ENDCLEAN_UP 8 FOR$CLOSEPgPFIXEDVARIABLED ww1U+ҋ03 FDMPPARSE0 5-AUG-1983 00:34 P POFF @P  4& P FP FP    M44 PON BP  4& P SP SP!   Z44 P P `P `P POFF DP  4& P `P `P"   g44 PON FP  4& P mP mP#   t44 P P zP zP POFF HP  4& P zP zP$   44 PON JP  4& P P P%   44 P P P P P P P q 44 P P_C FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SF FOR$ENCODE_MFFOR$INI_DES1_R2<|PPePD{PPPPP P6P1P,P'P"#P'P@PHP[P!{PxPPGPFPPPKP-P=PSP.PQPPPPPP..P2PJPaPP@PP.PPPP?PEP@PMPOPP_P<PFPnPPP P(P PPP PPPQP"zP!PPP+P PPP PPcW ww``h"!QQ CONVERTPq  44  44& cPSEGMENTED ~P c 4& P P P?q  44  44& mPVARIABLE P m 4& P P P@u  44  44& vP P P P P P P P P PU  44  44& P P P P P ; 44 PRT$CODE PT COMSCAN&   R J B z ~ :           $^nR$b~P2`ް   b LIB$TPARSE  VLIB$PUT_O FOR$IO_END*~ FOR$WRITE_SF߫0 FOR$IO_L_R FOR$IO_L_R FOR$IO_ENDjЪ44N FOR$WRITE_SFDUHD FOR$IO_T_DS߫0 FOR$IO_L_R߫4 FOR$IO_L_R FOR$IO_ENDi j8Ъ STD_SWAP_BYTES8STD_SWAP_BYTESjЪ SPECIAL4SPECIALjL LIB$FREE_VMP(P~ FOR$WRITE_SF FOR$IO_ENDԪԪ ѫ0ԫ<1`ݫ FOR$REWIND XLIB$SET_SCROLL~ FOR$WRITE_SF FOR$IO_ENDdLIB$SET_CURSOR@0(PP@ PPFIXED File: a PP)PP~PPzPaP1P+P2P.PTPPjPnPPuP,xPPPP P-PPP P)>_ww  U44 PON DP  4& P [P [P"   b44 P P hP hP POFF FP  4& P hP hP#   o44 PON HP  4& P uP uP$   |44 P P P P POFF JP  4& P P P%   44 PON LP  4& P P P&   44 P P P P P P P  44 P P P  44 P P P:  44 P P P,  44 P P P[  44 P P P]  44 P P P;  44 P P P.  44 P P P-  44 P P P$  44 P P P_  44 P P P OPEN_FILE 44 P P P P P P/ ` 44& P P P 6 44 P P P 6 44 P P P: 6 44 P P P, 6 44 P P P[ 6 "44 P (P (P] 6 *44 P 0P 0P; 6 244 P 8P 8P. 6 :44 P @P @P- 6 B44 P HP HP$ 6 J44 P PP PP_ 6 R44 P XP XP CHECK_FILE Z44 P `P `P PVARIABLE NP  4& P `P `P'u( b44 P P lP lP PALL PP  4& P lP lP(  n44 PCURRENT RP  4& P tP tP) SHOW_CURRENT v44 PFILE TP  4& P |P |P*OUT_FILE ~44 PFLAGS VP  4& P P P+ SHOW_FLAGS 44 PMACRO XP  4& P P P,  44& P P P P P P P  44 P P P P P P PALL ZP  4& P P P- R 44 PMACRO \P  4& P P P.  44& P P P P P P P ! 44 P P P P P P P P PQ  44 P P P:  44& PUSING ^P  4& P P P/  44& P P P  44 P P P P PUSING `P  4& P P P0  44& P P P  44 P P P: P P PU  44 P P P P P P P  44 P P P  44 P P P P P P/  44& PFOR bP  4& P P P1  44& P P PU  44  44& P P P P PCOMPLETE dP  4& P P P2q  44 "PASCII fP "S $LOCAL  _LIB$STATE$  _LIB$KEY0$v  _LIB$KEY1$H $CODE#ww1sר+ҋ015 GET_RECORD01 5-Aug-1983 01:09 5-Aug-1983 01:09VAX-11 FORTRAN V3.1-23 GET_RECORDP Insufficient virtual memory to dump record -- skipping4P   GET_RECORDPO[Ь(4ԫUTPUTТ  QUIT&&CLEAN_UPPPSYS$EXIT< < SAVE_NAME& (Ь JP< <SAVE_DEF &5 RU BU(e BP44& 4PFLOAT lP 4 4& P @P @P6  B44  F44  N44& :PHEX nP : 4& P PP PP7  R44  V44  ^44& >PLONG pP > 4& P `P `P8  b44  f44  n44& CPOCTAL rP C 4& P pP pP9  r44  v44  ~44& IPWORD tP I 4& P P P:  44  44  44& NP P P P OPFOR vP O 4& P P P;  44& P P PU  44  44& SP P P P P P P: P P PQ  44 TPFOR xP T 4& P P P<  44& P P P X< SAVE1_DEF&%U BUe Bq  44  44& cPSEGMENTED ~P c 4& P P P?q  44  44& mPVARIABLE P m 4& P P P@u  44  44& vP P P P P P P P P PU  44  44& P P P P P ; 44 PT$CODEA P COMSCAN&   R J B z ~ :           $^nR$b~P2`ް   b LIB$TPARSE  VLIB$PUT_OUTPUTТS QUITS&&CLEAN_UPPPSYS$EXIT< < SAVE_NAME& (Ь JP< <SAVE_DEF&5 RU BU(e BP< <ADD_HELP&6  U Ue < 5<GET_HELP&t      LBR$OUTPUT_HELPP  LIB$PUT_OUTPUTP vCALL_DCL& P< ~< SAVE1_DEF&%U BUe B< < STORE_DEF&- J B STORE_MACROP< <SAVE1&(0R  z zR zP< <SAVE2&(0R  ~ ~R ~P< <DO_DUMP&f z zЏ?B ~ ~  z ~ ~ zDUMPP< 6<FILE_IT&c? :< :(? $U :Ue :P< < FETCH_MACRO&=(Ь J JGET_DEFGP< < FETCHA_MACRO&8(Ь J JGET_DEFP< < FETCH_DEF&K(Ь J   JSHOW_DEFP< < DUMP_ALL_DEF&4   JSHOW_DEFP< !< REMOVE_MAC&O(Ь J   J REMOVE_MACROP< R< REMOVE_ALL&8   J REMOVE_MACROP< r< CLEAR_SCREEN& SCR$ERASE_PAGEP< <READ_IT&[? 6  (? U Ue P< < CALL_EDIT&O P      EDITP< <ONIT& м Rb< <OFFIT& м Rb< <CH1&P P< "< DO_SEARCH&    Џ?B          SEARCHP< <GET_SER&5 R Rb < <GET_COM&6  R Rb < < CALL_SPAWN& + 5LIB$PUT_OUTPUTЏ  q  LIB$GET_INPUT  LIB$SPAWNP  LIB$PUT_OUTPUTP  / CLR_S&(P  ; DO_CONVERT&'  CONVERTP FDMPPARSE ADD_HELP vCALL_DCL  CALL_EDIT  CALL_SPAWN  CH1 r CLEAR_SCREEN  /CLR_S COMSCAN ; DO_CONVERT DO_DUMP " DO_SEARCH  DUMP_ALL_DEF  FETCHA_MACRO  FETCH_DEF  FETCH_MACRO 6FILE_IT GET_COM 5GET_HELP GET_SER  OFFIT  ONIT  QUIT READ_IT R REMOVE_ALL ! REMOVE_MAC  SAVE1 ~ SAVE1_DEF  SAVE2 SAVE_DEF  SAVE_NAME  STORE_DEF . BLANK .MINESERRFLAGFLAGS,FILES?READING? $LOCAL  _LIB$STATE$  _LIB$KEY0$  _LIB$KEY1$w $CODETww R< REMOVE_ALL&8   J REMOVE_MACROP< r< CLEAR_SCREEN& SCR$ERASE_PAGEP< <READ_IT&[? 6  (? U Ue P< < CALL_EDIT&O P      EDITP< <ONIT& м Rb< <OFFIT& м Rb< <CH1&P P<  "< DO_SEARCH&    Џ?B          SEARCHP< <GET_SER&5 R Rb < <GET_COM&6  R Rb < < CALL_SPAWN& + 5LIB$PUT_OUTPUTЏ  q  LIB$GET_INPUT  LIB$SPAWNP  LIB$PUT_OUTPUTP  / CLR_S&(P  ; DO_CONVERT&,   FILE_CONVERTP FDMPPARSE ADD_HELP vCALL_DCL  CALL_EDIT  CALL_SPAWN  CH1 r CLEAR_SCREEN  /CLR_S COMSCAN ; DO_CONVERT DO_DUMP " DO_SEARCH  DUMP_ALL_DEF  FETCHA_MACRO  FETCH_DEF  FETCH_MACRO 6FILE_IT GET_COM 5GET_HELP GET_SER  OFFIT  ONIT  QUIT READ_IT R REMOVE_ALL ! REMOVE_MAC  SAVE1 ~ SAVE1_DEF  SAVE2 SAVE_DEF  SAVE_NAME  STORE_DEF . BLANK .MINESERRFLAGFLAGS,FILES?READING? $LOCAL  _LIB$STATE$  _LIB$KEY0$  _LIB$KEY1$w $CODETww