1$ PSICOPY040.B PSICOPY040.BBACKUP/NOASSIST/NODISMOUNT/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY PSICOPY.OLB,SYSDEP.MAR,HASH_PASSWORD.OBJ,SETUIC_V62,FINDUSER.OBJ; USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]PSICOPY040.B/LABEL=(PSICOPY)/SAVE/BLOCK=9000/GROUP=25/NOINIT/NOREWIVAX/VMS SPKITBLD Procedure GEGE WDS7.0 _BRAHMS::  _$1$DUA34: V6.2 $'*[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51+,b .d/ 4db--0123 KPWOe56gv7787ϙ9GHJ % Librarian T09-20gVՖ'٢!ab!   COMPDECOMP1XCRCI4 DATA_TRANSFERFCHDEFFILE_IO HASH_PASSWORDHEADERHPWD INTERpLOGINNOTIFYPSICOPYX PSICOPY_CMD  PSICOPY_ERROR:B PSICOPY_MSGL PSINETWORKRESTARTPSERVERJ|THROTTLE1XADD_CRC1X ADD_CRC_MAP1X ADD_CRC_SELF ALLOCATE_MAP1X CHECK_CRC1X CHECK_CRC_MAP CLEANUP_TRANSFER COMPRESS_DONE COMPRESS_INITLCONNECT_NW_CHANNELI4 COPY_DATA DCLINITDEBUTDECOMPRESS_CLEANUPDECOMPRESS_DONEDECOMPRESS_INITLDISCONNECT_LINKLDISCONNECT_NW_CHANNELJ| DO_THROTTLE EDIT_LEVELFCH$M_BADBLOCK FCH$M_CONTIG FCH$M_CONTIGBFCH$M_DIRECTORY FCH$M_ERASEzFCH$M_EXISTENCE FCH$M_LOCKED FCH$M_MARKDELFCH$M_NOBACKUPFCH$M_NOCHARGE FCH$M_NOMOVEFCH$M_NOSHELVABLEFCH$M_READCHECK FCH$M_SCRATCH FCH$M_SHELVED FCH$M_SPOOLFCH$M_VCC_STATEFCH$M_WASCONTIGFCH$M_WRITCHECKFCH$M_WRITEBACK FCH$S_FCHDEFFCH$S_VCC_STATEFCH$V_ASSOCIATEDN1XINIT_CRC_TABLE_OUTREAD_COMPRESSED_BLOCK1XVALIDATE_CRC_BLOCKWRITE_COMPRESSED_BLOCKU EDIT_LEVEL FCH$M_ERASEFCH$V_ASSOCIATED FCH$V_SPOOLLOCAL_NEXT_INPUT_FILE NEXT_FILEOPEN_OUTPUT_FILE PSICOPY_CMD PSICOPY_DEBUG PSICOPY_INVEXTATTRLST PSICOPY_NOTCOPIEDPSICOPY_READ_INPUTPSICOPY_RSTCRCPSICOPY_USERLNGRESET_SERVER_MODE X25_IDENTY FCH$V_BADACLFCH$V_BADBLOCK FCH$V_CONTIG FCH$V_CONTIGBFCH$V_DIRECTORY FCH$V_ERASEFCH$V_EXISTENCE FCH$V_LOCKED FCH$V_MARKDELFCH$V_NOBACKUPFCH$V_NOCHARGE FCH$V_NOMOVEFCH$V_NOSHELVABLEFCH$V_READCHECK FCH$V_SCRATCH FCH$V_SHELVED FCH$V_SPOOLFCH$V_VCC_STATE1XINIT_CRC_TABLE_IN1XINIT_CRC_TABLE_OUTREAD_COMPRESSED_BLOCK1XVALIDATE_CRC_BLOCKWRITE_COMPRESSED_BLOCKFCH$V_VCC_STATEFCH$V_WASCONTIGFCH$V_WRITCHECKFCH$V_WRITEBACK GET_INPUT_FILE_SPECS INIT_CENTRALIZED_LOG1XINIT_CRC_TABLE_IN1XINIT_CRC_TABLE_OUTJ| INIT_THROTTLELGI$HPWDLOCAL_DEACCESS_INPUTLOCAL_DEACCESS_OUTPUTLOCAL_DELETE_INPUTLOCAL_DELETE_OUTPUTLOCAL_GET_INPUT_BLOCKLOCAL_INPUT_FILE_SPECSLOCAL_LOCATE_INPUT_FILEp LOCAL_LOGINLOCAL_NEXT_INPUT_FILELOCKWRITE_COMPRESSED_BLOCKLOCAL_OPENR_OUTPUT_FILELOCAL_OPEN_INPUT_FILELOCAL_OPEN_OUTPUT_FILELOCAL_OUTPUT_FILE_SPECSLOCAL_PARSE_OUTPUT_FILELOCAL_PUT_OUTPUT_BLOCKLOCAL_RESTART_READLOCAL_REWIND_INPUT_FILELOCAL_SETINIBLK MAJOR_VERSION MINOR_VERSIONL NETCONNECTLNETKEYINL NETPURGEDATAL NETRECEIVELNETRECEIVEDESCLNETSENDL NETSENDDATAL NETSENDDESC  NEXT_FILEOPEN_INPUT_FILE OPEN_OUTPUT_FILEqPSICOPYPSICOPY$MASTERPPSICOPY$SERVER:BPSICOPY$_FACILITY:B PSICOPY_ABORT:BPSICOPY_ACCEPTERR:BPSICOPY_ACK_IT:BPSICOPY_ASSINCHAN:BPSICOPY_ASSOUTCHAN:BPSICOPY_BADSTATUSWORD:BPSICOPY_BADTHRUCLS:BPSICOPY_BOOTFAIL:BPSICOPY_BOOTREQ  PSICOPY_BUG  PSICOPY_BUGF:BPSICOPY_CLEAREDX PSICOPY_CMDSS_FACTOR:BPSICOPY_CONABORT:BPSICOPY_CONERRNCB:BPSICOPY_CONFAIL:BPSICOPY_COPIED  PSICOPY_DEBUGRVER_MODELSEND_ITL SEND_RESETpSET_SERVER_MODE START_RESTARTJ|START_THROTTLESYS$HASH_PASSWORD  TRANSFER_FILE1XVALIDATE_CRC_BLOCKLWAIT_X25_EVENTWRITE_COMPRESSED_BLOCK X25_IDENTs:BPSICOPY_DEBUGINFO:BPSICOPY_DELETED:BPSICOPY_ERRDEACCESS:BPSICOPY_ERRDELETE:BPSICOPY_ERREXH:BPSICOPY_ERRJPI  PSICOPY_ERROR:BPSICOPY_EXTLOG:BPSICOPY_FATAL_BUG:BPSICOPY_GRANTERR:BPSICOPY_HASHNOTSUPP:B PSICOPY_IDENT:BPSICOPY_INPARSE:BPSICOPY_INTERRUPT:BPSICOPY_INVALIDNCB:BPSICOPY_INVEXTATTRLSTPSICOPY_SYS_ERRORPURDYREAD_COMPRESSED_BLOCKp REMOTE_LOGINpRESET_SERVER_MODE:BPSICOPY_COMPRESS_FACTOR:BPSICOPY_CONABORT:BPSICOPY_CONERRNCB:BPSICOPY_CONFAIL:BPSICOPY_COPIED:BPSICOPY_CRCBLOCK:BPSICOPY_CRCBURST:BPSICOPY_CREATED:BPSICOPY_CREFAIL:BPSICOPY_DATARATE:BPSICOPY_DEACCESS  PSICOPY_DEBUGW:BPSICOPY_INVRESTARTFILE:BPSICOPY_INV_IT:BPSICOPY_IN_SEARCH:BPSICOPY_LOCDTELNG:BPSICOPY_LOGFAIL:BPSICOPY_LOGINMANDATORY:BPSICOPY_LOGINNOTALL:BPSICOPY_MAXCRCERR:BPSICOPY_NETRECEIVE:BPSICOPY_NETSEND:BPSICOPY_NODECNET:BPSICOPY_NONFATAL_BUG:BPSICOPY_NOSYSNET:BPSICOPY_NOTCOPIED:BPSICOPY_NOTDELETED PSICOPY_RMS_ERROR PSICOPY_SYS_ERRORPURDYREAD_COMPRESSED_BLOCKp REMOTE_LOGINpRESET_SERVER_MODEW:BPSICOPY_NOTDELETED:BPSICOPY_NOTNOW:BPSICOPY_NOTSUPP:BPSICOPY_NOX25CHAN:BPSICOPY_OPENIN:BPSICOPY_OPENLOG:BPSICOPY_OPENOUT:BPSICOPY_OUTPDELETE:BPSICOPY_OUT_PARSE:BPSICOPY_PKTBAD:BPSICOPY_PROTOCOL:BPSICOPY_PUTMSG:BPSICOPY_READMBX:BPSICOPY_READSYSNET:BPSICOPY_READ_INPUT:BPSICOPY_RECEIVED PSICOPY_RMS_ERROR PSICOPY_SYS_ERRORPURDYREAD_COMPRESSED_BLOCKp REMOTE_LOGINpRESET_SERVER_MODEZ:BPSICOPY_RECEIVED:BPSICOPY_RELINK:BPSICOPY_REMDTELNG:BPSICOPY_REMLOGFAIL:BPSICOPY_REMLOGIN:BPSICOPY_REQFAIL:BPSICOPY_REQUEST:B PSICOPY_RESET:BPSICOPY_RESTARTCMD:BPSICOPY_RESTARTFILE:BPSICOPY_RESUMEFILE:BPSICOPY_REVOKERR PSICOPY_RMS_ERROR:BPSICOPY_RPOALNG:BPSICOPY_RSTCRC:BPSICOPY_RSTINV:BPSICOPY_RSTLOCINP PSICOPY_SYS_ERRORPURDYREAD_COMPRESSED_BLOCKp REMOTE_LOGINpRESET_SERVER_MODES:BPSICOPY_RSTINV:BPSICOPY_RSTLOCINP:BPSICOPY_RSTLOCOUTP:BPSICOPY_RSTOPEN:BPSICOPY_RSTREAD:BPSICOPY_RSTWRITE:BPSICOPY_SEND_IT:B PSICOPY_SENT:BPSICOPY_STREAM_PURGE PSICOPY_SYS_ERROR:BPSICOPY_THRBAD:BPSICOPY_TRNLOG:BPSICOPY_UNKEXTATTR:BPSICOPY_USEPKT:BPSICOPY_USERLNG:BPSICOPY_USERNAME:BPSICOPY_USETHR:BPSICOPY_USEWINPURDYREAD_COMPRESSED_BLOCKp REMOTE_LOGINpRESET_SERVER_MODE bR$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dO ":BPSICOPY_USERNAME:BPSICOPY_USETHR:BPSICOPY_USEWIN:BPSICOPY_WINBAD:BPSICOPY_WORDBAD:BPSICOPY_WRITE_OUTPUTPURDYREAD_COMPRESSED_BLOCKp REMOTE_LOGINpRESET_SERVER_MODEFCH$M_ASSOCIATED FCH$M_BADACLFCH$M_BADBLOCK FCH$M_CONTIG FCH$M_CONTIGBFCH$M_DIRECTORY FCH$M_ERASENOTIFY_END_FILE NOTIFY_FINISH NOTIFY_INIT NOTIFY_LOGINNOTIFY_START_FILE OPEN_INPUT_FILE OPEN_OUTPUT_FILE1 K8015 COMPDECOMP0120-Dec-1995 17:5020-Dec-1995 17:50DEC Pascal V5.1-22R COMPDECOMPPcompress_init: map_len=Qallocate_map: size=  LIB$FREE_VM ^ԭ PAS$HANDLERm^RSߏ DCX$C_BOUNDEDDCX$ANALYZE_INITPVVLOCAL_GET_INPUT_BLOCKPVR T3RESTART?R T3@RhAR@RET_STV1`RET_RSABR T 3CRhDR@INP_RLFER T 3HINP_FNBFRGR@RET_ATR  UCHAR RECATTRHRIRJR T 3   & ASCDATESKRLRMR T 3 ## 8FPRONR T3 HRPROOR T3 XSEMASKPRQRRR T 3 STATBLK SR T3T 3TRURSBK$R_STLBN_OVERLAYVR  WR  SBK$R_FILESIZE_OVERLAYXR  YR @ SBK$B_ACNTZR '[R\R]R H SBK$B_LCNT^R T3P SBK$L_FCBpSBKDEF$$_FILL_1_R `RaRbR  SBK$W_ACNTcR dReRfR  SBK$W_LCNTgR TD3 SBK$W_WCNThR TD3 SBK$W_TCNTiR TD3 SBK$L_READS SBK$L_WRITESjR@kR SBK$L_STLBN SBK$L_FILESIZElRmRnR(@oR SBK$W_STLBNHpR TD3 SBK$W_STLBNLqR TD3 SBK$W_FILESIZHrR TD30SBK$W_FILESIZLsR TD3RET_MSZ RET_EXTATTR tR(uR@INP_OPTvR  Tn 3`INP_ATRwR T 3INP_MSZ INP_EXTATTRxR T3yRPzR@RET_BLK{R T3|RP}R@INP_BLK~R )T3RHR@RET_FNAR T 3R@R R@R R@R RPR @ INP_USERNAME RR @INP_SALTR T3P INP_ENCRYPTR T 3 XTIMERRR  RET_PASSWORD RET_REMUSERR T.3R@RRR@SELF_CRC* `CRC_NBR RRR  pCRCRRR tRR@ START_BLKR T3T3RR `NETERRR T3 aCRCERRR T3bCRCXMITR T3cRESTARTR T3h RES_CAUSERhR` RESUME_FLAGSR T 3RR+@IN_FDID FIDRRR T3  0DVIRR@INP_OPTRR  Tn 3`INP_ATRRR T 3INP_MSZR INP_OPFDIDR T3RPR@BOOT_MSGR T.3(READ_COMPRESSED_BLOCK BLKR T3RREAD_COMPRESSED_BLOCKRR,EAD_COMPRESSED_BLOCKR INPUT_BLOCK R T3RSTATUSR DCX_STATUS $ RW_DATABYTES RW_DATABYTES ALLOCATE_MAP.RET_ADDRR ALLOCATE_MAPR ALLOCATE_MAPR IN_LENGTH+ "DECOMPRESS_INITRDECOMPRESS_INIT-RDECOMPRESS_INITRSTATUS $%DECOMPRESS_CLEANUPRDECOMPRESS_CLEANUPSSRDECOMPRESS_CLEANUPSSRSTATUSKRVMSTATEE h)XWRITE_COMPRESSED_BLOCK_ BLKR T3RWRITE_COMPRESSED_BLOCKRWRITE_COMPRESSED_BLO.CKREXP_RECR T3RSTATUSt 6LOCAL_PUT_OUTPUT_BLOCKLOCAL_PUT_OUTPUT_BLOCK"DECOMPRESS_DONEaRDECOMPRESS_DONEQQRDECOMPRESS_DONEQQ t'TPASCAL%DEBUG_SUPPORTV  SAVED_PC_PSL DBG_STACKRRR RPASCAL%DEBUG_S/UPPORTRPASCAL%DEBUG_SUPPORTR FOR_INDEXlR CURRENT_MAX^ 4RS !S!!S!!S!S&!S&!S!S#! S! S ! S"! S ! ST3S !S !S !S !S !S !S !S !S !S !S !S&!S&!S!S!S !ST3S ! S"!S !"S"#S !$S !%S"&S !'S"(S !)ST3*S!,S !-S !.S !/S !0S"1S !2ST 33S!05S !6S !7S"8S !9S !:STn 3;S !S !?S !@S !AS"BS !CS !DS"ES !FS !GS"HS7!IS3"JS KS7!LS3"MS NS !OS !PS7!QS3"RS SS !TS !US"VS !WST63XS !YSTp3ZS ![ST3\S!^S !_S !`ST 3aS!cS !dSTD3eS!gS !hS !iS !jS !kS"lS !mS"nS !oS"pS !qS !rS !sS !tS !uS"vS !wS !xS !yS !zS"{S !|S !}S"~S !S !S"S !S 1!S"S !S"S !S"S !S"S !S"S !S !S0!S,"SS !S !S"S !S"S !STW3S!S0!S,"SS !S"S !US !S"S !S !S !S !S !S"S !S !S"S7!S3"S S !S"S !S !S !S !S"S !S !S.!S.!S$!S !S!S#!S%!S%!S"!S(!S(!S!S+!S+!S!S!S !S/!S/!S !S !S!S(!S(!S0!S,"S 2S-!S-!S"!S$!S$ PAS$FV_INPUT PAS$FV_OUTPUTww1 G{01.CRC0120-Dec-1995 17:5120-Dec-1995 17:51DEC Pascal V5.1-22R CRCPCHECK CRC: addr=len=check_crc: Crc index > max crcQcheck_crc_map: crc index > crc nbQadd_crc: CRC index out of rangeQadd_crc_map: CRC index out of rangeߏ  LIB$CRC_TABLE^ЬP< PPP DEBUG# PAS$FV_OUTPUTP3AS$WRITE_STRING PAS$HEX PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRING ݭ PAS$FV_OUTPUTPAS$WRITE_UNSIGNED PAS$FV_OUTPUT PAS$WRITELN2ߏLIB$CRCЬ\ѬPPP(^ԭ PAS$HANDLERmЬP< PѼPЏ؞}ЏhPROTOCOL_ERRORЬ P`ߏLIB$CRCQ QQЬRPA ּ\\\P 0^ԭ PAS$HANDLERmм PмQPQqW$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"34ЬQ< QѼQЏОЏ!ܞ!!쟭PROTOCOL_ERRORߏLIB$CRCQ QQЬRPA RRQ QQЬSPA ּRP@ߏ  LIB$CRC_TABLE (^ԭ PAS$HANDLER INIT_CRC_TABLE_IN LIB$CRC_TABLE VALIDATE_CRC_BLOCKPSICOPY DEBUG PAS$FV_OUTPUTPAS$WRITE_STRINGPAS$HEXPAS$WRITE_UNSIGNED PAS$WRITELN2LIB$CRC l CHECK_CRC PAS$HANDLER PSINETWORK 5PROTOCOL_ERROR  CHECK_CRC_MAP INIT_CRC_TABLE_OUT  ADD_CRC  ADD_CRC_MAP $ ADD_CRC_SELFCRC  `PASCAL%DEBUG_SUPPORT  INPUT_CRC_TABLEmѼЏ؞MЏ8PROTOCOL_ERRORּ RЬSЬ P`ߏ@LIB$CRCPB ЬS Ѽ\\\P 0^ԭ PAS$HANDLERmм RмSѼЏОЏ#ܞ##쟭PROTOCOL_ERROR6ּRS SЬ\ߏ@LIB$CRCPC ^ЬP< PPP Ь\ߏ@LIB$CRCPЬPРPQRQRQSЬTCPЬTCPRQPlQQQ :Qy^ QQ5:QfQQQ6?Q;QNQQ#?Q;QQ   @OUTPUT_CRC_TABLE   INPUT_SEED   OUTPUT_SEED$CODE$LOCALCRC20-Dec-1995 17:51:19PAS$ENVIRONMENT_TIMEHPWD10-Jan-1994 16:27:07PAS$ENVIRON7MENT_TIMEFILE_IO20-Dec-1995 17:47:48PAS$ENVIRONMENT_TIMECLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIME PSINETWORK20-Dec-1995 17:48:48PAS$ENVIRONMENT_TIMEPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIME 2$CODE$LOCALSA c -USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]CRC.PAS;26  PAS$F8V_INPUTINPUTTEXT  CHAR  PAS$FV_OUTPUTOUTPUTR T3  INITIAL_CRC +POLYNOMIAL_COEFFICIENT  R CRC_INDEXR  INTEGER MAX_CRC_NB INPUT_CRC_TABLERRR @@OUTPUT_CRC_TABLER T3 INPUT_SEED OUTPUT_SEED$INIT_CRC_TABLE_IN  LIB$CRC_TABLE LIB$C9RC_TABLENETMSG R T3 T3 R RIT_CODE NET$IT_WRTERRNET$IT_READERRNET$IT_RETRANSMIT NET$IT_ACK R RDISK_BLK  R RNET_BLK R(RRET_SIZER RRR  STATUS0 MSG_FLAGS  REQUESTORR R BOOLEA:N DEBUGR TR3 NETERRR TR38MSG_CODE NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTP NET$C_DEACCESS NET$C_END NET$C_LOGIN NET$C_PASSWORD NET$C_DELINP NET$C_STATUS NET$C_CRC NET$C_RESUME NET$C_NETERR NET$C_INLOCNET$C_OP;ENOUTR NET$C_BOOT(T3RXR@INP_VER  MINORR RRR  MAJORR T3PINP_FNA  R!R@RET_STV`RET_VER"R T3pRET_OPT#R  $R  DELETE_INPUT%R TR3COMPRESS&R TR3 CRC'R TR3 RESTARTING(R <TR3RESTART)R TR3*Rh+R@RET_STV1`RET_RSA,R T3-Rh.R@INP_RLF/R T3HINP_FNB0R1R@RET_ATR  UCHAR RECATTR2R3R4R T3    ASCDATES5R6R7R T3 ## 8FPRO8R T3 HRPRO9R T3 X=SEMASK:R;RR?RSBK$R_STLBN_OVERLAY@R  AR  SBK$R_FILESIZE_OVERLAYBR  CR @ SBK$B_ACNTDR ERFRGR H SBK$B_LCNTHR T 3P SBK$L_FCBpSBKDEF$$_FILL_1IR JRKRLR > SBK$W_ACNTMR NRORPR  SBK$W_LCNTQR T) 3 SBK$W_WCNTRR T) 3 SBK$W_TCNTSR T) 3 SBK$L_READS SBK$L_WRITESTR@UR SBK$L_STLBN SBK$L_FILESIZEVRWRXR@YR SBK$W_STLBNHZR T) 3 SBK$W_STLBNL[R T) 3 SBK$W_FILESIZH\R T) 30SBK$W_F?ILESIZL]R  T) 3RET_MSZ RET_EXTATTR ^R(_R@INP_OPT`R  TS3`INP_ATRaR T3INP_MSZ INP_EXTATTRbR T 3cRPdR@RET_BLKeR T3fRPgR@INP_BLKhR T3iRHjR@RET_FNAkR T3lR@mR nR@oR pR@qR rRPsR @ INP_US@ERNAME tRuR @INP_SALTvR T3P INP_ENCRYPTwR T3 XTIMExRyRzR UNSIGNED RET_PASSWORD RET_REMUSER{R T3|R@}R~RR@SELF_CRC `CRC_NBR RRR  pCRCRRR tRAR@ START_BLKR T3T3RR `NETERRR TR3 aCRCERRR TR3bCRCXMITR TR3cRESTARTR TR3h RES_CAUSERhR` RESUME_FLAGSR T3RR@IN_FDID FIDRRR T3  0DVIBRR@INP_OPTRR  TS3`INP_ATRRR T3INP_MSZR INP_OPFDIDR T3RPR@BOOT_MSGR T3%VALIDATE_CRC_BLOCK CRCTABR T3RVALIDATE_CRC_BLOCKfjRVALIDATE_CRC_BLOCKfjR NEW_DESCERRR R CCALC_CRCaa  DEBUGDEBUG  NETR TR3 MAINR TR3 DATAR TR3 CRCR TR3 LOGR TR3 LOGINR TR3 INTERR TR3 SERVERR TR3FILE_IOR TR3 RESTARTR TR3 THROTTLER TR3 COMPRESSR DTR3LIB$CRCLIB$CRCl CHECK_CRC{ CRCTABR T3 CRCNUMR T3 BLKR T3R CHECK_CRC  R CHECK_CRC  R EXPECTED_CRC (PROTOCOL_ERRORPROTOCOL_ERROR  CHECK_CRC_MAP+ CRCTABR T3 CRCNUMR T3R CHECK_CRC_MAPR C'$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"DEHECK_CRC_MAPRMAPSIZE'-RMAPADDR+1R EXPECTED_CRCR NEW_DESC.}RRR  %INIT_CRC_TABLE_OUT ADD_CRC CRCTABR T3 CRCNUMR T3 BLKR T3RADD_CRC RADDF_CRC  ADD_CRC_MAP CRCTABR T3 CRCNUMR T3RMAPSIZERMAPADDRR NEW_DESC RRR  $ ADD_CRC_SELF) CRCTABR T3R NEW_DESC8ERRR G <'`PASCAL%DEBUG_SUPPORTb  SAVED_PC_PSL DBG_STACKRRR RPASCAL%DEBUG_SUPPORTRPASCAL%DEBUG_SUPPORTR FOR_INDEXxR CURRENT_MAXj 4RS !S !S0!S,"SS !S ! S ! S" S ! S" S !S"S !S"S !ST3S!S !STR3S !HS !S !S"S !ST3S!S ! S !!S""S !#S !$STS3%S !&S !'S !(S !)S !*S !+S",S !-S !.S"/S !0S !1S"2S7!3S3"4S 5S7!6S3"7S 8S !9S !:S7!;S3"S !?S"@S !AST 3BS !CSTU 3DS !EST 3FS!HS !IS !JST 3KS!MS !NST) 3OS!QS !RS !SS !TS !US"VS !WS"XS !YS"ZS ![S !\S !]S !^S !_S"`S !aS !bS !cS !dS"eS !IfS !gS"hS !iS !jS"kS !lS !mS"nS !oS"pS !qS"rS !sS"tS !uS"vS !wS !xS0!yS,"zS{S !|S !}S"~S !S"S !STK3S!S0!S,"SS !S"S !S !S"S !S !S !S !S !S"S !S !S"S7!S3"S S !S"S !S !S !S !S"S !S !S+!S+!S!!S0!S,"SS!!S !S !S !S !S !S !S !S !S !S !S !S !S ! JS !S !S"!S"!S%!S !S !S&!S&!S !S !S%!S!!S0!S,"SS !S !S !S !S !S !S !S !S !S!!S0!S,"SS !S!!S0!S,"SS0!S,"SS-!S-!S"!S$!S PAS$FV_INPUTww1G0Č018 DATA_TRANSFER0120-Dec-1995 17:5120-Dec-1995 17:51DEC Pascal V5.1-22R DATA_TRANSFERPNot first CRC QInv MAP CRCCRCMKAP: status=Q ix crc=Restart burst: cause Q38BLWRETRANSMIT_REASON_TYPENONE ONE_BLOCK ONE_BURST PREV_BLOCK PREV_BURSTQtransmit data: Qblk ix: start blk: status: QInvalid InterruptQNot RESUME mess:\iw %2<IVbq REQUEST_TYPE NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTPNET$C_DEACCESS NET$C_LEND NET$C_LOGINNET$C_PASSWORD NET$C_DELINP NET$C_STATUS NET$C_CRC NET$C_RESUME NET$C_NETERR NET$C_INLOCNET$C_OPENOUTR NET$C_BOOTGetin: ft state:&.6@ FT_STATE_TYPEFT_FAILFT_DONE FT_OUTPUTFT_INPUTQ crcwait=Q crc#=Got CRC blk: QGot data message while expecting qualifiedQGot Q mess while expecting dataQRXMIT REQ: blk=Q reason=ask rmxit: received QQNot RESUME responseQDATA: Abort transfer reason: QNot valid Q mess for serMverQLastwill: ЬPРPQRQRQSЬTCPЬTCPRQ<^ԭ PAS$HANDLERm\ 욼PP蚼PPм ^R䔭 SERVER_MODEЭPЭPЭPPSICOPY_READ_INPUTԭԭռԭPPȔԭV1INIT_CRC_TABLE_IN]QP1͌]Q葭͓ PAS$DECWWWR^^X(n( cЏXЏWWWPROTOCOL_ERRORNINIT_CRC_TABLE_OUT1ռ1]QP魸1]Q122VPVPVPQ{2PPPP1 INIT_THROTTLE1X XP@NWW]QPgX֭V CURRENT_BLOCK XHN؟LADD_CRCP]QP]QP INPUT_RSA3< INPUT_RSATABLINK43<TABLINK23PSICOPY_READ_INPUTPSICOPY_SYS_ERRORޑ15խ]QP SERVER_MODE DATA_TRANSFER  OPASCAL%DEBUG_SUPPORT  COPY_DATA PAS$HANDLERPSICOPY  SERVER_MODEPSICOPY_READ_INPUTINIT_CRC_TABLE_INPAS$DEC PSINETWORK PROTOCOL_ERRORINIT_CRC_TABLE_OUT INIT_THROTTLE  CURRENT_BLOCKADD_CRCFILE_IO % INPUT_RSA TABLINKPSICOPY_SYS_ERROR COMPRESS_DONEDECOMPRESS_DONE ALLOCATE_MAPNETRECEIVEDESC DEBUG PAS$FV_OUTPUTPAS$WRITE_STRING]QP SERVER_MODE]QP1 COMPRESS_DONEDECOMPRESS_DONEV\\P^Q\Q1ЬPݠЬQ ALLOCATE_MAPPRR1ЬPЬQNETRECEIVEDESCPR11DEBUG PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2ӟwߏ\QPRRЬPЬQNETRECEIVEDESCPRDEBUG; PAS$FV_OUTPUTPAS$WRITE_STRINGR PAS$HEX  PAS$FV_OUTPUTPAS$WRITE_STRING PASQ$FV_OUTPUTPAS$WRITE_STRINGH PAS$FV_OUTPUTPAS$WRITE_INTEGER PAS$FV_OUTPUT PAS$WRITELN2ЬPЬQȞ CHECK_CRC_MAPŔQRQPQQ1R]QPR]QPRRPС\DECOMPRESS_INITPRЬPЬQ؟L ADD_CRC_MAPRRP ^Q\QRDEBUG8 PAS$FV_OUTPUTPAS$WRITE_STRING R~6 PAS$FV_OUTPUTPAS$WRITE_ENUMERATED PAS$FV_OUTPUT PAS$WRITELN2ᔬRRSL ADRD_CRC_SELFLNETSENDPSSSԭ]QPSì@呬1PЬRBԬ@SS\QS\QԬԬSP ^ԭ PAS$HANDLERmQ\ЬRТPТQ NETSENDDESCPSSS1֬ P@NRQPSDEBUG1T PAS$FV_OUTPUTPAS$WRITE_STRINGO PAS$FV_OUTPUTPAS$WRITE_STRINGݬ PAS$FV_OUTPUTPAS$WRITE_INTEGER0  PAS$FV_OUTPUTPAS$WRITE_STRINGݢП PASS$FV_OUTPUTPAS$WRITE_UNSIGNED PAS$FV_OUTPUTPAS$WRITE_STRINGS PAS$HEX PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2ѬS1SP^QݬWRITE_COMPRESSED_BLOCKPRݬLOCAL_PUT_OUTPUT_BLOCKPR<PP RW_DATABYTESݬ]QPRRP ^СRݬ NETSENDDATAPS SS$_RESETPPSݬWAIT_X25_EVENTPSPSICOPY_INTERRUPTPPS1RECEIVE_QUALTIFIEDRQPSSPSICOPY_INTERRUPTS SERVER_MODERECEIVE_QUALIFIEDSЏЏPROTOCOL_ERRORPSSP^QLOCAL_DEACCESS_OUTPUTP]QP\]QP\\P^Q\ЬR NETKEYINܑ RQPST NETRECEIVETSRQ\QPSSP^СRм\\\PSICOPY_ERRDEACCESS PAS$WRITELN2PAS$HEXPAS$WURITE_INTEGER CHECK_CRC_MAPDECOMPRESS_INIT ADD_CRC_MAPPAS$WRITE_ENUMERATED ADD_CRC_SELFNETSEND NETSENDDESCPAS$WRITE_UNSIGNEDWRITE_COMPRESSED_BLOCKLOCAL_PUT_OUTPUT_BLOCK  RW_DATABYTES NETSENDDATA SS$_RESETWAIT_X25_EVENTPSICOPY_INTERRUPT RECEIVE_QUALIFIEDLOCAL_DEACCESS_OUTPUTNETKEYIN NETRECEIVEPSICOPY_ERRDEACCESS % OUTPUT_ESAPSICOPY_WRITE_OUTPUTPSICOPY_SYS_ERROR䔢\P^м\ Σ"$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d="UVOUTPUT_ESA3< OUTPUT_ESATABLINK|3<TABLINKz3\쟭PSICOPY_WRITE_OUTPUT蟭PSICOPY_SYS_ERROR^Q\ SS$_ENDOFFILEЬNETSENDݬ NETRECEIVEЬPЬPݬ\Q ^QRЬPЬPРS1ЬPݏPPAS$WRITEV_STRINGЬP~ݏPPAS$WRITEV_ENUMERATEDQ Q,lQrQQQQ]QQ Q4QQQ Q Q Q*Q>Q Q QpdQ?QV SS$_ENDOFFILEPAS$WRITEV_STRINGPAS$WRITEV_ENUMERATEDPSICOPY_CRCBURSTPSICOPY_CRCBLOCK PSICOPY_ERRORLOCAL_RESTART_READREAD_COMPRESSED_BLOCKLOCAL_GET_INPUT_BLOCK  GLOBAL_STATUSPAS$WRITE_BOOLEAN CHECK_CRCVALIDATE_CRC_BLOCKPSICOPY_MAXCRCERRSEND_IT NETPURGEDATA$CODE DATA_TRANSFER20-Dec-1995 17:51:30PAS$ENVIRONMENT_TIMEHPWD10-Jan-1994 16:27:07PcAS$ENVIRONMENT_TIMECLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIME CRC20-Dec-1995 17:51:19PAS$ENVIRONMENT_TIMEFILE_IO20-Dec-1995 17:47:48PAS$ENVIRONMENT_TIME COMPDECOMP20-Dec-1995 17:50:57PAS$ENVIRONMENT_TIME PSINETWORK20-Dec-1995 17:48:48PAS$ENVIRONMENT_TIMEPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIME{_BdG0=m[$CODEUCg^H72/USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]DATA.PAS;211 R  PAS$FV_INPUTINPUTTEXT  CHAR  PAS$FV_OUTPUTOUTPUTR T3 NeET$IT_WRTERRNET$IT_READERRNET$IT_RETRANSMIT NET$IT_ACK REQUEST_TYPE NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTP NET$C_DEACCESS NET$C_END NET$C_LOGIN NET$C_PASSWORD NET$C_DELINP NET$C_STATUS NET$C_CRC NET$C_RESUME NET$C_NETERR NET$C_INLOCNET$C_OPENOUTfR NET$C_BOOTR NETMSGPTRRNETMSG R R INTEGER T:3RRIT_CODER T3 R RDISK_BLK  R  RNET_BLK  R(RRET_SIZER RRR  STATUS0 MSG_FLAGS  REQUESTORR R BOOLEAN DEBUGQv$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dt"fgR T3 NETERRR T38MSG_CODER TZ3(T3RXR@INP_VER  MINORR RRR  MAJORR T93PINP_FNA R R@RET_STV`RET_VER!R T3pRET_OPT"R  #RTRANSFER_OPTIONS DELETE_INPUT$R T3COMPRESSh%R T3 CRC&R T3 RESTARTING'R T3RESTART(R T3)Rh*R@RET_STV1`RET_RSA+R T}3,Rh-R@INP_RLF.R T}3HINP_FNB/R0R@RET_ATR  UCHAR RECATTR1R2R3R T93    ASCDATES4R5R6R T93 #i# 8FPRO7R T"3 HRPRO8R T"3 XSEMASK9R:R;R T93 STATBLK RSBK$R_STLBN_OVERLAY?R  @R  SBK$R_FILESIZE_OVERLAYAR  BR @ SBK$B_ACNTCR DRERFR H SBK$B_LCNTGR jT# 3P SBK$L_FCBpSBKDEF$$_FILL_1HR IRJRKR  SBK$W_ACNTLR MRNROR  SBK$W_LCNTPR T 3 SBK$W_WCNTQR T 3 SBK$W_TCNTRR T 3 SBK$L_READS SBK$L_WRITESSR@TR SBK$L_STLBN SBK$L_FILESIZEURVRWR@XR SBK$W_STLBNHYR T 3 SBK$kW_STLBNLZR T 3 SBK$W_FILESIZH[R T 30SBK$W_FILESIZL\R T 3RET_MSZ RET_EXTATTR ]R(^R@INP_OPT_R  T3`INP_ATR`R T! 3INP_MSZ INP_EXTATTRaR To3bRPcR@RET_BLKdR T3eRPfR@INP_BLKgR T3hRHiR@RET_FNAjR T}3kR@llR mR@nR oR@pR qRPrR @ INP_USERNAME sRtR @INP_SALTuR T"3P INP_ENCRYPTvR T93 XTIMEwRxRyR UNSIGNED RET_PASSWORD RET_REMUSERzR T3{R@|R}R~R@SELF_CRC `CRC_NBR RRR m pCRCRRR tRR@ START_BLKR TP3T^3RR `NETERRR T3 aCRCERRR T3bCRCXMITR T3cRESTARTR T3h RES_CAUSERhR` RESUME_FLAGSR T93RR@IN_FDID FIDRRnR T"3  0DVIRR@INP_OPTRR  T3`INP_ATRRR T! 3INP_MSZR INP_OPFDIDR Td3RPR@BOOT_MSGR T3 COPY_DATAG* FILE_MAP_LEN + FILE_MAP_ADDR 0TRANSFERRED_BLOCKS R COPY_DATAo R COPY_DATA R LOCAL_INPUT)R LOCAL_OUTPUT.RINPUT_TRANSFER_OPTIONS6R T3ROUTPUT_TRANSFER_OPTIONS>R T3R LASTWILLCzR T3#MAX_RETRANSMIT ! DATA$_NORMAL RETRANSMIT_REASON_TYPE NONE ONE_BLOCK ONE_BURST PREV_BLpOCK PREV_BURST FT_STATE_TYPEFT_FAILFT_DONE FT_OUTPUTFT_INPUTRTX_FLAGS_TYPERTX_CRC RTX_BURSTRTX_NETRTX_RESRRTX_REASON_TYPE TJ3RINPUT_CRC_BLOCKٌR T(3R INPUT_CRC_NUMHRR ROUTPUT_CRC_BLOCKLR T(3ROUTPUT_CRC_NUMRR qRLAST_BURST_BLOCKRTABBLKPRRRT(3 :tR FT_STATEټR T3R WAIT_FOR_CRC]]RSEND_BURST_MAPRNEXT_INPUT_BLKNORSTART_CRC_BLOCKDRSTART_BURST_BLOCKR RESTART_BLOCKr@RSTATUSٸRBLOCKSRRETRANSMIT_REASONR T3RLAST_RETRANSMIT_BLOCK<RRETRANSMIT_COUNTPSICOPY_READ_INPUTPSICOPY_READ_INPUT SS$_ENDOFFILE SS$_ENDOFFILE!@PROCESS_Q_MESSH BLKR T(3RPROCESS_Q_MESSRPROCESS_Q_MESSi s!ABORT_TRANSFERkRREASON R ABORTMSG6R T(3) %xRETRANSMIT_REQUESTRRETRANSMIT_REQUEST RRETRANSMIT_REQUEST R STARTBLKRREASON9R T3R RESUMEMSGLR T(3RERRCODEtPSICOPY_MAXCRCERRPSICOPY_MAXCRCERRPSICOPY_CRCBURSTPSICOPY_CRCBURSTPSICOPY_CRCBLOCKPSICOPY_CRCBLOCK!SEND_RXMIT_MSGfRSEND_RXMIT_MSGRSEND_RXMIT_MSG   H INIT_RESTARTR INIT_RESTARTR INIT_RESTARTR BLOCK_NO R RESUMEMSGuR T(3i T*ANAL_RETRANSMIT_REQUEST8 RESMSGR T(3RANAL_RETRANSMIT_REQUEST~~RANAL_RETRANSMIT_REQUEST~~RSTATUS RERRCODE&NPSICOPY_CRCBURSTPSICOPY_CRCBURSTPSICOPY_CRCBLOCKPSICOPY_CRCBLOCK) &GET_INPUT_CRC_BLOCKRGET_INPUT_CRC_BLOCKvRGET_INPUT_CRC_BLOCKRSTATUS 8"GET_INPUT_BLOCK BLOCKR T(3RGET_INPUT_BLOCKRGET_INPUT_BLOCKRSTATUS,RQ_MESS_RECEIVED)REMOTE_GET_INPUT_BLOCK BLKR T(3RREMOTE_GET_INPUT_BLOCKR wREMOTE_GET_INPUT_BLOCKPSICOPY_PROTOCOLPSICOPY_PROTOCOLRSTATUS&PROCESS_NOTDATAMESS BLKR T(3RPROCESS_NOTDATAMESSsRPROCESS_NOTDATAMESSs     # PUT_OUTPUT_BLOCK  BLKR T(3RPUT_OUTPUT_BLOCKc c RPUT_OU,0($ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"wxTPUT_BLOCKc c RSTATUS3 a *h REMOTE_PUT_OUTPUT_BLOCKs : BLKR T(3RREMOTE_PUT_OUTPUT_BLOCKG G RREMOTE_PUT_OUTPUT_BLOCKG G RSTATUS E PSICOPY_INTERRUPTPSICOPY_INTERRUPTRITMSG  R T(3 SS$_RESET SS$_RESET   T#INIT_COMPRESSION&yRINIT_COMPRESSIONRINIT_COMPRESSIONRSTATUSERBLKR T(3 PROCESS_MAPR PROCESS_MAPR PROCESS_MAPRSTATUS D  &0 SIGNAL_OUTPUT_ERROR9 `RSTATUS9 j  PSICOPY_WRITE_OUTPUTzPSICOPY_WRITE_OUTPUT T VIDER_SALVER VIDER_SALVE  R VIDER_SALVE  R BLKINDEX RSTATUS R STARTREASON R T3! EMISSION_SALVE  REMISSION_SALVE   REMISSION_SALVE   RSTATUS   0 {  $ PROCESS_INTERRUPT INTMSG R T(3 RPROCESS_INTERRUPTRPROCESS_INTERRUPTRMESS$|٬P ) "L DEACCESS_OUTPUTU RDEACCESS_OUTPUTr   RDEACCESS_OUTPUTr   RSTATUS  CHECKDEAC R CHEC|KDEAC. .  R CHECKDEAC. .  RSTATUS   PSICOPY_ERRDEACCESSPSICOPY_ERRDEACCESS 8) REMOTE_DEACCESS_OUTPUT JRREMOTE_DEACCESS_OUTPUT  RREMOTE_DEACCESS_OUTPUT  RSTATUS  RASKDEAC  R T(3R TEMOIN_PURGER MESSAGE_TYPE }  R TZ3 t  8  WAIT_SERVER ARMSG  R T(3 t  MAX_CRC_NB PROTOCOL_ERRORPROTOCOL_ERROR DEBUGDEBUG  NET R T3 MAIN!R T3 DATA"R T3 CRC#R T3 LOG$R T3 LOGIN%R ~ T3 INTER&R T3 SERVER'R T3FILE_IO(R T3 RESTART)R T3 THROTTLE*R T3 COMPRESS+R T3SEND_ITSEND_IT NET$_FROMNET$_TO SERVER_MODE SERVER_MODENETSENDNETSEND NETPURGEDATA NETPURGEDATA PSICOPY_ERROR PSICOPY_ERRORTABLINKTABLINK,R-R.R/RTW,3H H @:X25_CHAN0R T"3MBX_CHAN1R T"3 IOSB @ IOSB_STATUS2R T"3 IOSB_COUNT3R T"3 IOSB_UINFO4R T"30 IOSB_SINFO5R T"3`MBX_IOSB6R Tf-3 CAUSE7R T93 DIAG8R T93 REASON9R T93GOTCAUSEGOTDIAG GOTREASON CONNECTEDFINISHEDCLEARED LOGERRMBX_BUF MSGTYPE:R T"3 UNIT;R T"3 NAME SIZE<R  T93 DATA INFO  SIZE=R T93 DATA>R?R@R T93  SAVADDRAR T3CNX_OPTS WINDOW THRUCLS@PKTSIZE `CUGBR T3pTEMPLATECR T3 CTYPE OPT  WINDOWDR T3 REVCHGER T3THRUCLSFR T3PKTSIZEGR T3 CUGHR T3TEMPLATEIR T3 CTYPEJR T3 NETRECEIVE NETRECEIVE GLOBAL_STATUS GLOBAL_STATUSLOCAL_RESTART_READLOCAL_RESTART_READVALIDATE_CRC_BLOCKVALIDATE_CRC_BLOCK CHECK_CRC CHECK_CRCREAD_COMPRESSED_BLOCKREAD_COMPRESSED_BLOCKLOCAL_GET_INPUT_BLOCKLOCAL_GET_INPUT_BLOCK RW_DATABYTES RW_DATABYTES NETSENDDATA NETSENDDATAWAIT_X25_EVENTWAIT_X25_EVENTRECEIVE_QUALIFIEDRECEIVE_QUALIFIEDWRITE_COMPRESSED_BLOCKWRITE_COMPRESSED_BLOCKLOCAL_PUT_OUTPUT_BLOCKLOCAL_PUT_OUTPUT_BLOCKDECOMPRESS_INITDECOMPRESS_INIT ADD_CRC_MAP ADD_CRC_MAP ALLOCATE_MAP ALLOCATE_MAPNETRECEIVEDESCNETRECEIVEDESC CHECK_CRC_MAP CHECK_CRC_MAPPSICOPY_SYS_ERRORPSICOPY_SYS_ERROR OUTPUT_ESA OUTPUT_ESAKR T}3 NETSENDDESC NETSENDDESC ADD_CRC_SELF ADD_CRC_SELFNETKEYINNETKEYINLOCAL_DEACCESS_OUTPUTLOCAL_DEACCESS_OUTPUTINIT_CRC_TABLE_ININIT_CRC_TABLE_ININIT_CRC_TABLE_OUTINIT_CRC_TABLE_OUT INIT_THROTTLE INIT_THROTTLE CURRENT_BLOCK CURRENT_BLOCKADD_CRCADD_CRC INPUT_RSA INPUT_RSALR T}3 COMPRESS_DONE COMPRESS_DONEDECOMPRESS_DONEDECOMPRESS_DONE'PASCAL%DEBUG_SUPPORT' SAVED_PC_PSL DBG_STACKMRNROR PRPASCAL%DEBUG_SUPPORTQRPASCAL%DEBUG_SUPPORTRR FOR_INDEX SR CURRENT_MAX  4TRS !S!ST(3S !STP3S !S"S ! S ! S" S ! S" S !S"S !ST"3S!S !ST3S !S !S !S !S"S !ST93S!S !S ! S"!S !"S !#ST3$S !%S !&S !'S !(S !)S !*S"+S !,S !-S".S !/S !0S"1S7!2S3"3S 4S7!5S3"6S 7S !8S !9S7!:S3";S S"?S !@ST 3AS !BST 3CS !DST# 3ES!GS !HS !IST 3JS!LS !MST 3NS!PS !QS !RS !SS !TS"US !VS"WS !XS"YS !ZS ![S !\S !]S !^S"_S !`S !aS !bS !cS"dS !eS !fS"gS !hS !iS"jS !kS !lS"mS !nS"oS !pS"qS !rS"sS !tS"uS !vS !wS0!xS,"ySzS !{S !|S"}S !~S"S !ST3S!S0!S,"SS !S"S !S !S"S !S !S !S !S !S"S !S !S"S7!S3"S S !S"S !S !S !S !S"S !S"!S"!S$!S%!S/!S !S0!S !S!!S !S!S(!S !S&!S!S)!S !S'!S!S)!S!S3!S/"SS!!S !S%!S'!S)!S(!S*!S&!S!S!S*!S !S.!S)!S !S'!S'!S!S!!S !S+!S+!S!!S!S !S"!S !S !S'!S'!S%!S%!S!!S"!S !S !S0!S0!S!S !S,!S,!S!S !S(!S(!S!S(!S !S/!S/!S!S !S,!S,!S !S)!S)!S!S !S0!S0!S!S!S !S)!S)!S!S!S !S$!S$!S!S!S$!S$!S!!S!S$!S ! S'! S'! S! S ! S*!S*!S!S(!S(!S!S"!S"!S!S/!S/!S!S !S !S%!S%!S !S!S ! S !!S !"S !#S !$S !%S !&S !'S !(S !)S !*S !+S !,S:!-S6".S/ST-30S !1S !2S !3S !4S !5S !6S !7S !8S !9S !:S 5)$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d m" !;S !<S !=S !>S7!?S3"@S AS !BS !CS !DS !ES !FS !GS !HS !IS !JS !KS !LS !MS0!NS,"OSPS-!QS-!RS"!SS$!TS' PAS$FV_INPUTPSICOPY_PROTOCOLww1/00FCHDEF022-DEC-1995 17:15 VAX MACRO V5.4-3+MACRO/NOLIST/OBJECT=FCHDEF.OBJ FCHDEF.MAR-- file headers definitions FCHDEFFCH$M_ASSOCIATED FCH$M_BADACL@FCH$M_BADBLOCK FCH$M_CONTIG FCH$M_CONTIGB FCH$M_DIRECTORY FCH$M_ERASEFCH$M_EXISTENCE@ FCH$M_LOCKED FCH$M_MARKDELFCH$M_NOBACKUPFCH$M_NOCHARGE FCH$M_NOMOVE@FCH$M_NOSHELVABLEFCH$M_READCHECK FCH$M_SCRATCH FCH$M_SHELVED FCH$M_SPOOLFCH$M_VCC_STATEFCH$M_WASCONTIGFCH$M_WRITCHECKFCH$M_WRITEBACK FCH$S_FCHDEFFCH$S_VCC_STATE FCH$V_ASSOCIATED FCH$V_BADACLFCH$V_BADBLOCK FCH$V_CONTIG FCH$V_CONTIGB FCH$V_DIRECTORY FCH$V_ERASE FCH$V_EXISTENCE FCH$V_LOCKED FCH$V_MARKDELFCH$V_NOBACKUPFCH$V_NOCHARGE FCH$V_NOMOVEFCH$V_NOSHELVABLEFCH$V_READCHECK FCH$V_SCRATCH FCH$V_SHELVED FCH$V_SPOOLFCH$V_VCC_STATEFCH$V_WASCONTIGFCH$V_WRITCHECKFCH$V_WRITEBACK . ABS .P$CODEP$ABS$P$CODEww1\ۋ012FILE_IO0120-Dec-1995 17:4720-Dec-1995 17:47DEC Pascal V5.1-22RFILE_IOPsearch FNB:QFNB: QModify Eof: status=Q iosb=QExit handler: error modifying file:QExit handler: error deleting file:QExit handler: error deassigning disk:QOutput device type QRes_len:$CANEXH: status=Restart attr: status= Q IOSB: QUnlock status:QEOF: HWM:QWrite disk block No Size: Q Status: Q Iosb: QDeaccess out: status=Q Iosb=QOutput ACLQno room for atrQinit_extattrno room for atrQinit_outputattrQ: Y a une ACLQACL keptACL discardedQadd extension failedfile_io    8  [ ( ] 0 _ 8 g @  H P X $` ,h   x   [  ]  _  8            P(0\TP,(~   м\\<^ԭ PAS$HANDLERmЬ\l l(l,4 SYS$PARSEP\\[P`(`5PSICOPY_NODECNET\\\P<^ԭ PAS$HANDLERmЬ\l l(lЏ̞)ܟ PSICOPY_BUGSТST~\T LIB$MOVC3T !  .!%I2e=;dS  INPUT_FAB P INPUT_NAM %  INPUT_ESA %  INPUT_RSA %  INPUT_DELNM %  OUTPUT_ESA  OUTPUT_FAB %  INPUT_DIRENT   INPUT_DID  OUTPUT_NAM % | OUTPUT_RSA  ~ INPUT_CHAN   OUTPUT_CHAN  OUTPUT_DEVTYPE %  INPUT_DNA   INPUT_EFBLK   INPUT_FFBYTE  INPUT_BLOCK_NUM  OUTPUT_BLOCK_NUM  INIBLKPТP@PPQ-Q`QQYQQQP QT`QQQzQ*.*;QQ0QQ QQ #  )' .$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d5" # 'Q |(QxQPsiCopy Restart V1.0Q~PPQ6BQ3Q0QQWHQU QQQ Q!QAQ 7Q -Q #Q Q!Q!QQ QQQQQfQIQ~!QQQ Q_QaQQ Q~Q }Q}QpQQm QQ*QxQsQQ QQQ QQ QQ4Q=_QaQQQDQ QQ;Q ]Qe Q QQgQ  Q Q9Q/Q QQuQmQQ7#Q%QTQ GQQ QQ Q8QQ;_QaQQQ Q2Q_ QQQQQ Q!Q\QBQQoQ$QQQCQ Q-QQQWDQRuQtQ-QCQC@QOxQtQ^Q7Q:QQ QQyQZQ1uQQ]gQolQ:Q`EQ :QpQQQyQ/QIQQ#uQt5  RESTART_OPTION   SAVE_OUTPUT   OUTPUT_DNM %  OUTPUT_FNM  FIB   FIB_DESC   NULL_FID  INPUT_ATR t OUTPUT_ATR  ACL_ATR  RESTART_RECATTR  NULL_ATR  RESTART_ATR  FILE_ATTR   FILE_HWM  DESBLK   EXIT_STATUS %  PSICOPY_RESTARTID  ACE_BUFFER EXTDATES$$CODEd$LOCALLIB$INITIALIZELIB$INITIALIZEFILE_IO20-Dec-1995 17:47:48PAS$ENVIRONMENT_TIMECLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIMEPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIMED$CODE$$LOCALd LIB$INITIALIZEXFu֐lCD2USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]FILE_IO.PAS;405 L  PAS$FV_INPUTINPUTTEXT  CHAR  PAS$FV_OUTPUTOUTPUTR T3 NAM$S_DVI   ACP_QIO_EFN $CHECKPOINT_SIZE d" EXTATTR$K_ACL $EXTATTR$K_DATES 'OUTPUT_ATR_FIX_NUM 'OUTPUT_ATR_VAR_NUM #OUTPUT_ATR_NUM   FILL_QUAD@ TOTO  TUTURCHANNELR  INTEGER DEVICE_NAMEUNSIGNEDFAT$TYPE FAT$Q_FILL1R T3R R BOOLEANT3RR@ FAT$W_EFBLKH R  R RWORD R P FAT$W_EFBLKL R T3` FAT$W_FFBYTER T3p FAT$W_FILLER T3 FAT$Q_FILL3R T3 FAT$Q_FILL4R T3R`R@ FAT$L_EFBLK FILEXTATTR_T RFILEXTATTRPTR_TT3 FILEXTITEM_TITMTYPER T3 DATA RFILEXTITEMPTR_TT 3 EXTDATES_T CRERRR  @REVR T3 EXPR T3FAB$TYPER T 3T 3RR FAB$B_BIDR  R!R"R  FAB$B_BLN#R Tb 3FAB$R_IFI_OVERLAY$R %R  FAB$R_FOP_OVERLAY&R  'R @ FAB$L_STS` FAB$L_STV FAB$L_ALQ FAB$W_DEQ(R )R*R+R FAB$R_FAC_OVERLAY,R -R FAB$R_SHR_OVERLAY.R /R  FAB$L_CTX FAB$B_RTV0R 1R2R3R FAB$R_ORG_OVERLAY4R 5R FAB$R_RAT_OVERLAY6R 7R  FAB$B_RFM8R Tb 3FAB$R_JOURNAL_OVERLAY9R :R FAB$B_RU_FACILITY;R Tb 3FABDEF$$_FILL_7R?R   FAB$L_XAB@ FAB$L_NAM` FAB$L_FNA FAB$L_DNA FAB$B_FNS@R Tb 3 FAB$B_DNSAR Tb 3 FAB$W_MRSBR TU 3 FAB$L_MRN FAB$W_BLSCR TU 3 FAB$B_BKSDR Tb 3 FAB$B_FSZER Tb 3 FAB$L_DEV  FAB$L_SDC@ FAB$W_GBCFR TU 3PFAB$R_ACMODES_OVERLAYGR  HR XFAB$R_RCF_OVERLAYIR JR `FABDEF$$_FILL_9KR`LR FAB$W_IFIMR TU 3 FAB$L_FOP FAB$B_FACNR Tb 3 FAB$B_SHROR Tb 3 FAB$B_ORGPR Tb 3 FAB$B_RATQR Tb 3 FAB$B_JOURNALRR Tb 3P FAB$B_ACMODESSR Tb 3X FAB$B_RCFTR Tb 3UR`VRFAB$R_IFI_BITSWR XR  FAB$R_FOP_BITSYR  ZR FAB$R_FAC_BITS[R \R FAB$R_SHR_BITS]R ^R FAB$R_ORG_BITS_R `R FAB$R_RAT_BITSaR bR FAB$R_JOURNAL_BITScR dR PFAB$R_ACMODES_BITSeR fR XFAB$R_RCF_BITSgR hR iR[jR FAB$V_PPF_RATkR lRmRnR  FAB$V_PPF_INDoR T3 FAB$V_PPIFIpR T3 FAB$V_ASYqR T3! FAB$V_MXVrR T3" FAB$V_SUPsR T3# FAB$V_TMPtR T3$ FAB$V_TMDuR T3% FAB$V_DFWvR T3& FAB$V_SQOwR T3' FAB$V_RWOxR T3( FAB$V_POSyR T3) FAB$V_WCKzR T3* FAB$V_NEF{R T3+ FAB$V_RWC|R T3, FAB$V_DMO}R T3- FAB$V_SPL~R T3. FAB$V_SCFR T3/ FAB$V_DLTR T30 FAB$V_NFSR T31 FAB$V_UFOR T32 FAB$V_PPFR T33 FAB$V_INPR T34 FAB$V_CTGR T35 FAB$V_CBTR T36 FAB$V_SYNCSTSR T37 FAB$V_RCKR T38 FAB$V_NAMR T39 FAB$V_CIFR T3; FAB$V_ESCR T3< FAB$V_TEFR T3= FAB$V_OFPR T3> FAB$V_KFOR T3 FAB$V_PUTR T3 FAB$V_GETR T3 FAB$V_DELR T3 FAB$V_UPDR T3 FAB$V_TRNR T3 FAB$V_BIOR T3 FAB$V_BROR T3 FAB$V_EXER T3 FAB$V_SHRPUTR T3 FAB$V_SHRGETR T3 FAB$V_SHRDELR T3 FAB$V_SHRUPDR T3 FAB$V_MSER T3 FAB$V_NILR T3 FAB$V_UPIR T3 FAB$V_ORGR RRR  FAB$V_FTNR T3FAB$V_CRR T3 FAB$V_PRNR T3 FAB$V_BLKR T3 FAB$V_ONLY_RUR T3FAB$V_RUR T3FAB$V_BIR T3FAB$V_AIR T3FAB$V_ATR T3FAB$V_NEVER_RUR T3 l%$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"FAB$V_JOURNAL_FILER T3PFAB$V_LNM_MODER RRR RFAB$V_CHAN_MODER T3TFAB$V_FILE_MODER T3VFAB$V_CALLERS_MODER T3X FAB$V_RCF_RUR T3Y FAB$V_RCF_AIR T3Z FAB$V_RCF_BIR T3 INPUT_FABR T3NAM$TYPER T 3T3RR NAM$B_BIDR Tb 3 NAM$B_BLNR Tb 3 NAM$B_RSSR Tb 3 NAM$B_RSLR Tb 3 NAM$L_RSA@NAM$R_NOP_OVERLAYR R H NAM$B_RFSR Tb 3P NAM$B_ESSR Tb 3X NAM$B_ESLR Tb 3` NAM$L_ESA NAM$L_RLF NAM$T_DVI NAM$R_FID_OVERLAYR 0R PNAM$R_DID_OVERLAYR 0R NAM$R_WCC_OVERLAYR  R NAM$R_FNB_OVERLAYR  R  NAM$B_NODER Tb 3 NAM$B_DEVR Tb 3 NAM$B_DIRR Tb 3 NAM$B_NAMER Tb 3 NAM$B_TYPER Tb 3 NAM$B_VERR Tb 3NAMDEF$$_FILL_6RRR T 3  NAM$L_NODE  NAM$L_DEV@ NAM$L_DIR` NAM$L_NAME NAM$L_TYPE NAM$L_VERNAMDEF$$_FILL_7RRR RR@ NAM$B_NOPR Tb 3  NAM$W_FIDRRR TU 3 P NAM$W_DIDRRR TU 3  NAM$L_WCC NAM$L_FNBRR@NAM$R_NOP_BITSR R  NAM$R_FID_FIELDSR 0R PNAM$R_DID_FIELDSR 0R NAM$R_WCC_BITSR  R NAM$R_FNB_BITS0R R RR@ NAM$V_PWDR T3A NAM$V_FILL_1R T3B NAM$V_FILL_2R T3C NAM$V_SYNCHKR T3DNAM$V_NOCONCEALR T3E NAM$V_SLPARSER T3FNAM$V_SRCHXABSR T3  NAM$W_FID_NUMR TU 30 NAM$W_FID_SEQR TU 3@NAM$R_FID_RVN_OVERLAYR R P NAM$W_DID_NUMR TU 3` NAM$W_DID_SEQR TU 3pNAM$R_DID_RVN_OVERLAYR R  NAM$V_IFIR T3 NAM$V_SRCHNMFR T3 NAM$V_SVCTXR T3 NAM$V_EXP_VERR T3NAM$V_EXP_TYPER T3NAM$V_EXP_NAMER T3NAM$V_WILD_VERR T3NAM$V_WILD_TYPER T3NAM$V_WILD_NAMER T3 NAM$V_EXP_DIRR T3 NAM$V_EXP_DEVR T3NAM$V_WILDCARD R T3NAM$V_SEARCH_LIST R T3NAM$V_CNCL_DEV R T3NAM$V_ROOT_DIR R T3 NAM$V_LOWVER R T3 NAM$V_HIGHVERR T3 NAM$V_PPFR T3 NAM$V_NODER T3 NAM$V_QUOTEDR T3 NAM$V_GRP_MBRR T3NAM$V_WILD_DIRR T3NAM$V_DIR_LVLSR RRR RR@ NAM$W_FID_RVNR TU 3p NAM$W_DID_RVNR TU 3NAM$R_FNB_BITS1R  R RR@NAM$R_FID_RVN_FIELDS R !R pNAM$R_DID_RVN_FIELDS"R #R NAM$V_WILD_UFD$R T3NAM$V_WILD_SFD1%R T3NAM$V_WILD_SFD2&R T3NAM$V_WILD_SFD3'R T3NAM$V_WILD_SFD4(R T3NAM$V_WILD_SFD5)R T3NAM$V_WILD_SFD6*R T3NAM$V_WILD_SFD7+R T3,R-R@ NAM$B_FID_RVN.R Tb 3H NAM$B_FID_NMX/R Tb 3p NAM$B_DID_RVN0R Tb 3x NAM$B_DID_NMX1R Tb 3NAM$R_FNB_BITS22R  3R 4R5RNAM$V_WILD_GRP6R T3NAM$V_WILD_MBR7R T3P INPUT_NAM8R T3 FILE_NAME  INPUT_ESA9R T(3 INPUT_RSA:R T(3 INPUT_DELNM;R T(3 OUTPUT_ESA<R T(3 OUTPUT_FAB=R T3 INPUT_DIRENT>R T(3 INPUT_DID?R@RAR T3  OUTPUT_NAMBR T3| OUTPUT_RSACR T(3~ INPUT_CHANDR T3 OUTPUT_CHANER T3OUTPUT_DEVTYPE INPUT_DNAFR T(3 INPUT_EFBLK INPUT_FFBYTEGR T3INPUT_BLOCK_NUMOUTPUT_BLOCK_NUM INIBLKRESTART_OPTION SAVE_OUTPUT OUTPUT_DNM CLI_PARAMETER  OUTPUT_FNMHR T:+3FIB$TYPEIR T 3T+3JRKRFIB$R_ACCTL_OVERLAYLR  MR  FIB$R_FID_OVERLAYNR 0OR PFIB$R_DID_OVERLAYPR 0QR  FIB$L_WCCFIB$R_NMCTL_OVERLAYRR SR FIB$R_EXCTL_OVERLAYTR UR  FIB$L_EXSZ FIB$L_EXVBNFIB$R_ALOPTS_OVERLAYVR WR  FIB$B_ALALIGNXR Tb 3FIB$R_ALLOC_OVERLAYYR PZR `FIB$W_VERLIMIT[R TU 3pFIB$B_AGENT_MODE\R Tb 3xFIB$B_RU_FACILITY]R Tb 3 FIB$L_ACLCTXFIB$L_ACL_STATUSFIB$R_STATUS_OVERLAY^R  _R FIB$L_ALT_ACCESSFIB$R_FUNCDEPEND`R @aR @FIB$W_FILE_HDRSEQ_INCRbR TU 3PFIB$W_DIR_HDRSEQ_INCRcR TU 3`FIB$W_FILE_DATASEQ_INCRdR TU 3pFIB$W_DIR_DATASEQ_INCReR TU 3fRgR FIB$L_ACCTL FIB$W_FIDhRiRjR TU 3 P FIB$W_DIDkRlRmR TU 3  FIB$W_NMCTLnR TU 3 FIB$W_EXCTLoR TU 3 FIB$B_ALOPTSpR Tb 3 FIB$W_ALLOCqRrRsR TU 3   FIB$L_STATUStR@uRFIB$L_MOV_SVBN FIB$L_MOV_VBNCNTvRwR FIB$V_NOWRITExR T3 FIB$V_DLOCKyR T3FIB$V_BLK_LOCKzR T3FIB$V_FASTRDSQNOS{R T3 FIB$V_SPOOL|R T3 FIB$V_WRITECK}R T3 FIB$V_SEQONLY~R T3 FIB$V_SEQNOR T3 FIB$V_WRITER T3 FIB$V_READCKR T3 FIB$V_NOREADR T3 FIB$V_NOTRUNCR T3 FIB$V_CONTROLR T3 FIB$V_NO_READ_DATAR T3 FIB$V_EXECUTER T3FIB$V_PRSRV_ATRR T3 FI $ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d~"B$V_RMSLOCKR T3FIB$V_WRITETHRUR T3 FIB$V_NOLOCKR T3FIB$V_NORECORDR T3FIB$V_NOVERIFYR T3FIB$V_CHANGE_VOLR T3 FIB$W_FID_NUMR TU 30 FIB$W_FID_SEQR TU 3P FIB$W_DID_NUMR TU 3` FIB$W_DID_SEQR TU 3 FIB$V_ALLVERR T3 FIB$V_ALLTYPR T3 FIB$V_ALLNAMR T3 FIB$V_WILDR T3 FIB$V_NEWVERR T3FIB$V_SUPERSEDER T3 FIB$V_FINDFIDR T3 FIB$V_LOWVERR T3 FIB$V_HIGHVERR T3 FIB$V_ALCONR T3 FIB$V_ALCONBR T3 FIB$V_FILCONR T3 FIB$V_ALDEFR T3FIB$V_ALLOCATRR T3 FIB$V_EXTENDR T3 FIB$V_TRUNCR T3FIB$V_NOHDREXTR T3 FIB$V_MARKBADR T3 FIB$V_NOPLACER T3FIB$V_NOCHARGER T3 FIB$V_EXACTR T3 FIB$V_ONCYLR T3@FIB$L_LOC_ADDR FIB$V_ALT_REQR T3FIB$V_ALT_GRANTEDR T3 FIB$V_DIRACLR T3FIB$V_PROPAGATER T3FIB$V_NOCOPYACLR T3FIB$V_NOCOPYOWNERR T3FIB$V_NOCOPYPROTR T3FIB$V_EXCLPREVIOUSR T3FIB$V_ALIAS_ENTRYR T3FIB$V_WILDFID_FLAGR T3R@R@ FIB$W_FID_RVNR TU 3p FIB$W_DID_RVNR TU 3 FIB$W_LOC_FIDRRR TU 3 RR FIB$V_REWINDR T3 FIB$V_CURPOSR T3 FIB$V_UPDATER T3R0R@ FIB$B_FID_RVNR Tb 3H FIB$B_FID_NMXR Tb 3p FIB$B_DID_RVNR Tb 3x FIB$B_DID_NMXR Tb 3 FIB$W_LOC_NUMR TU 3  FIB$W_LOC_SEQR TU 3R@R FIB$B_WSIZER T 30 FIB$W_LOC_RVNR TU 3RR  FIB$W_FID_DIRNUMR TU 30FIB$L_FID_RECNUMPFIB$W_DID_DIRNUMR TU 3`FIB$L_DID_RECNUMR@R 0 FIB$B_LOC_RVNR Tb 38 FIB$B_LOC_NMXR Tb 3  FIBR Tv+3 FIB_DESCRRR  NULL_FIDRRR T3 ATR$TYPE@ ATR$W_SIZER TU 3 ATR$W_TYPER TU 3 ATR$L_ADDR  INPUT_ATRRRRT=3 h t  OUTPUT_ATRRRRT=3 P  ACL_ATRRRRT=3  RESTART_RECATTRR T[3 NULL_ATRR T=3  RESTART_ATRRRRT=3 ATR_LIST UCHAR RECATTRRRR R   RBYTER  ASCDATESRRR T%?3 ## 8FPROR T3 HRPROR T3 XSEMASKRRR T%?3 STATBLK R T 3T@3RRSBK$R_STLBN_OVERLAYR  R  SBK$R_FILESIZE_OVERLAYR  R @ SBK$B_ACNTR Tb 3H SBK$B_LCNTR Tb 3P SBK$L_FCBpSBKDEF$$_FILL_1R T- 3 SBK$W_ACNTR TU 3 SBK$W_LCNTR TU 3 SBK$W_WCNTR TU 3 SBK$W_TCNTR TU 3 SBK$L_READS SBK$L_WRITESR@R SBK$L_STLBN SBK$L_FILESIZERR R@ R SBK$W_STLBNH R TU 3 SBK$W_STLBNL R TU 3 SBK$W_FILESIZH R TU 30SBK$W_FILESIZLR TU 3  FILE_ATTRR T>3 FILE_HWM  DESBLK LINK ROUTINE@ARG_NUM`ARG_ADDR  EXIT_STATUS#ATR$S_RESERVED | PSICOPY_RESTARTIDz " ATR$S_READACE ACE$TYPER T 3TC3RR ACE$B_SIZER Tb 3 ACE$B_TYPER Tb 3ACE$R_FLAGS_OVERLAYR R  ACE$R_ACE_FIELDSR pR R R ACE$W_FLAGSR TU 3RRR`RACE$V_INFO_TYPE R T@3 ACE$L_ACCESS@ ACE$L_KEY!R"R@ACE$T_AUDITNAME#R%$RACE$V_RESERVED%R T@3 ACE$V_READ&R T3! ACE$V_WRITE'R T3" ACE$V_EXECUTE(R T3# ACE$V_DELETE)R T3$ ACE$V_CONTROL*R T3+R,R-R.R ACE$V_SUCCESS/R T3 ACE$V_FAILURE0R T31RH2R  ACE$L_INFO_FLAGS@ACE$T_INFO_START3R4R  ACE$V_DEFAULT5R T3ACE$V_PROTECTED6R T3 ACE$V_HIDDEN7R T3ACE$V_NOPROPAGATE8R T39R:R  ACE$W_APPLICATION_FLAGS;R TU 3!0ACE$W_APPLICATION_FACILITY<R TU 3@ACE$W_RMSATR_VARIANT=R TU 3PACE$B_RMSATR_FIXLEN>R Tb 3`ACE$W_RMSATR_MINOR_ID?R TU 3pACE$W_RMSATR_MAJOR_ID@R TU 3ARBR ACE$L_RMS_ATTRIBUTE_FLAGSCRDR ERFRACE$V_STATISTICSGR T3ACE$V_XLATE_DECHR T3IRJRKRLR ACE$T_VOLNAM ACE$B_VOLNAM_LENMR Tb 3 ACE$B_RJRVERNR Tb 3ACE$R_FID_OVERLAYOR 0PR  ACE$L_JNLIDX ACE$Q_CDATE @ L0  L10ACE$L_BACKUP_SEQNOPACE$Q_MODIFICATION_TIMEQR T7J3RRSR ACE$W_FIDTRURVR TU 3 ACE$W_RMSJNL_FLAGSWR TU 3XRYRACE$R_FID_FIELDSZR 0[R \R]R ACE$W_FID_NUM^R TU 3 ACE$W_FID_SEQ_R TU 3ACE$R_FID_RVN_OVERLAY`R aR ACE$V_JOURNAL_DISABLEDbR T3ACE$V_BACKUP_DONEcR T3dReR ACE$W_FID_RVNfR TU 3gRhRACE$R_FID_RVN_FIELDSiR jR kRlR ACE$B_FID_RVNmR Tb 3 ACE$B_FID_NMXnR Tb 3oRpRqRrR ACE$L_SPARE1@ACE$L_SYS_PROT`ACE$L_OWN_PROTACE$L_GRP_PROTACE$L_WOR_PROTsRtR׼e$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51da"uRvR ACE$L_SPARE2@ACE$Q_IMAGE_IDSwR T7J3xRyRzRh{R ACE$L_OIL_FLAGS@ACE$L_BRAND_NAME`ACE$R_CLASS_PROT ACE_BUFFER|R TC3EXTDATES}R T}3 FAB$C_BID  FAB$C_BLN P NAM$C_BID  NAM$C_BLN `! NAM$C_MAXRSS   FAB$M_OFP  " FIB$K_ACCDATA    ATR$S_UCHAR   ATR$C_UCHAR " ATR$S_RECATTR  " ATR$C_RECATTR #ATR$S_ASCDATES ##ATR$C_ASCDATES   ATR$S_FPRO  ATR$C_FPRO  ATR$S_RPRO  ATR$C_RPRO ! ATR$S_SEMASK ! ATR$C_SEMASK " ATR$S_STATBLK  " ATR$C_STATBLK  $ATR$S_HIGHWATER $ATR$C_HIGHWATER )" ATR$C_READACE '" ATR$S_CREDATE " ATR$C_CREDATE " ATR$S_REVDATE " ATR$C_REVDATE " ATR$S_EXPDATE " ATR$C_EXPDATE #ATR$C_RESERVED ( INIT_FILE_IO  DSWPVBNM~RSWPVBNbd RSWPVBNbd RVBNMO RSWAPP` R T3 TWS3R R TOTALR R HIGHR T3 LOWR T3RINTERU\ R T3 $"tLOCAL_SETINIBLKz&RBLKz| $)LOCAL_INPUT_FILE_SPECSRLOCAL_INPUT_FILE_SPECS// RLOCAL_INPUT_FILE_SPECS// R INPUT_PARR T:+3RSTATUS( PSICOPY_NODECNETPSICOPY_NODECNET   SYS$PARSE$PARSE*4LOCAL_OUTPUT_FILE_SPECS^RLOCAL_OUTPUT_FILE_SPECSRLOCAL_OUTPUT_FILE_SPECSR OUTPUT_PARUR T:+3 l SS$_NORMAL  FDID_TYPE FIDRRR T3  0DVI(LOCAL_NEXT_INPUT_FILE INPUT_FDIDR T,V3RLOCAL_NEXT_INPUT_FILE??RLOCAL_NEXT_INPUT_FILE??RSTATUS  SYS$SEARCH$SEARCH DEBUGDEBUG  NETR T3 MAINR T3 DATAR T3 CRCR T3 LOGR T3 LOGINR T3 INTERR T3 SERVERR T3FILE_IOR T3 RESTARTR T3 THROTTLER T3 COMPRESSR T3$ INIT_THROTTLE INIT_THROTTLE(LOCAL_OPEN_INPUT_FILEINPUT_FILE_ATRR T>3INPUT_FILE_EXTATTRR T3RLOCAL_OPEN_INPUT_FILE  RLOCAL_OPEN_INPUT_FILE  RIOSB{RRR T3 RSTATUS[REXTLEFT REXTPTRR Ta3 8#ADDEXTM#}RCODEE##RSIZEI##RADDRESSM## )  READ_ACL R READ_ACL1#7#R READ_ACL1#7#R ACERECPTRRACEREC NEXTR TM[3 ACER TC3RIOSB4!"RRR T3 RSTATUS4!6#RACLSIZE "#RACLLINK4!# R TM[3RACLROOT #R TM[3RACLBUF"#RACEPTR"#RSTR4!"ٴ 4ACEDRRR    PSICOPY_BUG PSICOPY_BUG LIB$MOVC3 LIB$MOVC3 PSICOPY_DEBUG PSICOPY_DEBUGSYS$FORMAT_ACL $FORMAT_ACL&ACE$C_APPLICATION  SYS$QIOW$QIOW SYNCH_EFN SYNCH_EFN IO$_ACCESS 2" SS$_NOMOREACE   LIB$GET_VM LIB$GET_VM LIB$FREE_VM LIB$FREE_VM! FIB$K_LENGTH P SYS$ASSIGN$ASSIGN  IO$M_ACCESS @*hLOCAL_LOCATE_INPUT_FILERLOCAL_LOCATE_INPUT_FILE RLOCAL_LOCATE_INPUT_FILE R  SEARCH_FDID~R T,V3R DELETE_FDIDR T,V3RSTATUS R STOP_SEARCHR POUBELLE_ATRPR T>3RPOUBELLE_EXTATTRR T3 > RMS$_NMF ʂ RMS$_FNF %LOCAL_RESTART_READRLOCAL_RESTART_READ RLOCAL_RESTART_READ RBLOCKNO *LOCAL_REWIND_INPUT_FILE oRLOCAL_REWIND_INPUT_FILERLOCAL_REWIND_INPUT_FILE *LOCAL_PARSE_OUTPUT_FILEF'RLOCAL_PARSE_OUTPUT_FILE RLOCAL_PARSE_OUTPUT_FILE R INPUT_FILE9R T(3RFNBF RSTATUSPSICOPY_NODECNETPSICOPY_NODECNET , 4 ESTABLISH_ANOMALY_HANDLER6   SYS$DCLEXH$DCLEXH MODIFYEOFR MODIFYEOFl l  R MODIFYEOFl l  REOFBLK RIOSBh RRR T3 RSTATUSj  3 IO$_MODIFY 6DBGMESSDBGMESS TRANSFER_OPTIONS DELETE_INPUTR T3COMPRESSR T3 CRCR T3 RESTARTINGR T3RESTARTR T3%P ACCESS_OUTPUT_FILEr  OUTPUT_FDIDR T,V3RACCESS_OUTPUT_FILE RACCESS_OUTPUT_FILE RCREATEd . R OUTPUT_OPTk R T%d3R OPT_ATTRo  RSTATUS   RST1( RFUNC3  R T3RIOSB  RRR T3 RRES_LENV R T3R NAME_DESCb RRR R RES_DESC  R Tf3  LIB$GETDVI LIB$GETDVI! DVI$_DEVTYPE   FIB$M_WRITE ! FIB$M_NOREAD   FIB$M_DLOCK  IO$_CREATE 3  IO$M_CREATE  DT$_NULL  SYS$CANEXH$CANEXH)LOCAL_OPEN_OUTPUT_FILE >$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dG"OUTPUT_FDIDR T,V3 RLOCAL_OPEN_OUTPUT_FILE RLOCAL_OPEN_OUTPUT_FILE R NEW_ATTRp R T>3 R EXT_ATTR-R T3R OUTPUT_OPTR T%d3RSTATUSR EXTATTRPTR>R OUTATRNUM*R FILE_SIZE!  R T3 Tj3R R HIGHR T3 LOWR T3R R TOTAL FCH$M_CONTIG FCH$M_CONTIG FCH$M_CONTIGB FCH$M_CONTIGB INIT_EXTATTR$i MAXEXTATR RITEMPTR1R Ta3R SIZELEFT,R EXTATRNUM&&<EXT_ATR R!R"RT=3 (PSICOPY_UNKEXTATTRPSICOPY_UNKEXTATTRPSICOPY_INVEXTATTRLSTPSICOPY_INVEXTATTRLST D NEXTOUTPUTATRN   NEXTEXTATR   ADDACLATR@#RSTR@  P ADDDATESATRfI$R DATESPTRkn%RT}3    l$ATR$C_ADDACLENT  PSICOPY_ERROR PSICOPY_ERRORLIB$STOP ERROR_STOP! FIB$M_EXTEND *LOCAL_OPENR_OUTPUT_FILE OUTPUT_FDID&R T,V3 OUTPUT_INIBLK'RLOCAL_OPENR_OUTPUT_FILE""(RLOCAL_OPENR_OUTPUT_FILE"")R NEW_ATTRD*R T>3+R OUTPUT_OPT,R T%d3-R INPUT_FDIDJ.R T,V3/RIOSBz0R1R2R T3 3RSTATUSlO4REOFBLKM FCH$M_LOCKED FCH$M_LOCKED PB" FIB$K_DIRDATA  BLOCK_TYPE ($LOCAL_GET_INPUT_BLOCK6 BLOCK5R Tzo36RLOCAL_GET_INPUT_BLOCKHH7RLOCAL_GET_INPUT_BLOCKHH8RSTATUSaFPSICOPY_READ_INPUTPSICOPY_READ_INPUT9RIOSB @ STATUS:R T3 LENGTH;R BLOCK_SIZE<R 0RESERVED=R T3FCH$M_DIRECTORYFCH$M_DIRECTORY>RBYTENUM?R@R  (j" MAX_BLOCK_LEN " SS$_ENDOFFILE p! IO$_READVBLK 1)LLOCAL_PUT_OUTPUT_BLOCKQJ BLOCKAR Tzo3BRLOCAL_PUT_OUTPUT_BLOCK  CRLOCAL_PUT_OUTPUT_BLOCK  DRSTATUSERIOSBx @ STATUSFR T3 LENGTH0RESERVEDGR T3 %" IO$_WRITEVBLK 0'$LOCAL_DEACCESS_INPUT&iHRLOCAL_DEACCESS_INPUTIRLOCAL_DEACCESS_INPUT  SYS$DASSGN$DASSGN&LOCAL_DELETE_OUTPUTpJRLOCAL_DELETE_OUTPUT KRLOCAL_DELETE_OUTPUT LRSTATUSjs MRIOSBPoNRORPR T3 QR NAME_DESC0CRRSRTR  C IO$_DELETE 5  IO$M_DELETE (8LOCAL_DEACCESS_OUTPUT= URLOCAL_DEACCESS_OUTPUT VRLOCAL_DEACCESS_OUTPUT WRSTATUSO XRIOSBnYRZR[R T3  $! IO$_DEACCESS 4+p DELETE_OUTPUT_IF_ANOMALYv \RSTATUS   ]RMESS  ٬P ^RIOSB_R`RaR T3  %LOCAL_DELETE_INPUTjbRLOCAL_DELETE_INPUTcRLOCAL_DELETE_INPUTdRSTATUSpueRIOSBSsfRgRhR T3 iR NAME_DESC3FjRkRlR  d'xPASCAL%DEBUG_SUPPORTz' SAVED_PC_PSL DBG_STACKmRnRoR pRPASCAL%DEBUG_SUPPORTqRPASCAL%DEBUG_SUPPORTrR FOR_INDEXsR CURRENT_MAX 4tRS !S!S !S !ST3S !S" S ! ST3 S! S !S !S !S !S !S !S"S!S !S!S0!S,"SS !S !S !S !S"S ! STb 3!S!#S !$S !%ST 3&S !'ST 3(S !)STU 3*S!,S !-ST 3.S !/ST 30S !1ST 32S!4S !5STF 36S !7ST{ 38S !9S !:ST 3;S !S!@S !AS !BS !CS !DS !ES !FS !GS !HST 3IS !JST 3KS !LS"MS !NS !OS !PS !QS !RS !SS !TS !US !VS"WS !XSTk3YS !ZST3[S !\ST3]S !^ST3_S !`ST33aS !bSTe3cS !dST3eS !fST3gS !hST3iS !jS"kS !lSTB3mS!oS !pS !qS !rS !sS !tS !uS !vS !wS !xS !yS !zS !{S !|S !}S !~S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !ST@3S!S !S !S !S !S !S !S !S !S !S !S !S !ST3S!S !S !S !S !S !S !S !S !S !S"S !S !S !S !S !ST3S !S !S !S !ST3S !ST3S !ST+3S !ST`3S !S !S !S !S !S !S7!S3"S S0!S,"SS !S"S !S7!S3"S S7!S3"S S !S"S !ST>3S !STr3S !ST3S !ST3S !ST 3S !S"S !S !S !S !S !S !S !S !S !S !ST!3S !S !S !ST"3S !S !S !S !S !S !S !S !S !S !S ! S ! S ! S ! S ! S !S !S !S !S !S !S !S !ST<%3S!S !S"S !S !S !ST%3S !S" S !!ST&3"S !#STK&3$S !%S !&S !'S !(S !)S !*S !+S !,S !-S".S !/S !0S !1S !2S !3ST?(34S !5S"6S !7S !8S !9S !:S !;S !<S !=S !>S !?S7!@S3"AS BS !CS !DS !ES !FS !GS !HS !IS !JS !KS"LS !MST+3NS !OST,3PS !QSTQ,3RS !SST,3TS !UST,3VS !WST--3XS !YS !ZST-3[S !\S !]S !^S !_ST\.3`S !aST.3bS !cS !dS !eS !fS !gS"hS7!iS3"jS kS7!lS3"mS nS !oS !pS !qS7!rS3"sS tS !uS"vS !wS"xS !yS !zS !{S !|S !}S !~S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d!"S !S !S !S !S !S !S !S !S !S !S"S !S !S7!S3"S S !S"S !S !S !S !S"S !S !S !S !S !S !S !S"S !S !S !S"S !S !S !S"S !S !S !S0!S,"SS7!S3"S S !S !S3!S/"SS3!S/"SS3!S/"SS !S !S3!S/"SS7!S3"S ST%?3S!S7!S3"S S !S !S7!S3"S S !S !S"S !ST{@3S !ST@3S !S !S !S !S !S !S !S !S"S !S" S ! S" S ! S ! S !S !S !S !S !S"S !S !S !ST}D3S !STD3S !S"S !S !S"S !S" S !!S !"S"#S !$S"%S !&S !'S !(S !)S !*S !+S !,S"-S !.S"/S !0S !1S !2S"3S !4S"5S !6S !7S !8S !9S !:S";S !<S !=S !>S !?S !@S !AS !BS"CS !DS"ES !FS"GS !HS !IS !JS"KS !LS"MS !NS !OS !PSTJ3QS !RS !SS"TS7!US3"VS WS !XS !YS"ZS ![STOK3\S !]S"^S !_S !`S !aSTK3bS !cS !dS !eS"fS !gS !hS"iS !jSTL3kS !lS"mS !nS !oS !pS"qS !rS"sS !tS"uS !vS"wS !xS !yS"zS !{S"|S !}S !~S!S!S!S!S !S !S"S !S"S !S !S!S !S!S/!S/!S"!S !S!S0!S0!S#!S !S7!S3"S S !S.!S.!S!S !S !S !S !S !S !S !S !S !S !S !S !S !S !S.!S.!S!S7!S3"S S!S !S!S !S!S!S !S!!S!!S!STc[3S !S !S!S7!S3"S S!S !S !S !S !S !S!S!S!S0!S,"SS0!S0!S$!S !S$!S !S!S$!S%!S !S)!S !S+!S+!S !S0!S0!S0!S0!S#!S !S!S!S"!S"!S!S!S7!S3"S S!S !S !S !S !S !S !S+!S+!S!S#!S !S!!S!S!S!S !S!S7!S3"S S !S !S"!S0!S,"SS!!S !S ! S/! S/! S!! S ! S!!S !S#!S !S!S#!S"!S"!S !S !S"S !S !S !S"S !S !S!!S"! S3!!S/""S#S!$S!!%S !&S !'S0!(S0!)S!!*S !+S#!,S !-S#!.S !/S!0S7!1S3"2S 3S!4S!5S !6S.!7S.!8S!9S!:S !;S!!=S !>S !?S!AS !BS/!CS/!DS!ES!FS !GS !HS-!IS-!JS,!KS,!LS!MS!NS7!OS3"PS QS"!RS0!SS,"TSUS.!VS.!WS!XS!YS7!ZS3"[S \S!]S!^S!_S7!`S3"aS bS+!cS+!dS!eS!fS7!gS3"hS iS"!jS0!kS,"lSmS0!nS,"oSpS-!qS-!rS"!sS$!tS) PAS$FV_INPUTPSICOPY_READ_INPUTww1'W07 HASH_PASSWORD010-JAN-1994 16:35 VAX MACRO V5.4-39MACRO/NOLIST/OBJECT=HASH_PASSWORD.OBJ HASH_PASSWORD.MAR(-- interface $HASH_PASSWORD & LGI$HPWD HASH_PASSWORDLGI$HPWD . ABS .P$ABS$ PP,$CODEP SYS$HASH_PASSWORD&3Ѭ }~^PЬ} ~}~PLGI$HPWDPPSYS$HASH_PASSWORD$CODE,ww1o]PSICOPY X4.0-1=HEADERPSICOPY X4.0-121-DEC-1995 18:51 VAX MACRO V5.4-3+MACRO/NOLIST/OBJECT=HEADER.OBJ HEADER.MAR-- link & ident stuff HEADERb EDIT_LEVEL MAJOR_VERSION MINOR_VERSIONPSICOPY  X25_IDENT . ABS .P$RODATA&PQPSICOPY X4.0-1QQ $CODEP DEBUT&lPSICOPY DEBUT*$RODATA$CODE  ww1<00.HPWD010-JAN-1994 16:27 VAX MACRO V5.4-3/MACRO/NOLIST/OBJECT=HPWD_SYS.OBJ HPWD_SYS.MAR-- hash user password HPWD SS$_BADPARAM . ABS .P _LIB$CODEpPd n;0&AvQkkXaM^^V}f ,f  f Q QQ) QEQGQ,QQ Q* QQaQQ QQKxQQ (Q3QQ uQ{8Q(Q%QQQGQQ QQQ Q;Q9Q>Q:Q9MQ>Q:Q9 Q/Q85Q13PSICOPY_OPENOUT NEW_OUTPUT_FILELOCAL_OPENR_OUTPUT_F.ILELOCAL_OPEN_OUTPUT_FILE  NEXT_FILEPSICOPY_OUT_PARSERMS$_NMFPSICOPY_RSTLOCINPPSICOPY_IN_SEARCH % INPUT_ESALOCAL_LOCATE_INPUT_FILELOCAL_NEXT_INPUT_FILE  INPUT_NAM NEW_INPUT_FILELOCAL_PARSE_OUTPUT_FILELOCAL_OUTPUT_FILE_SPECSLOCAL_INPUT_FILE_SPECSPSICOPY_NOTSUPP$$CODE$LOCALHPWD10-Jan-1994 16:27:07PAS$ENVIRONMENT_TIMERESTART20-Dec-1995 17:52:13PAS$ENVIRONMENT_TIME DATA_TRANSFER20-Dec-1995 /17:51:30PAS$ENVIRONMENT_TIME COMPDECOMP20-Dec-1995 17:50:57PAS$ENVIRONMENT_TIMEFILE_IO20-Dec-1995 17:47:48PAS$ENVIRONMENT_TIMECLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIME PSINETWORK20-Dec-1995 17:48:48PAS$ENVIRONMENT_TIMEPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIMEB:$CODE$$LOCALVD~l<0USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]INTER.PAS;230   PAS$FV_INPUTINPUTTEXT  CHAR0  PAS$FV_OUTPUTOUTPUTR T13 NET$IT_WRTERRNET$IT_READERRNET$IT_RETRANSMIT NET$IT_ACK NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTP NET$C_DEACCESS NET$C_END NET$C_LOGIN NET$C_PASSWORD NET$C_DELINP NET$C_STATUS NET$C_CRC NET$C_RESUME NE1T$C_NETERR NET$C_INLOCNET$C_OPENOUTR NET$C_BOOT NET$_FROMNET$_TO LOCAL_INPUT LOCAL_OUTPUTATR_LIST UCHAR RECATTRRRR R   RR  INTEGER ASCDATESR R R T 3 ## 8FPRO R  R RWORDR  HRPROR 2T3 XSEMASKRRR T 3 STATBLK R T83T?3RRSBK$R_STLBN_OVERLAYR  R  SBK$R_FILESIZE_OVERLAYR  R @ SBK$B_ACNTR RRR H SBK$B_LCNTR T 3P SBK$L_FCBpSBKDEF$$_FILL_1R  R!($ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"23R"R  SBK$W_ACNT#R $R%R&R  SBK$W_LCNT'R T 3 SBK$W_WCNT(R T 3 SBK$W_TCNT)R T 3 SBK$L_READS SBK$L_WRITES*R@+R SBK$L_STLBN SBK$L_FILESIZE,R-R.R@/R SBK$W_STLBNH0R  T 3 SBK$W_STLBNL1R T 3 SBK$W_FILESIZH2R T 340SBK$W_FILESIZL3R T 3FILE_ATR4R T3 FILEXTATTR_T x FILE_EXTATTR5R TH 3TRANSFER_OPTIONS DELETE_INPUT6R 7R BOOLEANCOMPRESS8R T 3 CRC9R T 3 RESTARTING:R T 3RESTART;R T 3| GLOBAL_OPTR 5T 3INPUT_TRANSFER_OPTIONS?R T 3OUTPUT_TRANSFER_OPTIONS@R T 3INPUT_OPTIONS_MASKAR T 3OUTPUT_OPTIONS_MASKBR T 3 FILE_MAP_LEN FILE_MAP_ADDRINPUT_DELETE_PENDING VERSION_TYPE MINORCR T 3 MAJORDR T 3 FROM_VERSIONER T} 3 TO_VERSIONFR T} 3 DO_OUTSPECS CLI_PARAMETER6  INPUT_CTX @0CNX_CHGCNX_ACT ADRGR T3 PWDHR T3 0 PWD2IR T3 PSI_OPTIONS WINDOW THRUCLS@PKTSIZE `CUGJR T3pTEMPLATEKR T3 CTYPE OPT  WINDOWLR T 3 REVCHGMR T 3THRUCLSNR T 3PKTSIZEOR T7 3 CUGPR T 3TEMPLATEQR T 3 CTYPERR T 3 INPUT_PSI_OPTSR T3 OUTPUT_PSI_OPTTR T3 CUR_PARNUMVALID_RESTART_FILEUNSIGNEDPSICOPY_STREAM_PURGEPSICOPY_STREAM_PURGESTART_BLOCK_OFFSET V1_VERSIONUR T} 3" CHECK_COMPAT"ORIG_OPTVR T 3WR OPT_MASK"#XR T8 3YR INPUT_LINK""# ERRCOMPAT#$ TEXTZR[R $L1 $U1PSICOPY_NOTSUPPPSICOPY_NOTSUPP\R TEXT_DESC-$n$]R^R_R i  ( PSICOPY_ERROR PSICOPY_ERRORTABLINKTABLINK`RaRbRcRTk3H H @:X25_CHANdR T39MBX_CHANeR T3 IOSB @ IOSB_STATUSfR T3 IOSB_COUNTgR T3 IOSB_UINFOhR T30 IOSB_SINFOiR T3`MBX_IOSBjR T3 CAUSEkR T 3 DIAGlR T 3 REASONmR T 3GOTCAUSEGOTDIAG GOTREASON CONNECTEDFINISHEDCLEARED LOGERRMBX_BUF :MSGTYPEnR T3 UNIToR T3 NAME SIZEpR T 3 DATA INFO  SIZEqR T 3 DATArRsRtR T 3 E SAVADDRuR T3CNX_OPTSvR T3"PARSE_NAME_ADDR NAMEwR T3 ADDRxR T3yR;PARSE_NAME_ADDR' - zRPARSE_NAME_ADDR' - {R POSDELIM"  !GET_LINK_CHARS- DTE|R T3 PWD}R T3 PWD2~R T3RGET_LINK_CHARSrRGET_LINK_CHARSrR QUAL_NAME!ER T3 B CLI$PRESENT CLI$PRESENT CLI$GET_VALUE CLI$GET_VAL<UE GET_NUMERICREADVALR GET_NUMERIC(R GET_NUMERIC(RPARR T3RDATA R T3 ,DCLINIT@RDCLINITRDCLINITRSTATUSo SS$_NORMAL SS$_NORMAL ` START_RESTART START_RESTART COMPRESS_=SEEN COMPRESS_SEENDEFAULT_PSI_OPTIONSDEFAULT_PSI_OPTIONSR T3'l GET_INPUT_FILE_SPECS RGET_INPUT_FILE_SPECS  RGET_INPUT_FILE_SPECS  R INPUT_NAME  R T3R FROM_ADDR  R T3R NAME_LENR RRCLI_PARAMETER_LENR PSICOPY_INPARSEPSICOPY_INPARSE>RSTATUS   CLI$_ABSENT CLI$_ABSENT@" INPUT_SPECSm"R INPUT_SPECS"" R INPUT_SPECS"" R INPUT_NAMEa""R T3%0 REMOTE_INPUT_SPECSZ RREMOTE_INPUT_SPECSh h RREMOTE_INPUT_SPECSh h R INPUT_NAMEQ  R T3R PARSE_MSGa e ?NETMSG R T83 T 3RRIT_CODER Tc3RRDISK_BLK R RNET_BLK R(RRET_SIZER T3 STATUS0 MSG_FLAGS  REQUESTORR T 3 DEBUGR T 3 NETERRR T 38MSG_CODER T3(T@i3RXR@INP_VERR T} 3PINP_FNA FILE_NAME RR@RET_STV`RET_VERR T} 3pRET_OPTR  T 3RhR@RET_STV1`RET_RSAR T3RhR@INP_RLFR T3HINP_FNBRR@RET_ATRR T3RET_MSZ RET_EXTATTRR TH 3R(R@INP_OPTAR  T 3`INP_ATRR T3INP_MSZ INP_EXTATTRR TH 3RPR@RET_BLKR Tw3RPR@INP_BLKR Tw3RHR@RET_FNAR T3R@R R@R R@R RPR @ INP_USERNAMER T3RR @INP_SALTR T3P INP_ENCRYPTR T 3 BXTIMERRR  RET_PASSWORD RET_REMUSERR T3R@RRR@SELF_CRC `CRC_NBR RRR  pCRCRRR tRR@ START_BLKR T83T!3RR `NETERRR T 3 aCCRCERRR T 3bCRCXMITR T 3cRESTARTR T 3h RES_CAUSERhR` RESUME_FLAGSR T 3RR@IN_FDID FDID_TYPE FIDRRR T3 9 0DVIRR@INP_OPTRR  T 3`INP_ATRRR T3INP_MSZR INP_OPFDIDRtܪ$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"CD T"3RPR@BOOT_MSGR T3RKLUDGE   R T} 3 < p dVERSIONVERSIONR T} 3NETKEYINNETKEYIN DEBUGDEBUG  NETR T 3 MAIN R T 3 DATA R T 3 CRC R T 3 LOG R T 3 LOGIN R T 3 INTEERR T 3 SERVERR T 3FILE_IOR T 3 RESTARTR T 3 THROTTLER T 3 COMPRESSR T 3%V1_TRANSFER_MASK  INPUT_FAB INPUT_FAB R T83T%3RR FAB$B_BIDR T 3 FAB$B_BLNR T 3FAB$R_IFI_OVERLAYR RF  FAB$R_FOP_OVERLAYR  R @ FAB$L_STS` FAB$L_STV FAB$L_ALQ FAB$W_DEQR T 3FAB$R_FAC_OVERLAYR R FAB$R_SHR_OVERLAY R !R  FAB$L_CTX FAB$B_RTV"R #R$R%R FAB$R_ORG_OVERLAY&R 'R FAB$R_RAT_OVERLAY(R )RG  FAB$B_RFM*R T 3FAB$R_JOURNAL_OVERLAY+R ,R FAB$B_RU_FACILITY-R T 3FABDEF$$_FILL_7.R Tr 3  FAB$L_XAB@ FAB$L_NAM` FAB$L_FNA FAB$L_DNA FAB$B_FNS/R T 3 FAB$B_DNS0R T 3 FAB$W_MRS1R T 3 FAB$L_MRN FAB$W_BLS2R T 3 FAB$B_BKS3R HT 3 FAB$B_FSZ4R T 3 FAB$L_DEV  FAB$L_SDC@ FAB$W_GBC5R T 3PFAB$R_ACMODES_OVERLAY6R 7R XFAB$R_RCF_OVERLAY8R 9R `FABDEF$$_FILL_9:R`;R FAB$W_IFI<R T 3 FAB$L_FOP FAB$B_FAC=R T 3 FAB$B_SHR>R T 3 FAB$B_ORG?R T 3 FAB$B_RAT@RI T 3 FAB$B_JOURNALAR T 3P FAB$B_ACMODESBR T 3X FAB$B_RCFCR T 3DR`ERFAB$R_IFI_BITSFR GR  FAB$R_FOP_BITSHR  IR FAB$R_FAC_BITSJR KR FAB$R_SHR_BITSLR MR FAB$R_ORG_BITSNR OR FAB$R_RAT_BITSPR J QR FAB$R_JOURNAL_BITSRR SR PFAB$R_ACMODES_BITSTR UR XFAB$R_RCF_BITSVR WR XR[YR FAB$V_PPF_RATZR [R\R]R  FAB$V_PPF_IND^R T 3 FAB$V_PPIFI_R T 3 FAB$V_ASY`R T 3! FAB$V_MXVaR T 3" FKAB$V_SUPbR T 3# FAB$V_TMPcR T 3$ FAB$V_TMDdR T 3% FAB$V_DFWeR T 3& FAB$V_SQOfR T 3' FAB$V_RWOgR T 3( FAB$V_POShR T 3) FAB$V_WCKiR T 3* FAB$V_NEFjR T 3+ FAB$V_RWCkR T 3, FAB$V_DMOlR T 3- FAB$V_SPLmR T 3. FAB$V_SCFnLR T 3/ FAB$V_DLToR T 30 FAB$V_NFSpR T 31 FAB$V_UFOqR T 32 FAB$V_PPFrR T 33 FAB$V_INPsR T 34 FAB$V_CTGtR T 35 FAB$V_CBTuR T 36 FAB$V_SYNCSTSvR T 37 FAB$V_RCKwR T 38 FAB$V_NAMxR T 39 FAB$V_CIFyR T 3; FAB$V_ESCzR M T 3< FAB$V_TEF{R T 3= FAB$V_OFP|R T 3> FAB$V_KFO}R T 3 FAB$V_PUT~R T 3 FAB$V_GETR T 3 FAB$V_DELR T 3 FAB$V_UPDR T 3 FAB$V_TRNR T 3 FAB$V_BIOR T 3 FAB$V_BROR T 3 FAB$V_EXER T 3 FAB$V_SHRPUTR NT 3 FAB$V_SHRGETR T 3 FAB$V_SHRDELR T 3 FAB$V_SHRUPDR T 3 FAB$V_MSER T 3 FAB$V_NILR T 3 FAB$V_UPIR  T 3 FAB$V_ORGR RRR  FAB$V_FTNR T 3FAB$V_CRR T 3 FAB$V_PRNR T 3 FAB$V_BLKR T 3O FAB$V_ONLY_RUR T 3FAB$V_RUR T 3FAB$V_BIR T 3FAB$V_AIR T 3FAB$V_ATR T 3FAB$V_NEVER_RUR T 3FAB$V_JOURNAL_FILER T 3PFAB$V_LNM_MODER RRR RFAB$V_CHAN_MODER Tn53TFAB$V_FILE_MODER Tn53VFAB$V_CALLERS_MODEPR Tn53X FAB$V_RCF_RUR T 3Y FAB$V_RCF_AIR T 3Z FAB$V_RCF_BIR T 3LOCAL_INPUT_FILE_SPECSLOCAL_INPUT_FILE_SPECS GLOBAL_STATUS GLOBAL_STATUSDISCONNECT_LINKDISCONNECT_LINK NETCONNECT NETCONNECT RESTARTING RESTARTINGRESTART_PARNUMRESTART_PARNUM RPBRPB R T 3 T63RR COMMAND_QLINER T3 INPUT_FDIDR T"3 OUTPUT_FDIDR T"3p DELETE_FDIDR T"3 STATE INIT FIRSTFILE INPUTDOUTPUTD( CLIPARNUM HSEQ hCRCR R BLOCK RESTART_OK RESTART_OKNEW_INPUT_PARAMNEW_INPUT_PARAMPSICOPY_RMS_ERRORPSICOPY_RMS_ERROR# CLEANUP_TRANSFER  `(DELETE_RESTARRTDELETE_RESTART(xGET_OUTPUT_FILE_SPECSR FILE_NAMEtR T3RTO_ADDR=R T3RTO_PWDW$R T3RTO_PWD2 R T3$H!OUTPUT_FILE_SPECSu!ROUTPUT_FILE_SPECS!! ROUTPUT_FILE_SPECS!! R FILE_NAMEi!!R TS3+0REMOTE_OUTPUT_FILE_SPECSZ.RREMOTE_OUTPUT_FILE_SPECS`v RREMOTE_OUTPUT_FILE_SPECS`v R FILE_NAMEQR T3R OUTSPECSMSGl]R T3RKLUDGE R T} 3 H | j OUTPUT_FAB OUTPUT_FABR T%3LOCAL_OUTPUT_FILE_SPECSLOCAL_OUTPUT_FILE_SPECST DELETE_INPUTRSTATUSRPTNAMEJRT3PSICOPY_DELETEDPSICOPY_DELETEDPSICOPY_NOTDELETEDPSICOPY_NOTDELETED LOCAL_DELETE_INPUTLOCAL_DELETE_INPUT INPUT_DELNM INPUT_DELNMR T3 INPUT_RSA INPUT_RSAR T3PSICOPY_SYS_ERRORPSICOPY_SYS_ERROR LOGLOG NEXT_FILE R NEXT_FILE  -$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dT^"TUR NEXT_FILE  RSTATUSRFNBR INPUT_FDIDR T"3PSICOPY_IN_SEARCHPSICOPY_IN_SEARCHPSICOPY_RSTLOCINPPSICOPY_RSTLOCINPPSICOPY_OUT_PARSEPSICOPY_OUT_PARSERMS$_NMFRMS$_NMFRERRCODE"NEXT_INPUT_FILERNEXT_INPUT_FILEoRNEXT_INPUT_FILEoVRSTATUS)M)REMOTE_NEXT_INPUT_FILEfRREMOTE_NEXT_INPUT_FILE@RREMOTE_NEXT_INPUT_FILE@RFNBPTRhm RFDIDPTRRT"3R INPSEAMSGR T3R DELNMPTRRT3   $PARSE_WOUTPUT_FILERPARSE_OUTPUT_FILE/!E!RPARSE_OUTPUT_FILE/!E!RRLF6!R T3+!REMOTE_PARSE_OUTPUT_FILE!$RREMOTE_PARSE_OUTPUT_FILE<"<"RREMOTE_PARSE_OUTPUT_FILE<"<"RRLF! "R T3R OUTPARMSG!9"R T3RFNBPTR"" X |    INPUT_ESA INPUT_ESAR T3LOCAL_LOCATE_INPUT_FILELOCAL_LOCATE_INPUT_FILELOCAL_NEXT_INPUT_FILELOCAL_NEXT_INPUT_FILE INPUT_NAM INPUT_NAM R T83TB3RR NAM$B_BIDR T 3 NAM$B_BLNR T 3 NAM$B_RSSR T 3 NAM$B_RSLR T 3 YNAM$L_RSA@NAM$R_NOP_OVERLAYR R H NAM$B_RFSR T 3P NAM$B_ESSR T 3X NAM$B_ESLR T 3` NAM$L_ESA NAM$L_RLF NAM$T_DVI NAM$R_FID_OVERLAYR 0R PNAM$R_DID_OVERLAYR 0R NAM$R_WCC_OVERLAYR  R NAM$R_FNB_OVERLAYR  RZ  NAM$B_NODER T 3 NAM$B_DEVR T 3 NAM$B_DIRR T 3 NAM$B_NAMER T 3 NAM$B_TYPER T 3 NAM$B_VERR T 3NAMDEF$$_FILL_6RRR T'3  NAM$L_NODE  NAM$L_DEV@ NAM$L_DIR` NAM$L_NAME NAM$L_TYPE NAM$L_VERNAMDEF$$_FILL_7R[RR R R@ NAM$B_NOP R T 3  NAM$W_FID R R R T 3 P NAM$W_DIDRRR T 3  NAM$L_WCC NAM$L_FNBRR@NAM$R_NOP_BITSR R  NAM$R_FID_FIELDSR 0R PNAM$R_DID\_FIELDSR 0R NAM$R_WCC_BITSR  R NAM$R_FNB_BITS0R R RR@ NAM$V_PWDR T 3A NAM$V_FILL_1 R T 3B NAM$V_FILL_2!R T 3C NAM$V_SYNCHK"R T 3DNAM$V_NOCONCEAL#R T 3E NAM$V_SLPARSE$R T 3FNAM$V_SRCHXABS%R T 3]  NAM$W_FID_NUM&R T 30 NAM$W_FID_SEQ'R T 3@NAM$R_FID_RVN_OVERLAY(R )R P NAM$W_DID_NUM*R T 3` NAM$W_DID_SEQ+R T 3pNAM$R_DID_RVN_OVERLAY,R -R  NAM$V_IFI.R T 3 NAM$V_SRCHNMF/R T 3 NAM$V_SVCTX0R T 3 NAM$V_EXP_VER1R T 3NAM$V_^EXP_TYPE2R T 3NAM$V_EXP_NAME3R T 3NAM$V_WILD_VER4R T 3NAM$V_WILD_TYPE5R T 3NAM$V_WILD_NAME6R T 3 NAM$V_EXP_DIR7R T 3 NAM$V_EXP_DEV8R T 3NAM$V_WILDCARD9R T 3NAM$V_SEARCH_LIST:R T 3NAM$V_CNCL_DEV;R T 3NAM$V_ROOT_DIR<R T 3 _NAM$V_LOWVER=R T 3 NAM$V_HIGHVER>R T 3 NAM$V_PPF?R T 3 NAM$V_NODE@R T 3 NAM$V_QUOTEDAR T 3 NAM$V_GRP_MBRBR T 3NAM$V_WILD_DIRCR T 3NAM$V_DIR_LVLSDR ERFRGR HRIR@ NAM$W_FID_RVNJR T 3p NAM$W_DID_RVNKR T 3N`AM$R_FNB_BITS1LR  MR NROR@NAM$R_FID_RVN_FIELDSPR QR pNAM$R_DID_RVN_FIELDSRR SR NAM$V_WILD_UFDTR T 3NAM$V_WILD_SFD1UR T 3NAM$V_WILD_SFD2VR T 3NAM$V_WILD_SFD3WR T 3NAM$V_WILD_SFD4XR T 3NAM$V_WILD_SFD5YR T 3NAM$Va_WILD_SFD6ZR T 3NAM$V_WILD_SFD7[R T 3\R]R@ NAM$B_FID_RVN^R T 3H NAM$B_FID_NMX_R T 3p NAM$B_DID_RVN`R T 3x NAM$B_DID_NMXaR T 3NAM$R_FNB_BITS2bR  cR dReRNAM$V_WILD_GRPfR T 3NAM$V_WILD_MBRgR T 3NEW_INPUT_FILENEW_INPUT_FILEbLOCAL_PARSE_OUTPUT_FILELOCAL_PARSE_OUTPUT_FILE"xOPEN_INPUT_FILEhROPEN_INPUT_FILEiROPEN_INPUT_FILEjRSTATUSyPSICOPY_OPENINPSICOPY_OPENIN XLOCAL_OPEN_INPUT_FILELOCAL_OPEN_INPUT_FILE COMPRESS_INIT COMPRESS_INIT CURRENT_FILE CURRENT_FILEkR T3#XOPEN_OUTPUT_FILE_lROPEN_OUTPUT_FILEcic mROPEN_OUTPUT_FILEci PSICOPY_OPENOUTPSICOPY_OPENOUTPSICOPY_RSTLOCOUTPPSICOPY_RSTLOCOUTPPSICOPY_RESUMEFILEPSICOPY_RESUMEFILEnRSTATUS_ oR OUTPUT_FDIDUUpR T"3qR PURGEMSGټrR T3sR RESTARTMSGtR T3uRINIBLKl OPEN_OUTPUTvR OPEN_OdUTPUT&(wR OPEN_OUTPUT&(xR FILE_ATR yR T3zR RESTARTING{RSTATUS*,REMOTE_OPEN_OUTPUT_FILEBg|RREMOTE_OPEN_OUTPUT_FILE}RREMOTE_OPEN_OUTPUT_FILE~R FILE_ATRAGٌR T3R OPENOUTMSGIوR T3ReFDIDPTR RT"3RBLKPTR i    H OUTPUT_ESA OUTPUT_ESAR T3LOCAL_OPENR_OUTPUT_FILELOCAL_OPENR_OUTPUT_FILELOCAL_OPEN_OUTPUT_FILELOCAL_OPEN_OUTPUT_FILELOCAL_SETINIBLKLOCAL_SETINIBLKSEND_ITSEND_IT NETPURGEDATA NETPURGEDATAPROTOCOL_ERRORPROTOCOL_ERRORNEW_OUTPUT_FILENEW_OUTPUT_FILE <$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"ef TRANSFER_FILERBLOCKSDR TRANSFER_OKRSTATUSsgPSICOPY_WRITE_OUTPUTPSICOPY_WRITE_OUTPUTPSICOPY_READ_INPUTPSICOPY_READ_INPUTPSICOPY_OUTPDELETEPSICOPY_OUTPDELETEPSICOPY_ERRDELETEPSICOPY_ERRDELETEPSICOPY_NOTDELETEDPSICOPY_NOTDELETEDPSICOPY_COPIEDPSICOPY_COPIEDPSICOPY_NOTCOPIEDPSICOPY_NOTCOPIEDPSICOPY_ERRDEACCESSPSICOPY_ERRDEACCESSR gINIT_SEC<| TLOCAL_DELETE_OUTPUTLOCAL_DELETE_OUTPUT CURRENT_BLOCK CURRENT_BLOCK CURRENT_STATE CURRENT_STATERECEIVE SEND OTHERPSICOPY$ELAPSEDPSICOPY$ELAPSED COPY_DATA COPY_DATA RW_DATATIME RW_DATATIMEOUTPUT_FILE_DONEOUTPUT_FILE_DONELOCAL_DEACCESS_INPUTLOCAL_DEACCESS_INPUTNEW_FOR_DELETENEW_FOR_DELETE'PASCAL%DEBUG_SUPPORT' SAVED_PC_PhSL DBG_STACKRRR RPASCAL%DEBUG_SUPPORTRPASCAL%DEBUG_SUPPORTR FOR_INDEXR CURRENT_MAX 4RS !S7!S3"S ST 3S!S7! S3" S  S ! ST3 S!S !S7!S3"S S !S !S"S !ST3S !ST3S !ST 3S!S !S ! SiTr 3!S!#S !$ST 3%S!'S !(S !)S !*S !+S",S !-S".S !/S"0S !1S !2S !3S !4S !5S !6S !7ST 38S !9S !:S !;S !S !?S !@S !AS !BS !CS !DS !ES !FS !GS !HS !IS !JS !KS !LS !MS !NS !OS !PS !QS !RS !SS !TS !US !VS !WS!!XS !YS#!ZS![S "\S"!]S0!^S,"_S`S:!aS6"bScST3dS !eS !fS !gS !hS !iS !jS !kS !lS !mS !nS !oS !pS !jqS !rS7!sS3"tS uS !vS !wS !xS !yS(!zS(!{S!!|S !}S !~S !S'!S'!S"!S !S$!S$!S!S !S!S !S !S !S!S !S-!S-!S#!S !S"!S !S!!S !ST-3S(!S!S$!S$!S#!S !S+!S+!S#!S !S"!S !S !S"S !S !S"S !S"S !S"S !S !S !S !S !S !S"S !S !S"S !S !S !S"S !S !S"S !S !S"S !S !S !kS"S !S !S !S !S"S !S !S"S !S !S"S !S !S"S !S"S !S"S !S"S !S !S"S !S !S0!S,"SS !S !S"S !S"S !STI!3S!S0!S,"SS !S"S !S !S"S !S !S !S !S !S"S !S !S"S7!S3"S S !S"S !S !S !S !S"S !S!S !S !S ! S ! S ! S ! S ! S !S !lS !S !S !S !S !S !S !S"S !S !S !ST&3S !ST&3S !S !ST<'3 S !!STq'3"S !#ST'3$S!&S !'ST'3(S !)ST#(3*S !+S !,ST{(3-S !.S !/S !0S !1S !2S !3S !4S !5S !6S !7STP*38S !9ST*3:S !;S"<S !=S !>S !?S !@S !AS !BS !CS !DS !ES"FS !GST+3HS !IST-,3JS !KST_,3LS !MST,3mNS !OST,3PS !QST,3RS !SST+-3TS !USTa-3VS !WST-3XS !YS"ZS ![ST-3\S!^S !_S !`S !aS !bS !cS !dS !eS !fS !gS !hS !iS !jS !kS !lS !mS !nS !oS !pS !qS !rS !sS !tS !uS !vS !wS !xS !yS !zS !{S !|S !}S !~S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !ST33S!S !Sn !S !S !S !S !S !S !S !S !S !S !STn53S!S !S !S !S !S !S !S !S !S"S !S !S !S !S !S"S"!S !S !S !S!S !S !S !S*!S*!S"!S !S1!S1!S"!S !S$!S !S!S !S !S!S!S !S !S !S"!S"!S!S!S#!S !S !S(!S(!S!S/!S/!S!S !S !S"!S !oS!!S !S*!S*!S!S !S1!S1!S!S !S"!S !S!S !S !S !S"S !S !S !S !S !STB3S !S !S !S !STC3S !STD3S !ST;D3S !STpD3S !S !S !S !S !S !S7!S3"S S0!S,"SS ! S" S ! S7! S3" S S7!S3"S S !S"S !STNG3S !STG3S !STG3Sp !STG3S !STH3S !S"S ! S !!S !"S !#S !$S !%S !&S !'S !(S !)STI3*S !+S !,S !-STJ3.S !/S !0S !1S !2S !3S !4S !5S !6S !7S !8S !9S !:S !;S !<S !=S !>S !?S !@S !AS !BS !CS !DS !ESTLM3FS!HS !IS"JS !KS !LS !MSTM3NS !OS"PS !QST#N3RS !SST[N3TS !US !VS !WS !XS !YS !ZS ![S !\qS !]S"^S !_S !`S !aS !bS !cSTOP3dS !eS"fS !gS !hS(!iS(!jS!kS !lS)!mS)!nS!oS$!pS !qS!!rS !sS#!tS !uS!vS$!wS$!xS!!yS !zS#!{S!|S0!}S0!~S!!S !S#!S !S !S !S!S !S!S$!S!S!!S0!S,"SS-!S-!S"!S$!SZ PAS$FV_INPUTPSICOPY_WRITE_OUTPUTPSICOPY_READ_INPUTPSICOPY_ERRDEACCESSww1r>-010LOGIN0121-Dec-1995 13:0621-Dec-1995 13:06DEC Pascal V5.1-22R LOGINP$REVOKIDlocal logoutRESET_PRIVSQdo logoutQ$CANEXH loginQlocal logout failsQPSICOPY$SERVER_MODEQNot PASSWORD REQNot LOGIN RSPQUsing QCRCQPurdyQPurdy VQPurdy SQnumber Q encryption algorithm.Qpassword for Q: LOCAL_LOGINQSYS$DISKLNM$PROCESSQDO_LOGIN: ^м\\ԭԭs쟭 SYS$FIND_HELDP\ SS$_NOSUCHIDPP\RRR SYS$GRANTIDP\ SS$_WASCLRPP\ PAS$NEW2PS} cS \RR\RRP  SYS$GETJPIPPPSICOPY_ERRJPILIB$STOPX SYS$SETPRVP\\ SYS$SETPRVP\\P SYS$CMEXEC^ԭ PAS$HANDLERm^\< PQQ PQQQQQPtQ SYS$SETDDIRߏSETUIC R1RSbR SYS$REVOKIDPTTTЏԞЏЏЏ  П PSICOPY_BUGFS PAS$DISPOSE2R1\ \R^\φ SYS$CMEXEC\^R\PTTTЏԞfЏ Q  Џ'Џ   П PSICOPY_BUGFTP^DEBUGЏЏ u  PSICOPY_DEBUG4 SYS$CANEXHP\\\ЏܞЏ  ЏiЏ LOGIN   GRANT_IDENTIFIERS SYS$FIND_HELD SS$_NOSUCHID SYS$GRANTID SS$_WASCLRPAS$NEW2   GET_PROC_INFO SYS$GETJPIPSICOPY_ERRJPILIB$STOP SYS$SETPRV  D RESET_PRIVS SYS$CMEXEC  T LOCAL_LOGOUT PAS$HANDLER SYS$SETDDIRSETUIC SYS$REVOKID PSICOPY_BUGFv PAS$DISPOSE2   DO_LOGOUTPSICOPY DEBUG PSICOPY_DEBUG SYS$CANEXH PSICOPY_BUGȞT  ؟ PSICOPY_BUGlP\\\Џܞ9Џ$ЏЏ Ȟ  ؟ PSICOPY_BUG^мPP^8D@4 SYS$DCLEXHPPPSICOPY_ERREXHPSICOPY_SYS_ERROR^ݼSETUIC؏} } }X\$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dm-"vwɼ ЬPЬ \ɬ} SYS$SETPRV^#``PSICOPY$SETPRVݬЬP`P` SYS$GETUAIP\`PSICOPY$RESETPRV\P^$ SYS$CANEXH SYS$GRANTIDPP!PPSICOPY_GRANTERRPSICOPY_SYS_ERROR^(D0$ SYS$DCLEXHP\\\PSICOPY_ERREXHPSICOPY_SYS_ERRORx SYS$REVOKIDP\\\!\PSICOPY_REVOKERRPSICOPY_SYS_ERROR$ SYS$CANEXHЬPРPQRQRQSЬTCPЬTCPRQ|^ԭ PAS$HANDLERmЬP` `(`ЬP` `(`Ь P` `(`\  SYS$GETJPIPPPSICOPY_ERRJPILIB$STOP( NETKEYIN1 ЏԞЏvyPROTOCOL_ERRORPV\]QPV]QPVVV( NETSEND\ NETRECEIVE\1= ЏԞЏ  PROTOCOL_ERRORPP|΀^ԭ PAS$HANDLERmQVЬ\l l̀(l͂DEBUG1n PAS$FV_OUTPUTPAS$WRITE_STRINGPPN PAS$FV_OUTPUTPAS$WRITE_STRING; PAS$FV_OUTPUTPAS$WRITE_STRzING, PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT  dLOGIN_EXIT_HANDLER  |SET_LOGIN_EXIT_HANDLER SYS$DCLEXHPSICOPY_ERREXHPSICOPY_SYS_ERROR PSICOPY$SETPRV SYS$GETUAI PSICOPY$RESETPRV SET_SERVER_MODEPSICOPY_GRANTERR RESET_SERVER_MODEPSICOPY_REVOKERR  PASCAL%DEBUG_SUPPORT | REMOTE_LOGINNETKEYIN PSINETWO{RK PROTOCOL_ERRORNETSEND NETRECEIVE PAS$FV_OUTPUTPAS$WRITE_STRINGPAS$WRITE_INTEGERPAS$WRITE_STRING~ PAS$FV_OUTPUTPAS$WRITE_INTEGER PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2̀1 PAS$FV_INPUTPAS$RABP\ PAS$FV_OUTPUTPAS$WRITE_STRINGP PHP@TABLINK23P` PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRING0 PAS$FV_IN|PUT PAS$FV_INPUTPAS$LOOK_AHEAD1 PAS$FV_INPUTݏP PAS$FV_INPUTPAS$READ_VARYING PAS$FV_INPUT PAS$READLN2< STR$UPCASE PAS$FV_OUTPUT PAS$WRITELN2̀P ̀(̀͂P`<~~<\QQ \QQP𞭦QQQ\QSYS$HASH_PASSWORDP\\PSICOPY_HASHNOTSUPP\ SYS$GETTIM P- QPQQ QPQP ᭐)QQ QQ Q Q8Q< QQ FQ?QcQQ !8OQ\QnQWQ@Q)QRQp Q&Q$Q/Q Q>Q7QQ:QQQQQQ Q Q1QQQQQQQQQQ/mQeQQQ&1<GRQKQ @Q 5Q *Q Q Q QP Q Q QQQ QmQ QR T3 PRV$V_SYSGBL?R T3 PRV$V_PFNMAP@R T3 PRV$V_SHMEMAR T3 PRV$V_SYSPRVBR T3 PRV$V_BYPASSCR  T3 PRV$V_SYSLCKDR T3 PRV$V_SHAREER T3 PRV$V_UPGRADEFR T3!PRV$V_DOWNGRADEGR T3" PRV$V_GRPPRVHR T3# PRV$V_READALLIR T3$ PRV$V_IMPORTJR T3% PRV$V_AUDITKR T3&PRV$V_SECURITYLR T3MRNRPRV$R_PRVDEF_BITS1OR PR QRRR PRV$V_ACNTSR T3 PRV$V_ALTPRITR T3UR@VRPRV$R_PRVDEF_BITS2WR @XR YR@ZR PRV$L_L1_BITS PRV$L_L2_BITSCUR_PRIV[R T3 IDENTCHN\R T+3 $SRVBLK FLINK HANDLER_ADDR@ARG_NUM`ARG_ADDR4LOGIN_EXIT_HANDLER_BLOCK]R T3D EXIT_STATUSHDEFPRIV^R T3PAUTHPRIV_R T3XALLPRIV`R T3` GETUAIPRVaR T3 SETUIC_MODE SETUIC_MODEbR T3! UAI$_ENCRYPT " UAI$_ENCRYPT2  UAI$_PWD  UAI$_PWD2  UAI$_FLAGS ##UAI$_PRIMEDAYS .)UAI$_DIALUP_ACCESS_P *)UAI$_DIALUP_ACCESS_S +  UAI$_DEFDIR   UAI$_DEFDEV -  UAI$_UIC  UAI$_SALT " UAI$_DEF_PRIV   UAI$_PRIV   LNM$_STRING " JPI$_USERNAME  JPI$_UIC  JPI$_PID ! JPI$_CURPRIV $ GRANT_IDENTIFIERScRGRANT_IDENTIFIERSdRGRANT_IDENTIFIERSeRUIC fRHOLDER @ UIC  MBZgRCONTXThRIDENT iR T3jR IDENTELEM kR T+3lRSTATUS   SS$_WASCLR SS$_WASCLR SS$_NOSUCHID SS$_NOSUCHIDmR ALL_DONE   < SYS$FIND_HELD $FIND_HELD SYS$GRANTID$GRANTID  GET_PROC_INFOMPSICOPY_ERRJPIPSICOPY_ERRJPInRSTATUS h5 SYS$GETJPI$GETJPILIB$STOP ERROR_STOPD RESET_PRIVSFUoR RESET_PRIVSpR RESET_PRIVS% KERNEL_RESET_PRIVSqRKERNEL_RESET_PRIVS?? rRKERNEL_RESET_PRIVS?? sRSTATUS$= 8  SYS$SETPRV$SETPRVT LOCAL_LOGOUTgtR LOCAL_LOGOUTuR LOCAL_LOGOUT MODULE vR CURIDENTtwR T+3xR WORKIDENTtyR T+3zRSTATUS = SYS$REVOKID$REVOKID PSICOPY_BUGF PSICOPY_BUGF DO_LOGOUTK  MODULE {RSTATUSl P DEBUGDEBUG  NET|R T3 MAIN}R T3 DATA~R T3 CRCR T3 LOGR T3 LOGINR T3 INTERR T3 SERVERR T3FILE_IOR T3 RESTARTR T3 THROTTLER T3 COMPRESSR T3 PSICOPY_DEBUG PSICOPY_DEBUG5 SYS$CANEXH$CANEXH PSICOPY_BUG PSICOPY_BUG%dLOGIN_EXIT_HANDLERnRLOGIN_EXIT_HANDLER{{RLOGIN_EXIT_HANDLER{{RSTATUSmy )|SET_LOGIN_EXIT_HANDLERLRSTATUSPSICOPY_ERREXHPSICOPY_ERREXH HE SYS$DCLEXH$DCLEXHPSICOPY_SYS_ERRORPSICOPY_SYS_ERROR  LOCAL_LOGIN REMOTE_USERNAMER T,3R LOCAL_LOGIN33R LOCAL_LOGIN33RLOCAL_USERNAME ٠R T,3RLOGIN_PRV_MODE  R T3 MODULE RSTATUS +R TIMEQUAD PR T3RNETLOG ٜNETMSG R T3 T3RRIT_CODE NET$IT_WRTERRNET$IT_READERRNET$IT_RETRANSMIT NET$IT_ACKRRDISK_BLK R RNET_BLK R(RRET_SIZER T{3 STATUS0 MSG_FLAGS  REQUESTORR T3 DEBUGR T3 NETERRR T38MSG_CODE NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTP NET$C_DEACCESS NET$C_END NET$C_LOGIN NET$C_PASSWORD NET$C_DELINP NET$C_STATUS NET$C_CRC NET$C_RESUME NET$C_NETERR NET$C_INLOCNET$C_OPENOUTR7$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d4" NET$C_BOOT(TK3RXR@INP_VER  MINORR RRBYTER  MAJORR T[3PINP_FNA RR@RET_STV`RET_VERR T43pRET_OPTR  R  DELETE_INPUTR T3COMPRESSR T3 CRCR T3 RESTARTINGR T3RESTARTR T3RhR@RET_STV1`RET_RSAR T3RhR@INP_RLFR T3HINP_FNBRR@RET_ATR  UCHAR RECATTRRRR T[3    ASCDATESRRR T[3 ## 8FPROR T{3 HRPROR T{3 XSEMASKRRR T[3 STATBLK R T3Tt"3RRSBK$R_STLBN_OVERLAYR  R  SBK$R_FILESIZE_OVERLAYR  R @ SBK$B_ACNTR RRR H SBK$B_LCNTR T9#3P SBK$L_FCBpSBKDEF$$_FILL_1R RRR  SBK$W_ACNTR RRR  SBK$W_LCNTR T#3 SBK$W_WCNTR T#3 SBK$W_TCNTR T#3 SBK$L_READS SBK$L_WRITESR@R SBK$L_STLBN SBK$L_FILESIZERRR@R SBK$W_STLBNHR T#3 SBK$W_STLBNLR T#3 SBK$W_FILESIZHR T#30SBK$W_FILESIZLR T#3RET_MSZ RET_EXTATTR R(R@INP_OPTR  T 3`INP_ATRR T7!3INP_MSZ INP_EXTATTRR T%3RPR@RET_BLKR TY3RPR@INP_BLKR TY3RHR@RET_FNAR T3R@R R@R R@R RPR @ INP_USERNAMER T,3RR @INP_SALTR T{3P INP_ENCRYPTR T[3 XTIMERRR  RET_PASSWORD"CRYPTED_PASSWORD RET_REMUSERR T,3R@ R R R@SELF_CRC `CRC_NB R  RRR  pCRCRRR tRR@ START_BLKR T3Tl(3RR `NETERRR T3 aCRCERRR T3bCRCXMITR T3cRESTARTR T3h RES_CAUSERhR` RESUME_FLAGSR T[3R R@IN_FDID FID!R"R#R T{3  0DVI$R%R@INP_OPTR&R  T 3`INP_ATRR'R T7!3INP_MSZR INP_OPFDID(R Tr)3)RP*R@BOOT_MSG+R T,3,R GOODUSER -R AUJOURDHUIټ.R  Tx3/R MAINTENANTTT0R1R 2RCURTIM">٤3R SECONDARY[ 4R PASSWORDٸ5R Tq'36R REAL_SALTu SALT7R T{3WHATEVER8R T{3PSICOPY_NOTNOWPSICOPY_NOTNOWPSICOPY_REMLOGINPSICOPY_REMLOGINPSICOPY_REMLOGFAILPSICOPY_REMLOGFAIL9R PASSWORD1 :R Tq'3;R PASSWORD2<R Tq'3=R ENCRYPT1 >R T[3?R ENCRYPT2ٛ@R T[3ARFLAGS FLAGS$TYPE UAI$V_DISCTLYBR T3 UAI$V_DEFCLICR T3 UAI$V_LOCKPWDDR T3UAI$V_RESTRICTEDER T3 UAI$V_DISACNTFR T3UAI$V_DISWELCOMGR T3 UAI$V_DISMAILHR T3 UAI$V_NOMAILIR T3 UAI$V_GENPWDJR T3 UAI$V_PWD_EXPIREDKR T3 UAI$V_PWD2_EXPIREDLR T3 UAI$V_AUDITMR T3 UAI$V_DISREPORTNR T3 UAI$V_DISRECONNECTOR T3UAI$V_AUTOLOGINPR T3 UAI$V_DISFORCE_PWD_CHANGEQR T3 UAI$V_CAPTIVERR T3UAI$V_DISIMAGESR T3UAI$V_DISPWDDICTR T3UAI$V_DISPWDHISUR T3UAI$V_DEFCLSVALVR T3 UAI$V_FILL_16WR XRYRZR [RUICٗ\R PRIMEDAYSPRIMEDAYS$TYPE UAI$V_MONDAY]R T3 UAI$V_TUESDAY^R T3UAI$V_WEDNESDAY_R T3UAI$V_THURSDAY`R T3 UAI$V_FRIDAYaR T3UAI$V_SATURDAYbR T3 UAI$V_SUNDAYcR T3 UAI$V_FILL_17dR T3eRDIALUP_ACCESS_PllfRgRhR T3"iRDIALUP_ACCESS_S``jR T23kRDEFDEVٕ lRDEFDIRٓmR T23nRSALT oR T{3pRLOCAL_USERNAMEADDR= = qR T13 8GETUAI@rRGETUAIsRGETUAItR GETUAI_ARGLSTuRvRwR  xRSTATUS@ GETUAI_EXECELOCAL_USERNAMEADDRyR T13ITEMLISTzR GETUAI_EXEC {R GETUAI_EXEC |RSTATUS \  DO_LOGIN}R DO_LOGIN~R DO_LOGINR LOGIN_ARGSAdRRR RSTATUS5E LOGIN_EXECfLOCAL_USERNAMEADDRR T13 UIC DEFPRIVR T3AUTHPRIVR T3 LOGIN_PRV_ARGR T3R LOGIN_EXECR LOGIN_EXECRSTATUSR NEW_PRIV_MASK2R T3 |   tPSICOPY$SETPRVPSICOPY$SETPRV SYS$GETUAI$GETUAIPSICOPY$RESETPRVPSICOPY$RESETPRV NULL_PASSWORD RMS$_RNF ! SS$_INVLOGIN  " UAI$C_PURDY_V  SS$_NORMAL  SYS$CRELNM$CRELNM SYS$GETTIM$GETTIMNETKEYINNETKEYINWAY NET$_FROMNET$_TOTABLINKTABLINKRRRRT 83H H @:X25_CHANR T{3MBX_CHANR T{3 IOSB @ IOSB_STATUSR T{3$ PSICOPY040.Bl_IUK+m>|`=T)KeBce`/d+ؗd2W݁ 2_訆h6e ,*J9YYQR`/yyԪ3 .B:9~, :v.7J%dH(PO,ϑUĺh0.֐$4ފ]w(}->%j!eռQOxm8f$Vaqsk/>0`vj7x6s5ZH ȑT p2Ķ}$?hχֽŘ>vlnɴ 2;t!?2g)(eZoL9d{ƃ\ rfr2J]Rt;X̟).YDM4% xbwvf|?eBk׸׀#=|T>lk3RB!D{>\ֈm7׎kN~hG]`jߚY=EUPC\mEJ7N@ȃπPIc/7Wf Xd*ưҮurq,FNRNwdP/Q_i%؟^y|#2W*ʲ}Ro<c_U$$̹"%-4o ?Ya1kn}x]l7$AR4HZѓc̫Bгa]8?l뗒 J*}?pN;Ԡ}̃BSeS`2pB z1.i\g $4<ҧ12kf.KK[%Wo'Ag<d꘶:̡+u-8׭#&rr ybnnly‚a 2MjLC#zcBrԽUX n0Ǎh{u [Nغӱ~"֑z[8LO8F5_Z6LnNFmK3OϨnCY9FQ\W,fpϾx3V˄M͡:V2 ]9(@'=HA-TRL/H&d f>^j"1ALIcHd}dπ?Xr? Q<^Ρ&Fk0\-J?)ey*q] 1]\%՝[TXӱx{cO\Fk:/O.X( `r(kqo+Һn7\w*=.9kus0[ 5n{ ׍"l[ŕU훎 o5Viy|q ^n~c²>;Xh}gt2 ( 'RhD\]z@ܰC}7{]C#h!HHiR .B~rKk &9vd9a6Ϙ(zDl|qUUEACKS5QȀW '4BO#&}_=~݄袈ZKq^_Cc1brcI  ;RX{rSbEԯeAFqn ?  K˅xDhas91- ܬ vcAdÿP~3)2!}`Il*=^p@#y090?ηeZR?vm!)RJQvܣntö-YcryS }}M{zwIAT!Vޮ` ^Tsy +(~!E@ +gjopf*='0˶Q6HfN'K2d]Dݨ"u9 <9hfarl.f Y\w@N`WZǨWKD`o>u+7;84S@!;A}bTP%aR:9#~nF@!o$8ST[׌ug*EXJ'j8^ =FjC_J A)}8J閴T2N[l mf3 \zBGtUx$3 R-0k7B#~m#_K/(';{*('"ȐF&4?6Ɯ{?z IS:aÔ@V߂CE+SLJP҃~,ږAlF'>_ Xֿx$t]f"{;6;;QR!7zߵ1CP2NYY]ȖRxf}﷟\L`N-jС1&ޓ檭śtrNc4,""}#̾Hhԙ)0ќv$#(f cvQ1P_Be05j{)dxSmg{ғu ɿC?H5e[DDpTfbhjYЋ O@E6D  m`~3/͎7vo0\f<}çN3T+1р%a۾џRPXfۈw 9=Ql\:/ ?!^4FGf!&a} ˞{]Iq /,$7hBgL_)LsEwҮi]4ϒpy);Pq*$16h|pK0sZ][>2y(A%gaK5籑)1)ëp&v%Q[h?/GIg^ޛ %_Vf>pCtTpjž$x[Sp8TD\b)YnY\# C[;pR"͕;2h@B!<K" o"=' D?Y\=R`XDOp]m*à,}G*t{<>\v}W㆔4՟ ۭaoJQ B(eE ?J7UZT[?[ lvɋbIPaY]g}HfG Ê=84NhF-tM]#J̗֜˼_12cM~+``(/Xt#r{QTW~,)k2%xnZDS})TN{L5IVm%-[Q42WۮqU ((B4ba+`FNq=+`!gٹ8 Uc99SG@E\(O)ܪW]bݚ|cJaŁ-<2sw{xO WKƄ#@M~`N k[ ܶ)_i]v{zsx% 0 KɒϘ$eїi#5Y ߄N iuO>tH#3jflIf@M02,ZlytnGr+,ZEUhYY43ʆS\0NODR{Cce dF}bv0pTy]a7e-5 Θ՜aolY} ؏ (|[U 8y&/44J1$<ͫ&XGNpbd ՚mZtҤI UdkLvl>o{:K=Ï}n)/InҞ"DgcWkT4ReJQ>?o%v\aFORH+I C\VA_=,]>Tij֯ ٓ.aG{ό-_f֗zp9;<*)V Ấ`n3:8YS\#T f#m!dL3XSVyڌۣT k VAbz3 u #Eku #-bKfKļnX?e+sPkJ˳"bs ÿȧ$~fY~TO>*3Ue$PLgF{gk@^!?/bE. +]DDll=f%o*?!{c#i ˜}>ur=3sovf{1LQgY%B"7(1*R);LŌ~3k*Z)o94@%2\zR;b:D 05}+F},Q}k2P7ug <@?or&[ȿfZ:m[R ]U9Cx#e- lq0_(x ) ($?4#_v;c7mk݈M?_M&|2#S@|lg#kux ?L+{pc}X %q| ~Vt&q=U7A2 \'44@ZITER;lʋ;j ҌRfucs"(x)Ī83|Hk"ORT|bt}Q_޺ZWNcC{r^mYLD"nyxZ4:̑^Töbvp[mjΕ~MҔ7^~[:r_l?v'9T 6y ( ''6 +d!2NON0ܿq7pSƎ#s_U[b:6K9 ؅q/jƁVT~$@eY9)fns`"5դ^.4 $bIg\3̹]++Ԝ`~ANp*! }Qs]rMFoEP B << k15h'K<MFMEٴz-Pι)N}e6Rnr]"L*?᥾X<:ChF [5- X ^:Ye< Daσo)b\gpJE[a,8ٕ T;JPr~*11NFFY51]YNOSoש'/ nhl+Zp}N igaVC4T C \l{eWjS 9ہ00eACo+63 ^yq'teTP*燳bkfI{ ݐ\cʽwYEJ`iP[;`# X^<-ܑKHqW^|e0:Ok`xr{2kj;ڠZĬS=~D"T0A[evs.p0 jޞ>H`SC&[q&(1+h-JCગUMh9(29.oί5gba|Fa/s Mg{BEe=*Q; ÌXɁ˵i%bF0%n-m䰖WOtʳ56^˒Y aQGڬSi;IWEDSYk@ GYKg^,942 !zՊՔR0 X-]<_J(ٴ1?F4j^#BQ35^;=]Okâ0aO_&mns )8iOoJt`xOc1>U 1`RoH]ksa^=ṉBQcZʆ2ɢ 1 t%WjU!;YS?p{ΌlRU|R)\e*BMdWY :qyCO ^ ba?-8:W u}%籿?H*-&ہc^VԴσ*^v wjm#?j]| EpJWC VJNY9eW}frE!ӛ̡4s!Kj1nKMJB'Btb,&558,qU>e+{!K6͒R\Z50{LGp7?b}5fKIC=2r5>,,g-ϳaBf;EWzH׳SIq n {t:W_f^_![W۴!uI@rcϙhiX7Ѱ>д @*,!(oy2}&<6w!w9ػ yi %Ae/^,jiI}yZ~1=(wPY_USEPKT:BPSICOPY_USERLNG:BPSICOPY_USERNAME:BPSICOPY_USETHR:BPSICOPY_USEWINPURDYREAD_COMPRESSED_BLOCKp REMOTE_LOGINpRESET_SERVER_MODE [f$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dG" IOSB_COUNTR T{3 IOSB_UINFOR T{30 IOSB_SINFOR T{3`MBX_IOSBR T83 CAUSER T[3 DIAGR T[3 REASONR T[3GOTCAUSEGOTDIAG GOTREASON CONNECTEDFINISHEDCLEARED LOGERRMBX_BUF MSGTYPER T{3 UNITR T{3 NAME  SIZER T[3 DATA INFO  SIZER T[3 DATARRR T[3  SAVADDRR T,3CNX_OPTS WINDOW THRUCLS@PKTSIZE `CUGR T,3pTEMPLATER T,3 CTYPE OPT  WINDOWR T3 REVCHGR T3THRUCLSR T3PKTSIZER T3 CUGR T3TEMPLATER T3 CTYPER T3 SYS$HASH_PASSWORDHPWD SYS$ASCTIM$ASCTIM LOGLOG PSICOPY_ERROR PSICOPY_ERROR REMOTE_LOGIN9R REMOTE_LOGIN  R REMOTE_LOGIN  R REMOTE_USERR T,3RPWD R T,3RPWD2+ R T,3RWHATWAY8 R T 83  PASSWORDSPRIMARY SECONDARYERRORPWRLOGMESS R T3RCURPW;  R T4>3)RSTATUS   GETPW RGETPW   RGETPW   RPWD  ـR T,3RRAB_PTRRRAB$TYPE R T3 T?3R R RAB$B_BIDR T9#3 RAB$B_BLNR T9#3RAB$R_ISI_OVERLAYR R  RAB$R_ROP_OVERLAYR  R @ RAB$L_STS`RAB$R_STV_OVERLAYR  R RAB$R_RFA_OVERLAYR 0R RABDEF$$_FILL_4R T#3 RAB$L_CTXRABDEF$$_FILL_5R T#3 RAB$B_RACR T9#3 RAB$B_TMOR T9#3 RAB$W_USZR T#3 RAB$W_RSZR T#3  RAB$L_UBF@ RAB$L_RBF` RAB$L_RHBRAB$R_KBF_OVERLAYR  R RAB$R_KSZ_OVERLAYR R  RAB$B_KRFR T9#3 RAB$B_MBFR RRR  RAB$B_MBCR T9#3RAB$R_BKT_OVERLAYR  R  RAB$L_FAB RAB$L_XABRR RAB$W_ISIR T#3 RAB$L_ROP` RAB$L_STV RAB$W_RFARRR T#3  RAB$L_KBF RAB$B_KSZR T9#3 RAB$L_BKTRRRAB$R_ISI_BITSR R  RAB$R_ROP_BITS0R  R `RAB$R_STV_FIELDSR  R RAB$R_RFA_FIELDSR 0R  RAB$L_PBF RAB$B_PSZR T9#3 RAB$L_DCTRR RAB$V_PPF_RATR RRR  RAB$V_PPF_INDR T3 RAB$V_PPISIR T3 RAB$V_ASYR T3! RAB$V_TPTR T3" RAB$V_REAR T3# RAB$V_RRLR T3$ RAB$V_UIFR T3% RAB$V_MASR T3& RAB$V_FDLR T3' RAB$V_HSHR T3( RAB$V_EOFR T3) RAB$V_RAHR T3* RAB$V_WBHR T3+ RAB$V_BIOR T3, RAB$V_CDKR T3- RAB$V_LOAR T3. RAB$V_LIMR T3/ RAB$V_SYNCSTS R T30 RAB$V_LOC R T31 RAB$V_WAT R T32 RAB$V_ULK R T33 RAB$V_RLK R T34 RAB$V_NLKR T35 RAB$V_KGER T36 RAB$V_KGTR T37 RAB$V_NXRR T38 RAB$V_RNER T39 RAB$V_TMOR T3: RAB$V_CVTR T3; RAB$V_RNFR T3< RAB$V_ETOR T3= RAB$V_PTAR T3> RAB$V_PMTR T3? RAB$V_CCOR T3` RAB$W_STV0R T#3p RAB$W_STV2R T#3 RAB$L_RFA0 RAB$W_RFA4R T#3R8R RAB$R_ROP_BITS1R  R !R7"R5 RAB$V_EQNXT#R T36 RAB$V_NXT$R T3%R@&R RAB$R_ROP_FIELDS'R  (R )R@*R( RAB$B_ROP1+R T9#30 RAB$B_ROP2,R T9#38 RAB$B_ROP3-R T9#3.RDESCR/R0R 1RSTATUS? K  2RLINE|  ٤P 3R PASSWORD  ٜ4R Tq'35R INPUT_RAB   6R T^?37R LINE_DESC  ٜ8R T8K39R REAL_SALT   SALT:R T{3WHATEVER;R T{3<RMY_TIMEM  ٔ=R T3PSICOPY_HASHNOTSUPP PSICOPY_HASHNOTSUPPi    UAI$C_PURDY " UAI$C_PURDY_S ! SS$_BADPARAM PROTOCOL_ERRORPROTOCOL_ERRORNETSENDNETSEND NETRECEIVE NETRECEIVE"SET_SERVER_MODEQ>RSTATUSPSICOPY_GRANTERRPSICOPY_GRANTERR `$! SS$_NOSUCHID !$RESET_SERVER_MODEu?RSTATUS' PSICOPY_ERREXHPSICOPY_ERREXHPSICOPY_REVOKERRPSICOPY_REVOKERR 'PASCAL%DEBUG_SUPPORT' SAVED_PC_PSL DBG_STACK@RARBR CRPASCAL%DEBUG_SUPPORTDRPASCAL%DEBUG_SUPPORTER FOR_INDEXFR CURRENT_MAX 4GRS !S !ST{3S!S !S !ST3 S ! ST73 S! S !S!STC3S !S !S!S!S3!S/"SS3!S/"SS3!S/"SS !S ! S !!S""S !#ST,3$S !%S"&S !'S !(S !)S !*S !+S !,S !-S !.S !/S !0S !1S !2S !3S !4S !5S !6S !7S !8S !9S !:S !;S !S !?S !@S !AS !BS !CS !DS !ES !FS !GS !HS !IS !JS !KS !LS !MS !NS"OS !PST 3QS !RS"SS !TS !US !VS"WS !XSTD3YS !ZS"[S !\S !]S !^S !_S !`S !aS !bS !cS*!dS*!eS!fS!gS!hS!iS !jS"!kS !lS!mS!!nS!oS$!pS$!qS+!rS+!sS!tS%!uS%!vS!!wS !xS"!yS !zS!{S!|S !}S !~S !S !S !S !S !S !S !S !S !S !S+!S+!S!S!S !S$!S$!S'!S !S'!S !S!S!!S !S!S !S !S"S !S"S !S"S !S"S !S !S !S !S !S"S !ST[3S!S !S !S$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d.K""S !S !ST 3S !S !S !S !S !S !S"S !S !S"S !S !S"S7!S3"S S7!S3"S S !S !S7!S3"S S !S !S"S !ST"3S !ST #3S !ST9#3S!S !S !ST#3S!S !ST#3S!S !S !S !S !S"S !S"S !S"S !S !S !S !S !S"S !S !S !S !S"S !S !S"S !S !S"S !S !S"S !S"S !S"S !S"S !S !S"S !S !S0!S,"SS !S ! S" S ! S" S ! ST'3S!S0!S,"SS !S"S !S !S"S !S !S !S !S !S"S !S ! S"!S7!"S3"#S $S !%S"&S !'S !(S !)S !*S"+S !,S!!-S#!.S !/S#!0S!2S!3S"!4S!!5S !6S"!7S !8S !9S"!:S !;S"!<S !=S!!>S !?S!!@S !AS!BS !CS !DS !ES !FS !GS !HS !IS !JS !KS !LS !MS !NS !OS !PS !QS !RS !SS !TS !US !VS !WS !XSTZ03YS![S!\S"!]S !^S !_S !`S !aS !bS !cS !dS !eS(!fS;!gS7"hS iS(!jS !kS!lS!mS !nS!oS !pS+!qS !rS!sS!tS&!uS0!vS,"wSxS!yS !zS$!{S$!|S!}S!!~S!!S#!S0!S,"SS!S !S !S !S !S#!S#!S!S&!S !S:!S6"SST~83S !S !S !S !S !S !S !S !S !S !S !S !S !S !S7!S3"S S !S !S !S !S !S !S !S !S !S !S%!S%!S$!S !S!S !S!S !S !S !S !S !S!S !S!S!S!S!S !S!STr?3S !S !S"S !S !S !ST@3S !STT@3S !ST@3S !ST@3S !S !S !S !S !S !S !STB3S !STCB3S !S !STB3S!S !S !STB3S !S"S !S7!S3"S S !S !S"S !ST(D3S !ST[D3S !STD3S !STD3S !S !S"S !STCE3S!S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S ! S ! S ! S ! S ! S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S"S ! ST(J3!S !"S"#S !$S !%S !&S"'S !(STJ3)S !*S"+S !,S !-S !.S5!/S,"0S1S!2S!3S!!4S !5S"!6S !7S"!8S !9S"!:S !;S !<S !=S !>S!?S!@S0!AS,"BSCS-!DS-!ES"!FS$!GSww1ՙ匲011NOTIFY0120-Dec-1995 17:5320-Dec-1995 17:53DEC Pascal V5.1-22R NOTIFYPNotify_init: Notify_file:Q Remote address:Notify_finish:QNotify_login: Local user:Q Remote user:QNotify_start_file: File name:Q Operation:QNotify_end_file: File status:<^ԭ PAS$HANDLERmЬP` `(`Ь\l l(l PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2 PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2<^ԭ PAS$HANDLERmЬP` `(`Ь\l l(lo PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRINGa PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2<^ԭ PAS$HANDLERmЬP` `(`\ PAS$FV_OUTPUTPAS$WRITE_STRINGz PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUTPAS$WRITE_STRING\ PAS$FV_OUTPUTPAS$WRITE_CHAR PAS$FV_OUTPUT PAS$WRITELN2^м\ PAS$FV_OUTPUTPAS$WRITE_STRING\ PAS$HEX PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2QQQQQ < NOTIFY_INIT PAS$HANDLER PAS$FV_OUTPUTPAS$WRITE_STRING PAS$WRITELN2 \ NOTIFY_FINISH < NOTIFY_LOGIN ,<NOTIFY_START_FILEPAS$WRITE_CHAR NOTIFY_END_FILEPAS$HEX $CODENOTIFY20-Dec-1995 17:53:35PAS$ENVIRONMENT_TIMECLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIMEPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIMEU7 $CODE UC9mu,/USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]NOTIFY.PAS;9 *  PAS$FV_INPUTINPUTTEXT  CHAR  PAS$FV_OUTPUTOUTPUTR T3 CLI_PARAMETER  NOTIFY_INIT{R NOTIFY_FILER T3R REMOTE_ADDR<R T3  \ NOTIFY_FINISH^ ( NOTIFY_LOGINzR LOCAL_USERR T3R REMOTE_USER  R T3 $,NOTIFY_START_FILEZd R FILE_NAMEMu R T3 RFILE_OPZ UNSIGNED"NOTIFY_END_FILE- R FILE_STATUS SURS !S$!S !S$!S !S#!S !S$! S ! S"! S ! S ! S$!S PAS$FV_INPUTww1E(012PSICOPY0120-Dec-1995 17:4720-Dec-1995 17:47DEC Pascal V5.1-22RPSICOPYPa SYS$OUTPUTQDBG init: cli$present Qdebug.allQdebugQdebug.netQdebug.crcQdebug.dataQdebug.mainQdebug.loginQdebug.interQdebug.serverdebug.file_ioQdebug.restartQdebug.throttleQdebug.compressQPSICOPY: control trafficPSICOPY: receiving Q at block QPSICOPY: sending Q at block Q%$QIO ctrl-t:$ASSIGN tt: $GETJPI Cannot acquire SYNCH EFNPsiCopy>PsiCopy PsiCopy>PsiCopy ENABLE PRIVSDISABLE PRIVSQ$SETPRVQPSICOPY$RESETPRVerreur LIB$GETJPI imageprivsSAVE_IMAGE_PRVSQerreur LIB$GETJPI procprivsQSAVE: DISABLE PRIVSQSAVE: IMAGE PRIVSQerreur $SETPRV revertprivsQrestartQlogQcentralized_logQstatistics^ԭ PAS$HANDLERmЬP` `(`\^R CLI$PRESENTPV1PVPP PAS$HEXWWWR^^X(n( cWX PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2\VVP^ԭ PAS$HANDLERm^\  CLI$PRESENTPVVR CLI$PRESENTPRR \W^\ ( `VX CLI$PRESENTPY1PYPP PAS$HEXZZZ\^^[(n( cZ[ PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2XY\^W\Y \Y^\ ( VW찏 CLI$PRESENTPX1PXPP PAS$HEX[[[\^^Z(n( c[Z PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2WX\^Y\X \X^\ ( VY谏쟭 CLI$PRESENTPW1PWPP쟭 PAS$HEXZZZ\^^[(n( cZ[ PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2YW\^X\W \W^\ ( VX䰏蟭 CLI$PRESENTPY1PYPP蟭 PAS$HEX[[[\^^Z(Jn( c[Z PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2XY\^W\Y \Y^\ ( SVW CLI$PRESENTPX1PXPǦ,-$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"P PAS$HEXZZZ\^^[(zn( cZ[ PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2WX\^Y\X \X^\ ( VY䰏蟭 CLI$PRESENTPW1PWPP蟭 PAS$HEX[[[\^^Z(n( c[Z PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2YW\^X\W \W^\ ( VX CLI$PRESENTPY1PYPP PAS$HEXZZZ\^^[(n( cZ[ PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2XY\^W\Y \Y^\ ( VW䰏蟭 CLI$PRESENTPX1PXPP蟭 PAS$HEX[[[\^^Z( n( c[Z PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2WX\^Y\X ӐV \^( En ~^^PP  ӐV\^(#n~^^PP  V\^(n~^^PϴP  YH PAS$REWRITE2YYH PAS$REWRITE2YA1HPAS$WRITE_STRINGH PAS$WRITELN21HPAS$WRITE_STRINGB@HPAS$WRITE_STRINGu HPAS$WRITE_STRINGDHPAS$WRITE_UNSIGNEDH PAS$WRITELN2HHPAS$WRITE_STRINGB@HPAS$WRITE_STRING. HPAS$WRITE_STRINGDHPAS$WRITE_UNSIGNEDH PAS$WRITELN2^ԭ PAS$HANDLERm^\((^\ԞĞ SYS$GETJPIWPVV SYS$GETJPIWPVV1̰ذڞܟ SYS$ASSIGNPVV1d/ݏ#<~ SYS$QIOWPV 1VV̟ PAS$HEXWWW\^^X( n( cЏXЏW̞WWܞ PSICOPY_DEBUG1 1Vܟ PAS$HEXXX PAS$HANDLER CLI$PRESENTPAS$HEX PAS$FV_OUTPUTPAS$WRITE_STRING PAS$WRITELN2PSICOPY  l INIT_DEBUG  INIT_SYS$OUTPUT PAS$REWRITE2   CONTROL_TPAS$WRITE_UNSIGNED  ( INIT_CONTROL_T SYS$GETJPIW SYS$ASSIGNSYS$QIOW PSICOPY_DEBUG  t INIT_PSICOPY LIB$GET_EFLIB$PUT_OUTPUTLIB$STOP SYS$GETTIM  PSICOPY$ELAPSED LIB$SUB_TIMESLIB$CVT_FROM_INTERNAL_TIMEX\^^W( n( cЏWЏXXXܚ PSICOPY_DEBUG Vܟ PAS$HEXVVV\^^\(7n( cЏ\ЏVVVܚ PSICOPY_DEBUG^ LIB$GET_EFP\\LIB$PUT_OUTPUT\LIB$STOP8 SYS$GETTIMP\b^ SYS$GETTIMP\8 LIB$SUB_TIMESP\ߏLIB$CVT_FROM_INTERNAL_TIMEЭ\\P INIT_THROTTLE\DCLINITP\\OPEN_INPUT_FILE\\PPOPEN_OUTPUT_FILE\\PP TRANSFER_FILE NEXT_FILE\\PPGET_INPUT_FILE_SPECS\\PPCLEANUP_TRANSFERP|^ԭ PAS$HANDLERm}<ح<ح<حЏЏܭ}<<<ЏЏ­^ЭVЭQ^SV(acV(Vací^VV^ѭ ,* 454 \\P0^ԭ PAS$HANDLERm\^V\1 LIB$GET_INPUT LIB$GET_INPUT PSICOPY_CMD<\\WWWV^^X(n(\cWаXԞЭܚ CLI$DCL_PARSEPX1h LIB$GET_INPUTS PSICOPY_CMD<WW\\\V^^V(-n(Wc\аVԞЭܚ CLI$DCL_PARSEPXXXP8^ԭ PAS$HANDLERm}^\\` 1 PAS$HEXVVV\^^\( n( c PAS$HEXV WWW\^^X(Vln( cЏXЏWԞWW䞭ȭ PSICOPY_DEBUG SYS$SETPRV^ԭ PAS$HANDLERm}^\\` 1 PAS$HEXVVV\^^\( n( c PAS$HEXV WWW\^^X(Vln( cЏXЏWԞWW䞭ȭ PSICOPY_DEBUG SYS$SETPRVPP쟭ЏȞ<ЏԞ'䟭ЏЏğ PSICOPY_BUGF^ԭ PAS$HANDLERm^\ߏ LIB$GETJPIPVVV쟭Џ̞Џ؞蟭ЏЏȟ PSICOPY_BUGF\ߏ LIB$GETJPIPV\VV쟭Џ̞<Џ؞'蟭ЏЏ PSICOPY_BUGF\` 1 PAS$HEXWWW\^^X(n( c PAS$HEXW YYYX^^Z(Whn( cЏZЏYYYȞ PSICOPY_DEBUG PAS$HEXZZZ\^^\($n( c PAS$HEXZ YYY\^^X(Zln( cЏXЏYԞYY䞭ȭ PSICOPY_DEBUG SYS$SETPRVPVVV쟭ЏȞЏԞ䟭ЏЏğ PSICOPY_BUGF0^ԭ PAS$HANDLERm^\ MINOR_VERSIONPP2 MAJOR_VERSIONPP3ЏLIB$GET_FOREIGNP\V^\P LIB$GET_INPUT PSICOPY_CMD<WWXXX\^^Y(n(WcXаYԞЭܚ CLI$DCL_PARSEP\^V\PVV1YO CLI$PRESENTPYY5YY1\Y^\P7 LIB$GET_INPUT LIB$GET_INPUT PSICOPY_CMD<XXWWW\^^Z(n(XcWаZԞЭܚ CLI$DCL_PARSE PSICOPY$MASTER INIT_THROTTLEDCLINITOPEN_INPUT_FILEOPEN_OUTPUT_FILE TRANSFER_FILE NEXT_FILEGET_INPUT_FILE_SPECSCLEANUP_TRANSFER   PARSE_COMMAND LIB$GET_INPUT PSICOPY_CMD CLI$DCL_PARSE  PSICOPY$SETPRV SYS$SETPRV  PSICOPY$RESETPRV PSICOPY_BUGF  SAVE_IMAGE_PRVS LIB$GETJPI PSICOPY MINOR_VERSION MAJOR_VERSIONLIB$GET_FOREIGN EDIT_LEVELP\^Y\PVPVPP1υ LIB$GET_EFPYYfLIB$PUT_OUTPUTYLIB$STOP8 SYS$GETTIMPYY* CLI$PRESENTPYY  EDIT_LEVEL MINOR_VERSION쟭 MAJOR_VERSIONԟԞ PSICOPY_IDENT PSICOPY_ERROR CLI$PRESENTPINIT_CENTRALIZED_LOGY CLI$DISPATCHPYY { CLI$PRESENTP1 PSICOPY_SENT PSICOPY_ERROR PSICOPY_RECEIVED PSICOPY_ERROR($P((PԭQ{(PPPSICOPY_DATARATE PSICOPY_ERROR0$n$P`PPvPPn,Y`PYvYYFPYDYKYYdYPSICOPY_COMPRESS_FACTOR PSICOPY_ERROR PSICOPY_ABORTPPVPЬPРPQRQRQSЬTCPЬTCPRQPQ PSICOPY_IDENT PSICOPY_ERRORINIT_CENTRALIZED_LOG CLI$DISPATCH PSICOPY_SENTPSICOPY_RECEIVEDPSICOPY_DATARATEPSICOPY_COMPRESS_FACTOR PSICOPY_ABORT  DPASCAL%DEBUG_SUPPORT %  COMMAND_LINE   GLOBAL_STATUS   FILES_TO_DO  LOG  TT_LOG   SYNCH_EFN  DEBUG % DBGMESS   SERVER_MODE   TX_PACKETS  TX_BYTES   RX_PACKETSQQ QXQQ PQ9Q}Q QnQ `Q QxQQ"QGQ|QQnQ `Q QQQ QnQ `Q QQQ QnQ `Q QQQ QnQ `Q QQQ QnQ `Q QQQ =6$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d8"QnQ `Q QQQ QnQ `Q QQQ QnQ `Q QQQ. QQ#QfeQQ]Q*Q7qQqQ QQQ Q QQ{Q qQ Qj%QQ GQ1QQQQ.QQQ5QBQ<QEQyQQ3QQQ3Q^tQtQtQ:QQ3QhQ3QatQQPQJQ QQKQJQ^Q%QZQQ3QQQ QQ Q) QQ%Q%GQQ QQB Q'aQYQ Q Q? QQQQ    RX_BYTES  $ RW_DATABYTES  ( RW_DATATIME  ,RW_NETDATABYTES  0 COMPRESS_SEEN 2VERSION  4 MISSPARAM  5 MISSALLPARAM 8 INIT_TIME % @ CURRENT_FILE  A CURRENT_STATE  D CURRENT_BLOCK H SYS$OUTPUT  YSYS$OUTPUT_INITED \ PROCPRIVSx$CODEl$LOCALPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIMECLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIME 1SR2$CODEx$LOCALlXF2USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]PSICOPY.PAS;214   PAS$FV_INPUTINPUTTEXT  CHAR  PAS$FV_OUTPUTOUTPUTR T63" MAX_BLOCK_LEN &MAX_NET_BLOCK_LEN %V1_TRANSFER_MASK " TRANSFER_MASK UNSIGNEDRWORDR  INTEGERRBYTER  TIME_TYPE@ LOW  HIGHR FILE_NAME_LENR ! NAM$C_MAXRSS  FILE_NAME R BLOCK_SIZE R  NETBLOCK_TYPE  BLOCK_TYPE ATR_LIST UCHAR RECATTR R R R T43    ASCDATES RRR T43 ## 8FPROR T 3 HRPROR T 3 XSEMASKRRR T43 STATBLKSBK$TYPER T&3T3RRSBK$R_STLBN_OVERLAYR  R  SBK$R_FILESIZE_OVERLAYR  R @ SBK$B_ACNTR RRR H SBK$B_LCNT R TR3P SBK$L_FCBpSBKDEF$$_FILL_1!R "R#R$R  SBK$W_ACNT%R &R'R(R  SBK$W_LCNT)R T3 SBK$W_WCNT*R T3 SBK$W_TCNT+R T3 SBK$L_READS SBK$L_WRITES,R@-R SBK$L_STLBN SBK$L_FILESIZE.R/R0R@1R SBK$W_STLBNH2R T3 SBK$W_STLBNL3R T3 SBK$W_FILESIZH4R T30SBK$W_FILESIZL5R T3" ATR$S_RECATTR  #ATR$S_ASCDATES #! ATR$S_SEMASK  FDID_TYPE FID6R7R8R T 3  0DVI NAM$C_DVI TRANSFER_OPTIONS DELETE_INPUT9R :R BOOLEANCOMPRESS;R T 3 CRCR T 3 VERSION_TYPE MINOR?R T43 MAJOR@R T43 COMMAND_LINE  GLOBAL_STATUS FILES_TO_DO LOG TT_LOG SYNCH_EFN  DEBUG  NETAR T 3 MAINBR T 3 DATACR T 3 CRCDR T 3 LOGER T 3 LOGINFR T 3 INTERGR T 3 SERVERHR  T 3FILE_IOIR T 3 RESTARTJR T 3 THROTTLEKR T 3 COMPRESSLR T 3DBGMESS  SERVER_MODE PSICOPY_IDENT PSICOPY_IDENT PSICOPY_ABORT PSICOPY_ABORT PSICOPY_SENT PSICOPY_SENTPSICOPY_RECEIVEDPSICOPY_RECEIVEDPSICOPY_COMPRESS_FACTORPSICOPY_COMPRESS_FACTORPSICOPY_DATARATEPSICOPY_DATARATE TX_PACKETSTX_BYTES RX_PACKETS RX_BYTES$ RW_DATABYTES( RW_DATATIME,RW_NETDATABYTES0 COMPRESS_SEEN2VERSIONMR T> 3 MINOR_VERSION MINOR_VERSIONNR T43 MAJOR_VERSION MAJOR_VERSIONOR T43 EDIT_LEVEL EDIT_LEVELPR  T 34 MISSPARAM5 MISSALLPARAM8 INIT_TIMEQR TP3@ CURRENT_FILERR T3RECEIVE SEND OTHERA CURRENT_STATESR T3D CURRENT_BLOCKH SYS$OUTPUTTR T63YSYS$OUTPUT_INITED PSICOPY_CMD PSICOPY_CMDPRV$TYPE@UR T&3@T]3VR@WRPRV$R_PRVDEF_BITS0XR @YR ZR'[R PRV$V_CMKRNL\R T 3 PRV$V_CMEXEC]R T 3 PRV$V_SYSNAM^R T 3 PRV$V_GRPNAM_R T 3PRV$V_ALLSPOOL`R T 3 PRV$V_DETACHaR T 3PRV$V_DIAGNOSEbR T 3 PRV$V_LOG_IOcR T 3 PRV$V_GROUPdR T 3 PRV$V_NOACNTeR T 3 PRV$V_PRMCEBfR T 3 PRV$V_PRMMBXgR T 3 PRV$V_PSWAPMhR T 3 PRV$V_SETPRIiR T 3 PRV$V_SETPRVjR T 3 PRV$V_TMPMBXkR T 3 PRV$V_WORLDlR T 3 PRV$V_MOUNTmR T 3 PRV$V_OPERnR T 3 PRV$V_EXQUOTAoR T 3 PRV$V_NETMBXpR T 3 PRV$V_VOLPROqR T 3 PRV$V_PHY_IOrR T 3 PRV$V_BUGCHKsR T 3 PRV$V_PRMGBLtR T 3 PRV$V_SYSGBLuR T 3 PRV$V_PFNMAPvR T 3 PRV$V_SHMEMwR T 3 PRV$V_SYSPRVxR T 3 PRV$V_BYPASSyR T 3 PRV$V_SYSLCKzR T 3 PRV$V_SHARE{R T 3 PRV$V_UPGRADE|R T 3!PRV$V_DOWNGRADE}R T 3" PRV$V_GRPPRV~R  T 3# PRV$V_READALLR T 3$ PRV$V_IMPORTR T 3% PRV$V_AUDITR T 3&PRV$V_SECURITYR T 3RRPRV$R_PRVDEF_BITS1R R RR PRV$V_ACNTR T 3 PRV$V_ALTPRIR T 3R@RPRV$R_PRVDEF_BITS2R @R R@R PRV$L_L1_BITS PRV$L_L2_BITS\ PROCPRIVSR TI3FAB$TYPER T&3TJ3RR FAB$B_BIDR TR3 FAB$B_BLNR TR3FAB$R_IFI_OVERLAYR R  FAB$R_FOP_OVERLAYR  R @ FAB$L_STS` FAB$L_STV FAB$L_ALQ FAB$W_DEQR T3FAB$R_FAC_OVERLAYR R ׶$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"FAB$R_SHR_OVERLAYR R  FAB$L_CTX FAB$B_RTVR RRR FAB$R_ORG_OVERLAYR R FAB$R_RAT_OVERLAYR R  FAB$B_RFMR TR3FAB$R_JOURNAL_OVERLAYR R FAB$B_RU_FACILITYR TR3FABDEF$$_FILL_7R T3  FAB$L_XAB@ FAB$L_NAM` FAB$L_FNA FAB$L_DNA FAB$B_FNSR TR3 FAB$B_DNSR TR3 FAB$W_MRSR T3 FAB$L_MRN FAB$W_BLSR T3 FAB$B_BKSR TR3 FAB$B_FSZR TR3 FAB$L_DEV  FAB$L_SDC@ FAB$W_GBCR T3PFAB$R_ACMODES_OVERLAYR R XFAB$R_RCF_OVERLAYR R `FABDEF$$_FILL_9R`R FAB$W_IFIR T3 FAB$L_FOP FAB$B_FACR TR3 FAB$B_SHRR TR3 FAB$B_ORGR TR3 FAB$B_RATR TR3 FAB$B_JOURNALR TR3P FAB$B_ACMODESR TR3X FAB$B_RCFR TR3R`RFAB$R_IFI_BITSR R  FAB$R_FOP_BITSR  R FAB$R_FAC_BITSR R FAB$R_SHR_BITSR R FAB$R_ORG_BITSR R FAB$R_RAT_BITSR R FAB$R_JOURNAL_BITSR R PFAB$R_ACMODES_BITSR R XFAB$R_RCF_BITSR R R[R FAB$V_PPF_RATR RRR  FAB$V_PPF_INDR T 3 FAB$V_PPIFIR T 3 FAB$V_ASYR T 3! FAB$V_MXVR T 3" FAB$V_SUPR T 3# FAB$V_TMPR T 3$ FAB$V_TMDR T 3% FAB$V_DFWR T 3& FAB$V_SQOR T 3' FAB$V_RWOR T 3( FAB$V_POSR T 3) FAB$V_WCKR T 3* FAB$V_NEFR T 3+ FAB$V_RWCR T 3, FAB$V_DMOR T 3- FAB$V_SPLR T 3. FAB$V_SCFR T 3/ FAB$V_DLTR T 30 FAB$V_NFSR T 31 FAB$V_UFOR T 32 FAB$V_PPFR T 33 FAB$V_INPR T 34 FAB$V_CTGR T 35 FAB$V_CBTR T 36 FAB$V_SYNCSTSR T 37 FAB$V_RCKR T 38 FAB$V_NAMR T 39 FAB$V_CIFR T 3; FAB$V_ESCR T 3< FAB$V_TEFR T 3= FAB$V_OFPR T 3> FAB$V_KFOR T 3 FAB$V_PUTR T 3 FAB$V_GETR T 3 FAB$V_DELR T 3 FAB$V_UPDR T 3 FAB$V_TRNR T 3 FAB$V_BIOR T 3 FAB$V_BROR T 3 FAB$V_EXER T 3 FAB$V_SHRPUTR T 3 FAB$V_SHRGETR T 3 FAB$V_SHRDELR T 3 FAB$V_SHRUPDR T 3 FAB$V_MSER T 3 FAB$V_NIL R T 3 FAB$V_UPI R T 3 FAB$V_ORG R  R RR  FAB$V_FTNR T 3FAB$V_CRR T 3 FAB$V_PRNR T 3 FAB$V_BLKR T 3 FAB$V_ONLY_RUR T 3FAB$V_RUR T 3FAB$V_BIR T 3FAB$V_AIR T 3FAB$V_ATR T 3FAB$V_NEVER_RUR T 3FAB$V_JOURNAL_FILER T 3PFAB$V_LNM_MODER RRR RFAB$V_CHAN_MODER T%3TFAB$V_FILE_MODER T%3VFAB$V_CALLERS_MODE R T%3X FAB$V_RCF_RU!R T 3Y FAB$V_RCF_AI"R T 3Z FAB$V_RCF_BI#R T 3l INIT_DEBUG)$RDEFVAL  SETVAL%RSETVALj&RSETV ALj'RCLIPAR CLI_PARAMETER (RDEFVALg )RSTATUS  | CLI$PRESENT CLI$PRESENT! CLI$_NEGATED ! CLI$_PRESENT   CLI$_ABSENT " INIT_SYS$OUTPUT     CONTROL_T   !( INIT_CONTROL_TP *RTTNAMW   +RTT_CHAN  ,R T 3d CTRL_T_MASK @ LOW  HIGH-RSTATUSx .R MASTER_PIDR  /R JPI_ITMLST0C g  SIZE0R T 3 CODE1R T 3  BUFADR @RETLEN`LISTEND2R JPI_ITMLSTL   SIZE3Rf T 3 CODE4R T 3  BUFADR @RETLEN`LISTEND L$JPI$_MASTER_PID %" JPI$_TERMINAL  SYS$GETJPIW$GETJPIW SYS$ASSIGN$ASSIGN SYS$QIOW$QIOW  IO$_SETMODE #! IO$M_OUTBAND t INIT_PSICOPYy)5RSTATUS T[ LIB$GET_EF LIB$GET_EFLIB$PUT_OUTPUTLIB$PUT_OUTPUT SYS$GETTIM$GETTIM"PSICOPY$ELAPSED76RPSICOPY$ELAPSED  7RPSICOPY$ELAPSED  8R CURRENT_TIME9R TP3:R DELTA_TIME;R TP3<R DELTA_SECS=RSTATUS D LIB$SUB_TIMES LIB$SUB_TIMES!LIB$CVT_FROM_INTERNAL_TIMELIB$CVT_FROM_INTERNAL_TIME(LIB$K_DELTA_SECONDS ! PSICOPY$MASTERa>RPSICOPY$MASTER?RPSICOPY$MASTER   PARSE_COMMAND@R PARSE_COMMANDAR PARSE_COMMANDBRGET_PARAMETERS CRSTATUSGET_STARA RESDRER ڸPROMPTFRGRڸ RESLENHR T 3IR GET_STARz| JR GET_STARz| L1 U1 L2 U2  ( SS$_NORMAL  CLI$DCL_PARSE CLI$DCL_PARSE LIB$GET_INPUT LIB$GET_INPUTSTS$TYPE KR T&3 T/3LR MRSTS$R_STSDEF_BITS0NR  OR PR QRSTS$V_SEVERITYRR SRTRUR  STS$V_COND_IDVR WRXRYR  STS$V_CONTROLZR T3$3[R\RSTS$R_STSDEF_BITS1]R ^R _R`R STS$V_SUCCESSaR T 3 STS$V_MSG_NObR  cRdReR fR gRSTS$R_STSDEF_BITS2hR  iR jRkR STS$V_CODElR  mR Ar$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"nRoR  STS$V_FAC_SPpR T 3STS$V_CUST_DEFqR T 3STS$V_INHIB_MSGrR T 3sR tRSTS$R_STSDEF_BITS3uR  vR wRxR STS$V_FAC_NOyR  T13!PSICOPY$SETPRVzRPSICOPY$SETPRV{RPSICOPY$SETPRV|RPRV}R TI3~RSTATUSRNEWPRVR TI3  SYS$SETPRV$SETPRV#PSICOPY$RESETPRVRPRVR TI3 MODULERNEWPRVfR TI3RSTATUSru \"SAVE_IMAGE_PRVS MODULERSTATUSR IMAGEPRIVSR TI3R REVERTPRIV4R TI3 (d LIB$GETJPI LIB$GETJPI" JPI$_IMAGPRIV " JPI$_PROCPRIV PSICOPY"{RPSICOPY3CRPSICOPY3CRSTATUSB 4HLIB$GET_FOREIGNLIB$GET_FOREIGN CLI$DISPATCH CLI$DISPATCH'DPASCAL%DEBUG_SUPPORTF' SAVED_PC_PSL DBG_STACKRRR RPASCAL%DEBUG_SUPPORTRPASCAL%DEBUG_SUPPORTR FOR_INDEX\sR CURRENT_MAXNs 4RS !S!S!S$!S!! S7! S3" S  S7!S3"S S !S !S7!S3"S S !S !S"S !ST3S !ST$3S !STR3S! S !!S !"ST3#S!%S !&ST3'S!)S !*S !+S !,S !-S".S !/S"0S !1S"2S !3S !4S !5S !6S7!7S3"8S 9S !:ST 3;S !S !?S !@S !AS !BS !CS !DS !ES !FS !GS !HS !IS !JS !KS !LS !MS !NS !OS !PS !QS !RS !SS !TS !US !VS !WS"XS !YST3ZS ![S"\S !]S !^S !_S !`S !aS !bS !cS !dS !eS !fS !gS !hS !iS !jS !kS !lS !mS !nS !oS !pS !qS !rS !sS !tS !uS !vS !wS !xS !yS !zS !{S !|S !}S !~S !S !S !S !S !S !S"S !ST=3S !S"S !S !S !S"S !ST3S !S"S !S !S !S"S !S !S !ST3S !ST3S !S !ST3S !ST3S !ST3S!S !STQ3S !ST3S !S !ST3S !S !S !S !S !S !S !S !S !S !ST3S !ST3S !S"S !S !S !S !S !S !S !S !S !S"S !ST^3S !ST3S !ST3S !ST3S !ST&3S !STX3S !ST3S !ST3S !ST3S !S"S !ST53S!S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S ! S ! S ! S ! ST3$3 S!S !S !S !S !S !S !S !S !S !S !S !S !ST%3S!S !S ! S !!S !"S !#S !$S!%S!&S!'S!(S!)S!*S!+S !,S !-S!.S#!/S$!0S !1S !2S#!3S !4S !5S!6S(!7S(!8S%!9S !:S#!;S !<S#!=S!>S'!?S'!@S&!AS&!BS'!CS!DS!ES "FS!GS "HS !IS!!JS!!KS !LS !MS"NS !OST(03PS !QS"RS !SSTh03TS!VS !WST03XS!ZS ![S !\S"]S !^ST13_S !`S"aS !bS !cSTu13dS!fS !gS"hS !iST13jS !kS"lS !mST13nS!pS !qS !rS !sS !tS"uS !vST23wS !xS"yS !zS'!{S'!|S!}S !~S!S!S !S!S !S!S !S!S!S#!S !S#!S !S !S !S!S0!S ,"SS-!S-!S"!S$!S PAS$FV_INPUTww1Vn0-0& PSICOPY_CMD0-024-SEP-1995 15:57+OpenVMS Command Definition Utility V05-13 PSICOPY_CMD CLI$TABLESP PSIC ,@`l" ,PSICOPYPSICOPY$MASTER,q&!P1FromINPUT,$!P2ToOUTPUT$a4  FROM$a 4 TO(4SERVER$XLOG$a|0DEBUG, STATISTICS(DELETE(COMPRESS$ CRC(D REVERSE(cl RESTART( WINDOW( PKTSIZE( THRUCLS0CLOSED_USER_GROUP(<TEMPLATE$`TYPE(DELETE(COMPRESS0CENTRALIZED_LOG RESTART_KEY4#FILEpsicopy$restartLDBG_TYPE$pALL$NET$DATA$ CRC$MAIN$$LOGIN$HINTER(pSERVER( FILE_IO( RESTART( THROTTLE( COMPRESSD`T 0 SERVER_SYNTAXPSICOPY$SERVER(|SERVER$LOG$a0DEBUG,  STATISTICS$LOGIN0DCENTRALIZED_LOG$chBOOT(JENABLE ENABLE_KEYWORDS4) PRIVILEGESDEFAULT4NOTIFY_COMMAND_FILE$<PRIVILEGES_TYPES(dDEFAULT, AUTHORIZED(MAXIMUM BOOT_KWD8 #FILEpsicopy_load.exe(MESSAGE T REMOTE_ADDRESS(| ADDRESS$ PWD$PWD2PSICOPY$MASTERXPPSICOPY$MASTERPSICOPY$SERVER@PPSICOPY$SERVERww1'C018 PSICOPY_ERROR0120-Dec-1995 17:5420-Dec-1995 17:54DEC Pascal V5.1-22R PSICOPY_ERRORPALOG_FILEQLPTcentralized_logQ.log|^ԭ PAS$HANDLERm}<ح<ح<حЏЏܭ­^ЭVЭQ^SV(acV(Vací^VV^ܐ\\1 SYS$SETASTP\ P`%1PAS$DATEPAS$TIME PAS$WRITE_STRING PAS$WRITE_STRING PAS$WRITE_CHARѭѭݭPAS$WRITE_STRING PAS$WRITELN2 PAS$WRITE_CHAR⟯ѭѭݭPAS$WRITE_STRING PAS$WRITELN2 PAS$STATUSPTT_LOG\  SYS$SETASTP<^ԭ PAS$HANDLERm( ­^Э\ЭQ^S\(ac\(\ací^\\^\ PPSICOPY_DEBUGINFOQ@QRRЏОԟП \P@!~$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dqR" SYS$GETMSGPS\QQ9QQ,Q!Q$ QQ Q=QP1Q QrQ dQ42Q+QQ@Q4)QQSQwQ4)QQtQBQQBQQ+QQ+QQ[Q QRQ#QCQ QQ QQ$Q CLI$GET_VALUE PAS$OPEN2 PAS$EXTENDPSICOPY_EXTLOG SYS$CREATE SYS$CONNECTPSICOPY_OPENLOG $CODE$LOCALCLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIMEPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIME$   2$CODE $LOCAL_]K.Fא|7USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]PSICOPY_ERROR.PAS;23   PAS$FV_INPUTINPUTTEXT  CHAR  PAS$FV_OUTPUTOUTPUTR T3! MAX_FAO_LIST R FAO_RANGER  INTEGERLOG_FILER T3 WRITE_LOGUNSIGNED WRITE_FILE#T MESSRRR WRITE_FILER WRITE_FILE $L1 $U1 RINHIBIT#%  R ASTSTATUS5J  RDATESTIa  RTIMESTSyٸ R TQ3 q SYS$SETAST$SETAST TT_LOGTT_LOG SS$_WASSET   SS$_NORMAL  \GETMSG MSGVECRRRGETMSG  RGETMSG   FIRST LASTRSTATUSRINDEX R CODE_BUF R LINE_BUF RRET_LENR RRWORDR RDEBUGPSICOPY_DEBUGINFOPSICOPY_DEBUGINFO 0 SYS$GETMSG$GETMSG SYS$FAOL$FAOL  PUTMSG_ MSGVECRR FIRST LASTPSICOPY_PUTMSGPSICOPY_PUTMSGPSICOPY_DEBUGINFOPSICOPY_DEBUGINFORSTATUS2 R INHIBIT_LOG 8 DEBUGDEBUG  NET R !R BOOLEAN MAIN"R T3 DATA#R T3 CRC$R T3 LOG%R T3 LOGIN&R T3 INTER'R T3 SERVER(R T3FILE_IO)R T3 RESTART*R T3 THROTTLE+R T3 COMPRESS,R T3 SYS$PUTMSG$PUTMSGLIB$STOP ERROR_STOP D PSICOPY_ERROR-R CONDITIONX.RFAO_PARAMETERS/RMSGVEC٨0R1R2R L3RINDFAO4R T3   PSICOPY_DEBUG4d MSG5R6R L1 U1PSICOPY_DEBUGINFOPSICOPY_DEBUGINFO l$XPSICOPY_SYS_ERROR7R CONDITIONl8RSYSCONDp9RFAO_PARAMETERS:RMSGVEC٤;RRINDFAO?R T3 $ PSICOPY_BUG MODULE@RAR MESSBRCR L1 U1 L2 U2DRSTATUS PSICOPY_NONFATAL_BUGPSICOPY_NONFATAL_BUG  PSICOPY_BUGF MODULEERFR MESSGRHR L1 U1 L2 U2IRSTATUS PSICOPY_FATAL_BUGPSICOPY_FATAL_BUG STS$TYPE JR T3 T 3KR LRSTS$R_STSDEF_BITS0MR  NR OR PRSTS$V_SEVERITYQR RRSRTR  STS$V_COND_IDUR VRWRXR  STS$V_CONTROLYR ZR[R\R ]R^RSTS$R_STSDEF_BITS1_R `R aRbR STS$V_SUCCESScR T3 STS$V_MSG_NOdR  eRfRgR   hR iRSTS$R_STSDEF_BITS2jR  kR lRmR STS$V_CODEnR  oRpRqR  STS$V_FAC_SPrR T3STS$V_CUST_DEFsR T3STS$V_INHIB_MSGtR T3uR vRSTS$R_STSDEF_BITS3wR  xR yRzR STS$V_FAC_NO{R  Tb3FAB$TYPE"+b$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dո" !|R T3Tq3}R~R FAB$B_BIDR RRR  FAB$B_BLNR T3FAB$R_IFI_OVERLAYR R  FAB$R_FOP_OVERLAYR  R @ FAB$L_STS` FAB$L_STV FAB$L_ALQ FAB$W_DEQR RRR FAB$R_FAC_OVERLAYR R FAB$"R_SHR_OVERLAYR R  FAB$L_CTX FAB$B_RTVR RRR FAB$R_ORG_OVERLAYR R FAB$R_RAT_OVERLAYR R  FAB$B_RFMR T3FAB$R_JOURNAL_OVERLAYR R FAB$B_RU_FACILITYR T3FABDEF$$_FILL_7R RRR   FAB$L#_XAB@ FAB$L_NAM` FAB$L_FNA FAB$L_DNA FAB$B_FNSR T3 FAB$B_DNSR T3 FAB$W_MRSR T3 FAB$L_MRN FAB$W_BLSR T3 FAB$B_BKSR T3 FAB$B_FSZR T3 FAB$L_DEV  FAB$L_SDC@ FAB$W_GBCR T3PFAB$R_ACMODES_OVERLAYR R XFAB$R_RCF_OVERLAYR R $`FABDEF$$_FILL_9R`R FAB$W_IFIR T3 FAB$L_FOP FAB$B_FACR T3 FAB$B_SHRR T3 FAB$B_ORGR T3 FAB$B_RATR T3 FAB$B_JOURNALR T3P FAB$B_ACMODESR T3X FAB$B_RCFR T3R`RFAB$R_IFI_BITSR R  FAB$R_FOP_BITS%R  R FAB$R_FAC_BITSR R FAB$R_SHR_BITSR R FAB$R_ORG_BITSR R FAB$R_RAT_BITSR R FAB$R_JOURNAL_BITSR R PFAB$R_ACMODES_BITSR R XFAB$R_RCF_BITSR R R[R FAB$V_PPF_RATR &RRR  FAB$V_PPF_INDR T3 FAB$V_PPIFIR T3 FAB$V_ASYR T3! FAB$V_MXVR T3" FAB$V_SUPR T3# FAB$V_TMPR T3$ FAB$V_TMDR T3% FAB$V_DFWR T3& FAB$V_SQOR T3' FAB$V_RWOR T3( FAB$V_POSR T3) FAB$'V_WCKR T3* FAB$V_NEFR T3+ FAB$V_RWCR T3, FAB$V_DMOR T3- FAB$V_SPLR T3. FAB$V_SCFR T3/ FAB$V_DLTR T30 FAB$V_NFSR T31 FAB$V_UFOR T32 FAB$V_PPFR T33 FAB$V_INPR T34 FAB$V_CTGR T35 FAB$V_CBTR T(36 FAB$V_SYNCSTSR T37 FAB$V_RCKR T38 FAB$V_NAMR T39 FAB$V_CIFR T3; FAB$V_ESCR T3< FAB$V_TEFR T3= FAB$V_OFPR T3> FAB$V_KFOR T3 FAB$V_PUTR T3 FAB$V_GETR T3 FAB$V_DELR T3 FAB$V_UPDR T3 FAB$V)_TRNR T3 FAB$V_BIOR T3 FAB$V_BROR T3 FAB$V_EXER T3 FAB$V_SHRPUTR T3 FAB$V_SHRGETR T3 FAB$V_SHRDELR T3 FAB$V_SHRUPDR T3 FAB$V_MSER T3 FAB$V_NILR T3 FAB$V_UPIR T3 FAB$V_ORGR T) 3 FAB$V_FTNR * T3FAB$V_CRR T3 FAB$V_PRNR T3 FAB$V_BLKR T3 FAB$V_ONLY_RUR T3FAB$V_RUR T3FAB$V_BIR T3FAB$V_AIR T3FAB$V_ATR T3FAB$V_NEVER_RUR T3FAB$V_JOURNAL_FILE R T3PFAB$V_LNM_MODE R  R; R R +RFAB$V_CHAN_MODER T(3TFAB$V_FILE_MODER T(3VFAB$V_CALLERS_MODER T(3X FAB$V_RCF_RUR T3Y FAB$V_RCF_AIR T3Z FAB$V_RCF_BIR T3$PSICOPY_RMS_ERROR aR CONDITIONO R FILE_FAB 0R T]3RFAO_PARAMETERSRMSGV,EC?  ـRRR TRINDFAO`  R T3RNBARG"   %" RMS$_FACILITY ' INIT_CENTRALIZED_LOG RFAB_PTRT]3 R LOG_NAME U  CLI_PARAMETER PSICOPY_OPENLOGPSICOPY_OPENLOGPSICOPY_EXTLOGPSICOPY_EXTLOG!R LOG_FAB_PTR  -"R T!3( JE_RECUPERE_LE_STATUS  FAB#R T]3 RABRAB$TYPE $R T3 T"3%R &R RAB$B_BID'R T3 RAB$B_BLN(R T3RAB$R_ISI_OVERLAY)R *R  RAB$R_ROP_OVERLAY+R  ,R @ RAB$L_STS`RAB$R_STV_OVERLAY-R  .R RAB$R_RF.A_OVERLAY/R 00R RABDEF$$_FILL_41R T3 RAB$L_CTXRABDEF$$_FILL_52R T3 RAB$B_RAC3R T3 RAB$B_TMO4R T3 RAB$W_USZ5R T3 RAB$W_RSZ6R T3  RAB$L_UBF@ RAB$L_RBF` RAB$L_RHBRAB$R_KBF_OVERLAY7R  8R RAB$R_KSZ_OVERLAY9R :R / RAB$B_KRF;R T3 RAB$B_MBF<R Ti3 RAB$B_MBC=R T3RAB$R_BKT_OVERLAY>R  ?R  RAB$L_FAB RAB$L_XAB@RAR RAB$W_ISIBR T3 RAB$L_ROP` RAB$L_STV RAB$W_RFACRDRER T3  RAB$L_KBF RAB$B_KSZFR T3 RAB$L_BKTGRHR0RAB$R_ISI_BITSIR JR  RAB$R_ROP_BITS0KR  LR `RAB$R_STV_FIELDSMR  NR RAB$R_RFA_FIELDSOR 0PR  RAB$L_PBF RAB$B_PSZQR T3 RAB$L_DCTRRSR RAB$V_PPF_RATTR T3 RAB$V_PPF_INDUR T3 RAB$V_PPISIVR T3 RAB$V_ASYW1R T3! RAB$V_TPTXR T3" RAB$V_REAYR T3# RAB$V_RRLZR T3$ RAB$V_UIF[R T3% RAB$V_MAS\R T3& RAB$V_FDL]R T3' RAB$V_HSH^R T3( RAB$V_EOF_R T3) RAB$V_RAH`R T3* RAB$V_WBHaR T3+ RAB$V_BIObR T3, RAB$V_CDKcR # i $ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dH!"12T3- RAB$V_LOAdR T3. RAB$V_LIMeR T3/ RAB$V_SYNCSTSfR T30 RAB$V_LOCgR T31 RAB$V_WAThR T32 RAB$V_ULKiR T33 RAB$V_RLKjR T34 RAB$V_NLKkR T35 RAB$V_KGElR T36 RAB$V_KGTmR T37 RAB$V_NXRnR T38 RAB$V_RNEoR T339 RAB$V_TMOpR T3: RAB$V_CVTqR T3; RAB$V_RNFrR T3< RAB$V_ETOsR T3= RAB$V_PTAtR T3> RAB$V_PMTuR T3? RAB$V_CCOvR T3` RAB$W_STV0wR T3p RAB$W_STV2xR T3 RAB$L_RFA0 RAB$W_RFA4yR T3zR8{R RAB$R_ROP_BITS1|R }R4 ~R7R5 RAB$V_EQNXTR T36 RAB$V_NXTR T3R@R RAB$R_ROP_FIELDSR  R R@R( RAB$B_ROP1R T30 RAB$B_ROP2R T38 RAB$B_ROP3R T3RJE_RECUPERE_LE_STATUS  RJE_RECUPERE_LE_STATUS  RSTATUS5  ) L X SYS$CREATE$CREATE SYS$CONNECT$CONNECT CLI$GET_VALUE CLI$GET_VALUE' PASCAL%DEBUG_SUPPORT ' SAVED_PC_PSL DBG_STACKRRR RPASCAL%DEBUG_SUPPORTRPASCAL%DEBUG_SUPPORTR FOR_INDEX  R CURRENT_MAX   4RS !S 6!S !S!S "S#!S#! S ! S"! S! S! S !S!S "S!S!S!S!S!!S!!S !S !STV3S!S!S!S "S!S$! S !!ST3"S !#S !$S !%S !&S !'S !(S !)S !*S !+S !,S !-S"!.S'!/S!0S0!1S,"2S3S!4S !5S!6S "7S"!8S !9S'!:S!;S0!S!?S !@S!AS "BS!CS "DS!ES!FS "GS!HS "IS!JS !KS !LS"MS !NSTs 3OS !PS"QS !RST7 3SS!US !VST 3WS!YS !ZST) 3[S!]S !^S"_S !`STw 3aS !bS"cS !dS !eST 3fS!hS !iS"jS !kST&3lS !mS"nS !oSTb3pS!rS !sS !tS !uS !vS"wS !xST3yS !zS"{S !|S !}S !~S"S !ST3S!S !S !ST"3S !STW3S !ST3S!S !ST3S !ST+3S !STi3S!S !ST3S !ST3S !S !ST53S !S !ST38S!S !S !S !S !S !S !S !S !ST"3S !STW3S !S"S !S !S !S !S !S !S !S !S !S"S !ST3S !ST3S !ST13S !STc3S !ST3S !ST3S !ST3S !ST33S !STe3S !S"S !ST3S!S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S9 !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S ! S ! S ! ST(3 S!S !S !S !S !S !S !S"!S!!S !S'!S!S0!S,"SS!S !S!S! S!!!S$!"S !#S !$S !%S !&S"'S !(S !)S !*ST:#3+S !,STo#3-S !.ST#3/S !0ST#31:S !2S !3S !4S !5S !6S !7S !8ST)%39S !:ST^%3;S !<S !=S !>S !?ST%3@S !AS"BS !CS7!DS3"ES FS !GS !HS"IS !JST+'3KS !LST^'3MS !NST'3OS !PST'3QS !RS !SS"TS !US !VS !WS !XS !YS !ZS ![S !\S !]S !^S !_S !`S !aS !bS !cS !dS !eS !fS !gS !hS !iS !jS !kS !lS !mS !nS !oS !pS !qS !rS ! ;sS !tS !uS !vS !wS !xS !yS !zS !{S"|S !}ST-3~S !S"S !S !S !S"S !ST-3S !S"S !S !S !S.!S.!S!S0!S,"SS-!S-!S"!S$!S$ PAS$FV_INPUT PAS$FV_OUTPUTww1eqW05 PSICOPY_MSG021-DEC-1995 18:0921-DEC-1995 18:09Message T02-12k$ABS$^ MSG$SECTIONMSG$AAAAAAAAAAA<MSG$AAAAAAAAAABMSG$AAAAAAAAAACĒPSICOPY_FATAL_BUGPSICOPY_INVRESTARTFILEPSICOPY_NODECNETPSICOPY_INVEXTATTRLST|PSICOPY_LOGINNOTALLtPSICOPY_LOGINMANDATORYlPSICOPY_STREAM_PURGEdPSICOPY_RSTLOCOUTP\PSICOPY_RSTLOCINPTPSICOPY_RSTWRITELPSICOPY_RSTINVDPSICOPY_RSTOPEN<PSICOPY_RELINK4PSICOPY_TRNLOG,PSICOPY_GRANTERR$PSICOPY_REVOKERRPSICOPY_NO=TNOWPSICOPY_EXTLOG PSICOPY_OPENLOGPSICOPY_CLEAREDPSICOPY_INV_ITPSICOPY_ACK_ITPSICOPY_SEND_ITPSICOPY_DEACCESS܁PSICOPY_READMBXԁPSICOPY_ERREXH́PSICOPY_ERRJPIāPSICOPY_HASHNOTSUPPPSICOPY_USERNAMEPSICOPY_PROTOCOLPSICOPY_ACCEPTERRPSICOPY_READSYSNETPSICOPY_NOSYSNETPSICOPY_NOX25CHANPSICOPY_ERRDEACCESSPSICOPY_ERRDELETE|P>SICOPY_PUTMSGt PSICOPY_ABORTlPSICOPY_MAXCRCERRPSICOPY_RSTCRCbPSICOPY_CRCBURSTZPSICOPY_CRCBLOCKRPSICOPY_INVALIDNCBJPSICOPY_INTERRUPTBPSICOPY_NETRECEIVE:PSICOPY_NETSEND2PSICOPY_CONERRNCB*PSICOPY_CONABORT"PSICOPY_LOGFAILPSICOPY_CONFAILPSICOPY_NOTDELETED PSICOPY_WRITE_OUTPUTPSICOPY_READ_INPUTPSICOPY_OUT_PARSEPSICOPY_INPARSEPSICOPY_?IN_SEARCHPSICOPY_OPENOUTڀPSICOPY_OPENINҀPSICOPY_ASSOUTCHANʀPSICOPY_ASSINCHANxPSICOPY_RSTREADpPSICOPY_BADTHRUCLShPSICOPY_NONFATAL_BUG` PSICOPY_RESETPSICOPY_BADSTATUSWORDPSICOPY_THRBADPSICOPY_WORDBADPSICOPY_RPOALNGPSICOPY_PKTBADPSICOPY_WINBADPSICOPY_USERLNGPSICOPY_REMDTELNGPSICOPY_LOCDTELNGxPSICOPY_NOTSUPPpPSICOPY_NOTCOPIED@PSICOPY_USEPKTPSICOPY_USEWINPSICOPY_USETHRD{PSICOPY_DATARATEsPSICOPY_COMPRESS_FACTORkPSICOPY_BOOTFAILcPSICOPY_BOOTREQ[PSICOPY_RESUMEFILESPSICOPY_RESTARTCMDKPSICOPY_RESTARTFILECPSICOPY_UNKEXTATTRkPSICOPY_DEBUGINFOcPSICOPY_REMLOGFAIL[PSICOPY_REMLOGINSPSICOPY_CREFAILKPSICOPY_CREATEDCPSICOPY_REQFAIL;PSICOPY_REQUEST3 PSICOPY_SENT+APSICOPY_RECEIVED#PSICOPY_OUTPDELETE PSICOPY_IDENTPSICOPY_DELETED PSICOPY_COPIEDPSICOPY$_FACILITYPeP*P'P^(RH {H (0,8Z@HPX@`dhpx>|V8ȀtЀ؀ D n    B( ^  ( 0 8R @ H P X4 `| h p x. \    PȁЁ<؁d*` 4(t08@4HhPX`hbpx$\@HPX2`rhpx8z`h,p$un$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d-"BCnx8 COPIED&!AD!AD copied to !AD!AD (!UL block!%S) DELETED!AD!AD deleted,IDENTPsiCopy Version !UB.!UB-!UW* OUTPDELETEDeleting output file6RECEIVED"Received !UL packet!%S !UL byte!%S.SENTSent !UL packet!%S !UL byte!%S8REQUEST%Request to transfer file !AD from !AD>REQFAIL,Request to transfer file !AD from !AD failed4CREATED"File !AD creation requested by !AD<CREFAIL)File !AD creDation requested by !AD failed$REMLOGIN!AD logged as !AD. REMLOGFAIL!AD failed to log as !AD DEBUGINFO!AD& NOTCOPIED!AD!AD not copied2NOTSUPP!AD does not support !AS option< LOCDTELNG(local DTE name !AD too long -- truncated> REMDTELNG)remote DTE name !AD too long -- truncated6USERLNG$!AD: user data too long -- truncatedRWINBAD@!AD: Invalid window size specified -- nearest valid value chosenRPKTBAD@!ADE: Invalid packet size specified -- nearest valid value chosenFRPOALNG4!AD: RPOA is not a multiple of 4 digits -- truncatedFWORDBAD4!AD: one or more transit facilities reduced to 65535VTHRBADE!AD: Invalid throughput class specified -- nearest valid value chosen< BADSTATUSWORD#!AD: Invalid iosb third word: %x!XW8 ASSINCHAN$Error assigning input channel to !AC: ASSOUTCHAN%Error assigning output channel to !AC.OPENINError opening !AD!ADF as input0OPENOUTError opening !AD!AD as output* IN_SEARCHError searching !AD!AD&INPARSEError parsing input( OUT_PARSEError parsing output4 READ_INPUTError reading input file !AD!AD8 WRITE_OUTPUT Error writing output file !AD!AD6 NOTDELETED Error deleting input file !AD!AD*CONFAILError connecting to !AD2LOGFAIL Error during remote login to !ADDCONABORT0Error connecting to !AD!/ -secondary status= !ADTG CONERRNCB?Error parsing NCB during access to !AD!/ -secondary status= !AD6NETSEND$Error sending network message to !AD> NETRECEIVE(Error receiving network message from !AD: INTERRUPT&Transfer aborted by partner, code= !UB4 INVALIDNCBReceived NCB has invalid formatHCRCBLOCK5CRC error with !AD at block !UL, retransmitting blockRCRCBURST>CRC error on burst with !AD at block !UL, retransmitting burst@ MAXCRCERR,maximum retransmit reaHched, transfer aborted ABORTtransfer aborted.PUTMSG$PUTMSG system service failed( ERRDELETEError deleting file, ERRDEACCESSError deaccessing file8 NOX25CHAN#Cannot assign channel to X25 device4NOSYSNET!Cannot assign channel to SYS$NET:4 READSYSNETError reading NCB from SYS$NET:2 ACCEPTERRError establishing remote link&PROTOCOLProtocol error: !AS.USERNAMECannot get username specs.8 HASHNOTSUPP"EnIcryption algorithm not supported.ERRJPI$GETJPI system service failed(ERREXHCannot set exit handler,READMBXError reading !AD mailbox2DEACCESSError during deaccess from !AD0SEND_ITError sending interrupt to !AD8ACK_IT&Error acknowledging interrupt from !AD6INV_IT$Invalid IT message received from !AD,CLEAREDCall to !AD cleared!/-!AD4OPENLOG"Error opening centralized log fileDEXTLOG2Error preparing Jcentralized log file for extension0NOTNOWYou are not allowed to log now@REVOKERR-Error revoking identifier PSICOPY$SERVER_MODE@GRANTERR-Error granting identifier PSICOPY$SERVER_MODE4TRNLOG"Error translating logical name !ADLRELINK:VMS version is not compatible with image. Please reinstall4RSTOPEN"Error opening restart control file:RSTINV)Unable to restart, restart file unuseable6RSTWRITE"Error writing restart control fileKD RSTLOCINP0Error locating input file from previous transferF RSTLOCOUTP1Error locating output file from previous transfer, STREAM_PURGEInternal stream purge,LOGINMANDATORYLogin is mandatory* LOGINNOTALLLogin is not allowed@ INVEXTATTRLST'Invalid extended attributes list format8NODECNET%DecNet not currently supported, sorry8INVRESTARTFILEInvalid restart parameter file< UNKEXTATTR'Unknown extended attributes field %dL!UL6 RESTARTFILE Using restart parameter file !AD, RESTARTCMDRestarting command !AD@ RESUMEFILE*Resuming transfer of file !AD at block !UL(BOOTREQBoot request from !AD0BOOTFAILBoot request from !AD failed4COMPRESS_FACTORCompression factor is !SL%:DATARATE'Data transfer rate is !UL bit!%S/secondBUSETHR0Negotiated throughput class is !AD bit!%S/second*USEWINNegotiated window is !UL.USEPKTNegotiated Mpacket size is !ULZRESETIReset Cause '!XB'X Diag '!XB'X received from remote dte !AD!/-Reason: !ADB NONFATAL_BUG*Non-fatal PSICOPY bug in module !AD: !/!AD> BADTHRUCLS(Throughput class !UL is unknown, ignored@RSTREAD-Error reading restart control file record !UL,RSTCRCCRC error on restart record: FATAL_BUG&Fatal PSICOPY bug in module !AD: !/!AD PSICOPYww1_ʝ015 PSINETWORK0120-DeNc-1995 17:4820-Dec-1995 17:48DEC Pascal V5.1-22R PSINETWORKPQCannot allocate ASYNC efnQCannot allocate EVT efnQ cause ''XQ diagnostic 'Q'X Network initiatedQ X25 protocol ErrorQ Comm. link failedQ Comm. link operationalQ Comm. link restartQ Multi-host connexion disconnectedQ Multi-host connexion lostQ Network management function Call collisionQ Network time-outQ reason ::QIOSB: status:Q Count:QO Uinfo:Q Sinfo:Q Mailbox: inc dataQ Mailbox: interruptionQ Mailbox: disconnect Mailbox: connectQ Unknown mailbox message type QNWA0:Qremote nodeQSYS$NET:Netsend \iw %2<IVbq REQUEST_TYPE NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTPNET$C_DEACCESS NET$C_END NET$C_LOGINNET$C_PASSWORD NET$C_DELINP NETP$C_STATUS NET$C_CRC NET$C_RESUME NET$C_NETERR NET$C_INLOCNET$C_OPENOUTR NET$C_BOOTnetsenddesc: total size= segment size=Qreceived wrong message expecting mapOversized packet receivedQreceived data size:Qreceived mess type #instead of #received non Q messQWaiting X25 eventQAST not enabled in wait_x25_eventQ::Unspecified internal error (may be PSI-ACCESS host pb)QFacilities too longQInvalid itemConflicting items specifiedQBad parameter specifiedQNoQ translation for this name (e.g. unknown user group)QRecursion limit reachedQInvalid ASCII numberNo internal call identifier specifiedQMore than one internal call identifier givenA feature that is not yet implemented was requestedQNo DTE is available on which to make the callQThe specified PVC is not knownQThe specified network is not knownQThe ACP has run out of local workspace memoryQThere is insufficient free non-paged poolQInternal PSI error (nol3)QRBad counted string parameterError returned from level 3QPVC already accessedAccessing PVC on wrong channelQThe specified GROUP is not knownInvalid use of expedited data negotiationQInvalid use of ISO end-to-end transit delay facilityThe X25 Access module has not been created/enabledQThe requested dte is not a member of the resolved dteclassQThe requested dte can't carry callsQThe resolved dteclass has no active membersQThe requested template does not existQSThe port to be cleared does not existQThe requested filter does not existQACPCONTROL - filter already in use or already createdQThe resolved dte is not a member of the specified groupQno dteclass could be resolvedQSecurity errorQthe named security filter was not foundQthe named security dteclass was not foundQDestination unknownQTransit ErrorQCalled address not reachableIncompatible or reserved LCNClear directive issuedQInvalid parameterQ%Ø$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"STunknown secondary status value %DQIO$_ACCESS: status= IOSB= Q::QPSI$DTE_DIRECTORYQLNM$SYSTEMQPSI$PSICOPY_LOCAL_SUBADDRESSLNM$SYSTEMQPSI$MAIL_LOCAL_SUBADDRESSQLNM$FILE_DEVPSICOPY$DEFAULT_TEMPLATEUnknown thrucls #QRemote DTE: Cause QDiag QReason QLocal DTE: QLocal subaddress: QUserdata: QLocal network name: Destination priority: QPacket size: QWindow size: QIncoming DTE: QReUverse charging baudsQunknown speed #QMin throughput class: QBusyOut of orderSystematicQUnknown reason #Redirect reason: QLocal facilities: QFilter priority: QObject name: QNCB code Q: ^ LIB$GET_EFP\\LIB$PUT_OUTPUT\SYS$EXIT LIB$GET_EFP\\LIB$PUT_OUTPUT\SYS$EXIT<(^( ­^Э\ЭQ^S\(ac\(\acíV^\\^ЭܰذڟPSICOPY_PROTOCOLLIB$STOPPSICOPY_PROTOCOLP\\ SYS$SETASTP\ SYS$SETASTP\\\ SYS$SETASTP\ SYS$SETASTP\\ \\\P ^ԭ PAS$HANDLERm\^R4\P PHP@~ SYNCH_EFN SYS$QIOWP GLOBAL_STATUSVP ^PPSICOPY_INTERRUPTR̼P<PRRP(^ԭ PAS$HANDLERmмRмS \RTRTSTART_THROTTLEЏ)h(^ԭ PAS$HANDLERmR^SDEBUGЏ؞Џ PSICOPY_DEBUGTSU^SP SYS$SETASTP PPS^USPUЏ؞Џ!!!ϦPS1RP PHP@<!STPSICOPY_IoNTERRUPTSTT SYS$CLREFPSV SYS$SETASTPW SYS$WAITFRPSX SYS$SETASTPYTU SYS$SETASTPU SYS$SETASTPURR RHRBRR2Ь\SSP^ԭ PAS$HANDLERm^TЬP2P<`U9URRURRUЬPU2ЬVЬ\2\Q<Q Q Q Q=QCQ Q_Q  Q&QQ6[m!Q3EWi{ /ASew):KQQ"QQQQQQQQQQnQ\QJQ8Q&QQQQQQQQQQrQ`QNQ<Q*QQQQQQQQQQwQfQUQDQ3QQQc4Q+Q`QQGQ Q5Q Q-QQQAGQ9Q3+QV QKQ}Q Q#Q6QNQQ$Q Q#Q bQQ 7Q8QQQQfBQkQ QQQQQQ8QQQ1AQ#Q$QQQQ1Q&Q!Q 6Q QLQ QQfQQQ QKQQ2(QQ1QQQzQ _Q>QQ Q(#QQQ 5Q 'QQ Q QpQ 0Q "QQ MQ ?Q5Q Q EQ6Q QH@Q6QA%Q9Q QFQVQ Q$Q!QQ Q QCQ#QwQ)7QQQjQQQ8QQQQNQl(QQBQQGQ?Q=HQ(QQAKQ~ Q QQQ Q Q Q~QJvQ Q{QaQRtO Q  QQl QQ0 Q Q Q Q QQQ 6 Q Q Qs Q Q Q> Q 3 Q Q Q Q< Q Q  Q Q|Q Q QQ$QQ QmQnQmQnQmQnQ QQlQ:Q;'Q QKQCQ?5QFQSQ Q*Q3QTQCQ2QCQS9Q .QQqQCQQMXQmQnQ bQtQJQTQQQqQDQQXQJQN,QMQPSICOPY_REMDTELNGPSICOPY_USERLNGPSICOPY_WINBADPSICOPY_PKTBADPSICOPY_RPOALNGPSICOPY_WORDBADPSICOPY_THRBADPSICOPY_BADSTATUSWORDPSICOPY_USEWINPSICOPY_USETHRPSICOPY_USEPKT  HPARSE_INPUT_NCBPAS$WRITEV_CHARPSICOPY_INVALIDNCBPAS$GOTO TABLINK   IT_RECEIVED  IT_CODE   ASYNC_EFN  EVT_EFN  TABSPEEDwW$CODE$LOCALLIB$INITIALIZEPLIB$INITIALIZE PSINETWORK20-Dec-1995 17:48:48PAS$ENVIRONMENT_TIMEFILE_IO20-Dec-1995 17:47:48PAS$ENVIRONMENT_TIMEHPWD10-Jan-1994 16:27:07PAS$ENVIRONMENT_TIMEPSILIB16-Feb-1995 22:21:33PAS$ENVIRONMENT_TIMECLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIMEPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIME"ΫI³$CODEwW$LOCAL LIB$INITIALIZEUCQԗv/USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]PSINET.PAS;1   PAS$FV_INPUTINPUTTEXT  CHAR  PAS$FV_OUTPUTOUTPUTR T 3&MAX_NETWORK_CHARS 'MAX_USERNAME_CHARS  (MAX_TRANSPAC_DIGITS ! MAX_NCB_SIZE  MAX_CRC_NB 'MAX_PSI_BLOCK_SIZE (DEFAULT_PACKET_SIZE ! NULL_CHANNEL  MIN_SPEED  MAX_SPEED  WAY NET$_FROMNET$_TOINTERRUPT_TYPE NET$IT_WRTERRNET$IT_READERRNET$IT_RETRANSMIT NET$IT_ACK REQUEST_TYPE NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTP NET$C_DEACCESS NET$C_END NET$C_LOGIN NET$C_PASSWORD NET$C_DELINP NET$C_STATUS NET$C_CRC NET$C_RESUME NET$C_NETERR NET$C_INLOCNET$C_OPENOUTR NET$C_BOOTNETMSG R R INTEGER T 3RRIT_CODER T3RRDISK_BLK BLOCK_TYPE  R  RNET_BLK NETBLOCK_TYPE  R( RRET_SIZE R RRWORDR  STATUS0 MSG_FLAGS  REQUESTORR R BOOLEAN DEBUGR Tl 3 NETERRR Tl 38MSG_CODER T= 3(T 3RXR@INP_VER VERSION_TYPE MINORR RRBYTER  MAJORR T- 3PINP_FNA FILE_NAME RR@RET_STV`RET_VERR T 3pRET_OPT R  !RTRANSFER_OPTIONS DELETE_INPUT"R Tl 3COMPRESS#R Tl 3 CRC$R Tl 3 RESTARTING%R Tl 3RESTART&R Tl 3'Rh(R@RET_STV1`RET_RSA)R Tu 3*Rh+R@INP_RLF,R Tu 3HINP_FNB-R.R@RET_ATRATR_LIST UCHAR RECATTR/R0R1R T- 3    ASCDATES2R3R4R T)q$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d- 3 ## 8FPRO5R T 3 HRPRO6R T 3 XSEMASK7R8R9R T- 3 STATBLK :R T 3Tg3;RR  SBK$R_FILESIZE_OVERLAY?R  @R @ SBK$B_ACNTAR BRCRDR H SBK$B_LCNTER T,3P SBK$L_FCBpSBKDEF$$_FILL_1FR GRHRIR  SBK$W_ACNTJR KRLRMR  SBK$W_LCNTNR T3 SBK$W_WCNTOR T3 SBK$W_TCNTPR T3 SBK$L_READS SBK$L_WRITESQR@RR SBK$L_STLBN SBK$L_FILESIZESRTRUR@VR SBK$W_STLBNHWR T3 SBK$W_STLBNLXR T3 SBK$W_FILESIZHYR T30SBK$W_FILESIZLZR T3RET_MSZ RET_EXTATTR FILEXTATTR_T [R(\R@INP_OPT]R  T 3`INP_ATR^R T"3INP_MSZ INP_EXTATTR_R Tx3`RPaR@RET_BLKbR T 3cRPdR@INP_BLKeR T 3fRHgR@RET_FNAhR Tu 3iR@jR kR@lR mR@nR oRPpR @ INP_USERNAME CLI_PARAMETER qRrR @INP_SALTsR T 3P INP_ENCRYPTtR T- 3 XTIMEuRvRwR UNSIGNED RET_PASSWORD"CRYPTED_PASSWORD RET_REMUSERxR T3yR@zR{R|R@SELF_CRC `CRC_NB}R ~RRR  pCRCRRR tRR@ START_BLKR T 3T3RR `NETERRR Tl 3 aCRCERRR Tl 3bCRCXMITR Tl 3cRESTARTR Tl 3h RES_CAUSERhR` RESUME_FLAGSR T- 3RR@IN_FDID FDID_TYPE FIDRRR T 3  0DVIRR@INP_OPTRR  T 3`INP_ATRRR T"3INP_MSZR INP_OPFDIDR T3RPR@BOOT_MSGR T3 PSI_OPTIONS WINDOW THRUCLS@PKTSIZE `CUGR T3pTEMPLATER T3 CTYPE OPT  WINDOWR Tl 3 REVCHGR Tl 3THRUCLSR Tl 3PKTSIZER Tl 3 CUGR Tl 3TEMPLATER Tl 3 CTYPER Tl 3PSI_IOSB@ IOSB_STATUSR T 3 IOSB_COUNTR T 3 IOSB_UINFOR T 30 IOSB_SINFOR T 3 ADDR_TYPE. NCB_ITEM  LENGTHR T 3 CODER T 3R T 3 T3R R DATARRR T- 3 R(R DATABR T- 3R0R DATAWR T 3R@R  DATALR NCB_ITEM_PTRT3RNCB_TYPERR T- 3  MBXMSG_TYPEMSGTYPER T 3 UNITR T 3 NAME SIZER T- 3 DATA INFO  SIZER T- 3 DATARRR T- 3 PSI_LINK@:X25_CHANR T 3MBX_CHANR T 3 IOSBR T3`MBX_IOSBR T3 CAUSER T- 3 DIAGR T- 3 REASONR T- 3GOTCAUSEGOTDIAG GOTREASON CONNECTEDFINISHEDCLEARED LOGERRMBX_BUFR T^3 SAVADDRR T3CNX_OPTSR T3AST_PROTECTIONNO_AST_PROTECT AST_PROTECT CALL_DATA TABLINKRRKRTy3T3H H IT_RECEIVEDIT_CODER T3 X25_IDENT X25_IDENTR TC3DEFAULT_PSI_OPTIONSR T3 ASYNC_EFNEVT_EFNTABSPEEDRRR (   PSINET_INIT(RSTATUS!z x SYS$EXIT$EXIT PROTECT&RPROTECTOY R T3RPROTECTOY R T3R PROTECTION&( R T3RSTATUS7J <; SYS$SETAST$SETAST SS$_WASSET   SETPROTECTiROLD_PROTECTION R T3RSTATUS (!PROTOCOL_ERROR MESSRRRPROTOCOL_ERRORRPROTOCOL_ERRORLHPSICOPY_PROTOCOLPSICOPY_PROTOCOL t  EXPLAIN_CLEAR$ LINKR Ty3RWORK6٤P RSYSMESS&٘ PSICOPY_CLEAREDPSICOPY_CLEAREDR REMDTE_LENGTH( 8$PSI$C_L3_NETWRK $PSI$C_L3_NETERR $PSI$C_L3_LNKDWN #PSI$C_L3_LNKUP $PSI$C_L3_LNKRRT %PSI$C_L3_GATDISC  %PSI$C_L3_NETDISC  $PSI$C_L3_LOCMGT  $PSI$C_L3_CALCOL  $PSI$C_L3_NETTIM   PSICOPY_ERROR PSICOPY_ERROR HNETERRZ LINKR Ty3RSTATUSSRPSICOPY_STATUSWRMESS RSAVASTR T3 0PSICOPY_SYS_ERRORPSICOPY_SYS_ERROR DEBUGDEBUG  NETR Tl 3 MAINR Tl 3 DATAR Tl 3 CRCR Tl 3 LOGR Tl 3 LOGINR Tl 3 INTERR Tl 3 SERVERR Tl 3FILE_IOR Tl 3 RESTARTR  Tl 3 THROTTLER Tl 3 COMPRESSR Tl 3& PSICOPY_DEBUG PSICOPY_DEBUG&LEEXPLAIN_ADJUSTMENTSoERWHATWAYaEGR T3R STATUSWORDfEBFR T 3R REQ_OPTSmEHxR T3R REMSTATUSrE=FR T 3PSICOPY_LOCDTELNGPSICOPY_LOCDTELNGPSICOPY_REMDTELNGPSICOPY_REMDTELNGPSICOPY_USERLNGPSICOPY_USERLNGPSICOPY_WINBADPSICOPY_WINBADPSICOPY_PKTBADPSICOPY_PKTBADPSICOPY_RPOALNGPSICOPY_RPOALNGPSICOPY_WORDBADPSIC OPY_WORDBADPSICOPY_THRBADPSICOPY_THRBADPSICOPY_USEWINPSICOPY_USEWINPSICOPY_USETHRPSICOPY_USETHRPSICOPY_USEPKTPSICOPY_USEPKTPSICOPY_BADSTATUSWORDPSICOPY_BADSTATUSWORDRBUFTHR/GGٜP (HWARNING?HpRMASK;*CN$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d24"HPHR T 3R CONDITION?HH  t =(PSI$M_STS_LOCDTELNG (PSI$M_STS_REMDTELNG &PSI$M_STS_USERLNG %PSI$M_STS_WINBAD %PSI$M_STS_PKTBAD  &PSI$M_STS_RPOALNG &PSI$M_STS_WORDBAD %PSI$M_STS_THRBAD @"HPARSE_INPUT_NCBH LINK R Ty3CNX_OPTS R T3 R ITEM_PTRHV R T3 R NCB_SIZEHH VERRNCBCHARZ LENGTHR T- 3 BODYRREMSIZEH?WPSICOPY_INVALIDNCBPSICOPY_INVALIDNCBRIHVٸR T- 3RMESSHVو RVALHVRNETNAMEH?W RREMDTEH?Wټ R CALLERGIVENH?W@W CHECK_ASCICOW  7 " PSI$C_NCB_ICI  %PSI$C_NCB_REMDTE $PSI$C_NCB_CAUSE 'PSI$C_NCB_DIAGCODE %PSI$C_NCB_REASON %PSI$C_NCB_LOCDTE (PSI$C_NCB_LOCSUBADR 'PSI$C_NCB_USERDATA &PSI$C_NCB_NETWORK %PSI$C_NCB_PRIDST "&PSI$C_NCB_PKTSIZE &PSI$C_NCB_WINSIZE +PSI$C_NCB_INCOMING_DTE 7v%PSI$C_NCB_REVCHG  &PSI$C_NCB_THRUCLS -PSI$C_NCB_CALL_REDIR_RSN ,&PSI$C_REDRSN_BUSY .PSI$C_REDRSN_OUT_OF_ORDER ,PSI$C_REDRSN_SYSTEMATIC %PSI$C_NCB_LOCFAC &PSI$C_NCB_FLT_PRI <&PSI$C_NCB_OBJNAME !ACKNOWLEDGE_IT LINKR Ty3RSTATUS5RIOSBRRR T 3 PSICOPY_ACK_ITPSICOPY_ACK_IT l] SYS$QIOW$QIOW#IO$_NETCONTROL 6! PSI$K_INTACK $xACKNOWLEDGE_RESET} LINKR Ty3RSTATUSRIOSB R T3PSICOPY_ACK_ITPSICOPY_ACK_IT l#  PSI$K_RESET PREAD_MBXW LINK!R Ty3PSICOPY_INV_ITPSICOPY_INV_IT"RMESS RESETNCB#R$R%R&R  ( SIZE'R T 3 CORD(R T 3 VALUE)R T- 3 PSICOPY_RESET PSICOPY_RESET*R MSG_OPTS/+R T3   MSG$_INCDAT @  MSG$_INTMSG 5LIB$STOP ERROR_STOP  MSG$_DISCON 3! MSG$_CONNECT 2 MSG$_RESET A  SYS$SETEF$SETEF  START_WATCH  LINK,R Ty3-RSTATUSu x PSICOPY_READMBXPSICOPY_READMBX.RASTSTS4 4 /R T3 7 SYS$QIO$QIO! IO$_READVBLK 1  GET_X25_CHAN  LINK0R Ty3 X25_DEVICE1RSTATUS!!PSICOPY_NOX25CHANPSICOPY_NOX25CHAN (\DISCONNECT_NW_CHANNELr:2RWHATWAYo| 3R T34RSTATUS5RIOSB6R7R8R T 3 PSICOPY_DEACCESSPSICOPY_DEACCESS9RASTSTS  :R T3 \w SYNCH_EFN SYNCH_EFN! IO$_DEACCESS 4 LIB$SIGNAL ERROR_SIGNAL SYS$DASSGN$DASSGNSEND_IT8;RREASON<R T3=RWHATWAY >R T3?RSTATUSL@RIOSBARBRCR T 3 PSICOPY_SEND_ITPSICOPY_SEND_IT '$PSI$K_INTERRUPT d SEND_RESET{DR DIAGCODEwER T- 3FRWHATWAY{ GR T3HRSTATUSIRIOSBJR T3PSICOPY_SEND_ITPSICOPY_SEND_IT %+RBUFADRs)>+RWHATWAYw)>+ R T3RSTATUSx)>+PSICOPY_NETRECEIVEPSICOPY_NETRECEIVER SEGBUFSZx)>+R T 3RRECVSZx)>+R T 3 RX_BYTESRX_BYTES RX_PACKETS RX_PACKETS#PSI$M_MOREDATA $PSI$M_QUALIFIED D+ NETPURGEDATAW+  MSGR T 3R NETPURGEDATA,,R NETPURGEDATA,,RWHATWAYW+,R T3RSTATUSX+,PSICOPY_NETRECEIVEPS+$$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dICOPY_NETRECEIVE - NETRECEIVE- MSGR T 3R NETRECEIVE//R NETRECEIVE//RWHATWAY-/R T3FNBPTRRSTATUS$-/PSICOPY_NETRECEIVEPSICOPY_NETRECEIVER SIZELEFT-/RBUFPTR!--RSEGSIZE$--RNOTDATA//  /NETKEYIN/ MSGR T 3RFUNC//R T= 3RWHATWAY//R T3 @$/RECEIVE_QUALIFIED 0 MSGR T 3RFUNC00R T= 3RWHATWAY 0 0R T3RMESSJ00٬P $! 1WAIT_X25_EVENT61{ ITMSGR T 3RWAIT_X25_EVENT22RWAIT_X25_EVENT22RWHATWAY312R T3PSICOPY_INTERRUPTPSICOPY_INTERRUPTRSTATUS12R ASTSTATUS11R T3R VALIDEVENTz1d2 S  SS$_CLEARED !  SYS$CLREF$CLREF SYS$WAITFR$WAITFR8 NETCONNECTH9%PSI_OPT R T3R NETCONNECT==R NETCONNECT==RADDR9<٬R T3RPWD9<٨R T3RPWD279<٤R T3RWHATWAYD91=R T3RBYTE_PTRT- 3RNCB::ٰR T3RNCB_PTR٠R T3R NCB_SIZE::RR R NCB_DESC::RRR RIOSB:e<RRR T 3 R CALLDATA99R TC3RSTATUS:=PSICOPY_CONFAILPSICOPY_CONFAILPSICOPY_LOGFAILPSICOPY_LOGFAILPSICOPY_CONERRNCBPSI8COPY_CONERRNCBPSICOPY_CONABORTPSICOPY_CONABORT 07TRNLNMs7 LOGVALR T3RTRNLNM77 RTRNLNM77 RLOGNAMQ77R T3RTABNAMj77R T3RITMLSTx77 BUFLENR T 3 ITMCODR T 3  BUFADR @RETLEN`ENDLISTRSTATUS77 PSICOPY_TRNLOGPSICOPY_TRNLOG 2 PRETTY_ADDR2D LINKR Ty3RI22 DADDASCICD)R ADDASCICDJER ADDASCICDJERITEMD0ER T3RCODEDD RJE0ER RRCLI_PARAMETER_LENR i  D ADDNBYTESDR ADDNBYTES.DDR ADDNBYTES.DDRITEMDnDRNBBYTESDADRCODED7D  ?FILLDTE?!DTEADDRR T3RFILLDTERFILLDTE TABLERDTENUM?@R T3RSTATUS??RI)@t@ i ,"@PROCESS_SUBADDR@RPROCESS_SUBADDRA}ARPROCESS_SUBADDRA}ARSUBADDR@cAR T3 'AVALIDATE_PSI_OPTIONSARVALIDATE_PSI_OPTIONSCCRVALIDATE_PSI_OPTIONSCCR PARSE_OKACC SET_THRUCLSC!R SET_THRUCLSDDR SET_THRUCLSDDRSPEEDCCRR  ROKCDRDONECCPSICOPY_BADTHRUCLSPSICOPY_BADTHRUCLS   = PARSE_NCB= ADDRR T3R PARSE_NCB??R PARSE_NCB??RCAST_NCBT3RI=? R TJN3R PARSE_OK=?i *43EXPLAIN_ESTABLISH_ERRORQ3RERRCODEI3#7RSECONDARY_STATUSM36R T 3RWHATWAYQ36 R T3RMSG36\    LNM$_STRING  SYS$TRNLNM$TRNLNM! SS$_NOLOGNAM " PSI$C_NCB_CUG 'PSI$C_NCB_TEMPLATE 9&PSI$C_ERR_UNKNOWN %PSI$C_ERR_FACLNG &PSI$C_ERR_INVITEM 'PSI$C_ERR_CONFLICT &PSI$C_ERR_BADPARM &PSI$C_ERR_NOTRANS 'PSI$C_ERR_RECURLMT %PSI$C_ERR_INVNUM $PSI$C_ERR_NOICI &PSI$C_ERR_MANYICI  %PSI$C_ERR_NOTIMP  %PSI$C_ERR_NODTES  (PSI$C_ERR_NOSUCHPVC  (PSI$C_ERR_NOSUCHNET &PSI$C_ERR_NOLOCAL 'PSI$C_ERR_NONONPAG #PSI$C_ERR_NOL3 &PSI$C_ERR_BADNAME $PSI$C_ERR_L3ERR (PSI$C_ERR_PVCALRACC *PSI$C_ERR_BAD_PVCNAME *PSI$C_ERR_NOSUCHGROUP %PSI$C_ERR_INVEXP )PSI$C_ERR_INVTRSTDLY 'PSI$C_ERR_NOACCESS ,PSI$C_ERR_DTENOTINCLASS .PSI$C_ERR_DTENOTAVAILABLE .PSI$C_ERR_NOACTIVEMEMBERS -PSI$C_ERR_NOSUCHTEMPLATE )PSI$C_ERR_NOSUCHPORT +PSI$C_ERR_NOSUCHFILTER /PSI$C_ERR_FILTERALREADYSET  ,PSI$C_ERR_DTENOTINGROUP !3PSI$C_ERR_DTECLASSNOTSPECIFIED "'PSI$C_ERR_SECURITY #3PSI$C_ERR_NOSUCHSECURITYFILTER $3PSI$C_ERR_NOSUCHSECURITYDTECLS %+PSI$C_ERR_DESTNOTKNOWN &(PSI$C_ERR_NOTRANSIT '2PSI$C_ERR_ADDRESSNOTREACHABLE (.PSI$C_ERR_INCOMPATIBLELCN )1PSI$C_ERR_CLEAREDBYDIRECTIVE */PSI$C_ERR_INVALIDPARAMETER +! SS$_IVDEVNAM D! SS$_ABORT ,"8DISCONNECT_LINK8R LINK_NUM88 R T3 RBYEMSGG8^8 R T 3 RSAVPROTD8D8 R T3 '8PASCAL%DEBUG_SUPPORT8' SAVED_PC_PSL DBG_STACK RRR RPASCAL%DEBUG_SUPPORTRPASCAL%DEBUG_SUPPORTR FOR_INDEX88R CURRENT_MAX88 4RS !S !ST 3S !S"S !S !S" S ! S" S ! S" S !ST 3S!S !STl 3S !S !S !S !S"S !ST- 3S!S !S !S"S ! S !!ST 3"S !#S !$S !%S !&S !'S !(S")S !*S !+S",S !-S !.S"/S7!0S3"1S 2S7!3S3"4S 5S !6S !7S7!8S3"9S,- $ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dy" :S !;S !ST3?S !@ST3AS !BST,3CS!ES !FS !GST3HS!JS !KST3LS!NS !OS !PS !QS !RS"SS !TS"US !VS"WS !XS !YS !ZS ![S !\S"]S !^S !_S !`S !aS"bS !cS !dS"eS !fS !gS"hS !iS !jS"kS !lS"mS !nS"oS !pS"qS !rS"sS !tS !uS0!vS,"wSxS !yS !zS"{S !|S"}S !~ST3S!S0!S,"SS !S"S !S !S"S !S !S !S !S !S"S !S !S"S7!S3"S S !S"S !S !S !S !S"S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S"S7!S3"S S !S"S !S !S"S !S !S"S!S?!S3"S S !S !S !S !S7!S3"S S !S !S !S !S !S !S !S !S !S !S:!S6"SS !S !S !S0!S,"SS!S !S !S !S !S#!S !S!S'!S !S!S!S "S'!S'!S !S!S !S&!S !S!S'!S!S!S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S#!S !S!!S !S"!S !S!S!S !S"! S ! S ! S!! S ! S!!S !S !S!S !S!S!S !S!S$!S !S!S!S7!S3"S S !S!S! S !!S !"S!#S3!$S/"%S&ST33'S !(S !)S !*S!!+S !,S !-S!.S!/S !0S !1S!2S !3S !4S!5S!6S7!7S3"8S 9S!:S !;S!<S !=S !>S !?S!@S!AS7!BS3"CS DS!!ES !FS !GS !HS!IS!JS !KS+!LS+!MS!NS!!OS !PS!QS7!RS3"SS TS!!US0!VS,"WSXS !YS !ZS ![S !\S !]S !^S !_S!`S!!aS!cS !dS !eS!!fS !gS!!hS!!iS!jS !kS$!lS$!mS!nS!oS !pS !qS!rS!sS !tS"!uS !vS !wS !xS$!yS$!zS !{S !|S'!}S'!~S!S!S !S !S!S!!S !S!S !S !S%!S%!S !S !S!S !S#!S#!S !S !S!S!!S!S !S !S !S!S !S !S !S !S!S !S !S !S!S !S'!S'!S !S !S!S"!S !S#!S !S#!S#!S!S !S!S !S!S !S !S !S!S!S !S !S !S!!S!S!!S0!S,"SS!S7!S3"S S!!S !S!S !S!S!S!S !S!S !S!S !S !S!S !S!S!!S!!S!S !S!S!S !STJN3S(!S"!S"!S!S !S!S !S !S !S!S !S!S!S(!S(!S !S !S-!S-!S!!S$!S$!S!S!S!S !S !S"!S"!S!S!S !S!!S !S)!S !S !S !S!S!!S ! S! S ! S ! S ! S0!S,"SS-!S-!S"!S$!S PAS$FV_INPUTww1ǂFȌ012RESTART0120-Dec-1995 17:5220-Dec-1995 17:52DEC Pascal V5.1-22RRESTARTPbRESFILQ(none)Qrestart.file$lineQCommand line:QInput FDID: Output FDID: Qstate: Q'.INIT FIRSTFILEINPUTDOUTPUTDQcli parameter # Psi_copy-restart>QParse: QInput parameter #QNew_input: QNew outputQOutput done:Restart Ok: bloc= |Δ^ԭ PAS$HANDLERm(( ­^Э\ЭQ^S\(ac\(\ací^\\^^\ DEBUG1ѭѭ܏VVV\^^\(ܽn([cЏ\ЏVVV PSICOPY_DEBUG1͔ѭѭ܏ݭܟ͔ݏPAS$WRITEV_STRINGњP\\ P\\\\\lP͔ݏPAS$WRITEV_STRING(͔ݏPAS$WRITEV_CHAR<~͔ݏPAS$WRITEV_INTEGER,͔ݏPAS$WRITEV_CHAR<~͔ݏPAS$WRITEV_INTEGER,͔ݏPAS$WRITEV_CHAR<~͔ݏPAS$WRITEV_INTEGER)͔ݏPAS$WRITEV_CHAR<͔PЏ؞͖ЏP͕PP PSICOPY_DEBUG^1, IMߏl0 LIB$CRCPM( Pݏ0<& ~ SYS$QIOWPR TD3 FAB$W_MRS?R T73 FAB$L_MRN FAB$W_BLS@R T73 FAB$B_BKSAR TD3 FAB$B_FSZBR TD3 FAB$L_DEV  FAB$L_SDC@ FAB$W_GBCCR T73PFAB$R_ACMODES_OVERLAYDR ER XFAB$R_RCF_OVERLAYFR GR `FABDEF$$_FILL_9HR`IR FAB$W_IFIJR T73 FAB$L_FOP FAB$B_FACKR TD3 FAB$B_SHRLR TD3 FAB$B_ORGMR TD3 FAB$B_RATNR TD3 FAB$B_JOURNALOR TD3P FAB$B_ACMODESPR TD3X FAB$B_RCFQR TD3RR`SRFAB$R_IFI_BITSTR UR  FAB$R_FOP_BITSVR  WR FAB$R_FAC_BITSXR YR FAB$R_SHR_BITSZR [R FAB$R_ORG_BITS\R ]R FAB$R_RAT_BITS^R _R FAB$R_JOURNAL_BITS`R aR PFAB$R_ACMODES_BITSbR cR XFAB$R_RCF_BITSdR eR fR[gR FAB$V_PPF_RAThR iRjRkR  FAB$V_PPF_INDlR T3 FAB$V_PPIFImR T3 FAB$V_ASYnR T3! FAB$V_MXVoR T3" FAB$V_SUPpR T3# FAB$V_TMPqR T3$ FAB$V_TMDrR T3% FAB$V_DFWsR T3& FAB$V_SQOtR T3' FAB$V_RWOuR T3( FAB$V_POSvR T3) FAB$V_WCKwR T3* FAB$V_NEFxR T3+ FAB$V_RWCyR T3, FAB$V_DMOzR T3- FAB$V_SPL{R T3. FAB$V_SCF|R T3/ FAB$V_DLT}R T30 FAB$V_NFS~R T31 FAB$V_UFOR T32 FAB$V_PPFR T33 FAB$V_INPR T34 FAB$V_CTGR T35 FAB$V_CBTR T36 FAB$V_SYNCSTSR T37 FAB$V_RCKR T38 FAB$V_NAMR T39 FAB$V_CIFR T3; FAB$V_ESCR T3< FAB$V_TEFR T3= FAB$V_OFPR T3> FAB$V_KFOR T3 FAB$V_PUTR T3 FAB$V_GETR T3 FAB$V_DELR T3 FAB$V_UPDR T3 FAB$V_TRNR T3 FAB$V_BIOR T3 FAB$V_BROR T3 FAB$V_EXER T3 FAB$V_SHRPUTR T3 FAB$V_SHRGETR T3 FAB$V_SHRDELR T3 FAB$V_SHRUPDR T3 FAB$V_MSER T3 FAB$V_NILR T3 FAB$V_UPIR T3 FAB$V_ORGR RRR  FAB$V_FTNR T3FAB$V_CRR T3 FAB$V_PRNR T3 FAB$V_BLKR T3 FAB$V_ONLY_RUR T3FAB$V_RUR T3FAB$V_BIR T3FAB$V_AIR T3FAB$V_ATR T3FAB$V_NEVER_RUR T3FAB$V_JOURNAL_FILER T3PFAB$V_LNM_MODER RRR RFAB$V_CHAN_MODER T3TFAB$V_FILE_MODER T3VFAB$V_CALLERS_MODER T3X FAB$V_RCF_RUR T3Y FAB$V_RCF_AIR T3Z FAB$V_RCF_BIR T3 USER_OPENR USER_OPENR USER_OPENRFABY٨R T3RNAMPTRRNAM$TYPER .ui$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d@"T3T_3RR NAM$B_BIDR TD3 NAM$B_BLNR TD3 NAM$B_RSSR TD3 NAM$B_RSLR TD3 NAM$L_RSA@NAM$R_NOP_OVERLAYR R H NAM$B_RFSR TD3P NAM$B_ESSR TD3X NAM$B_ESLR TD3` NAM$L_ESA NAM$L_RLF NAM$T_DVI NAM$R_FID_OVERLAYR 0R PNAM$R_DID_OVERLAYR 0R NAM$R_WCC_OVERLAYR  R NAM$R_FNB_OVERLAYR  R  NAM$B_NODER TD3 NAM$B_DEVR TD3 NAM$B_DIRR TD3 NAM$B_NAMER TD3 NAM$B_TYPER TD3 NAM$B_VERR TD3NAMDEF$$_FILL_6RRR T3  NAM$L_NODE  NAM$L_DEV@ NAM$L_DIR` NAM$L_NAME NAM$L_TYPE NAM$L_VERNAMDEF$$_FILL_7RRR RR@ NAM$B_NOPR TD3  NAM$W_FIDRRR T73 P NAM$W_DIDRRR T73  NAM$L_WCC NAM$L_FNBRR@NAM$R_NOP_BITSR R  NAM$R_FID_FIELDSR 0R PNAM$R_DID_FIELDSR 0R NAM$R_WCC_BITSR  R NAM$R_FNB_BITS0R R RR@ NAM$V_PWDR T3A NAM$V_FILL_1R T3B NAM$V_FILL_2R T3C NAM$V_SYNCHKR T3DNAM$V_NOCONCEALR T3E NAM$V_SLPARSER T3FNAM$V_SRCHXABSR T3  NAM$W_FID_NUMR T730 NAM$W_FID_SEQR T73@NAM$R_FID_RVN_OVERLAYR R P NAM$W_DID_NUMR T73` NAM$W_DID_SEQR T73pNAM$R_DID_RVN_OVERLAYR R  NAM$V_IFIR T3 NAM$V_SRCHNMFR T3 NAM$V_SVCTXR T3 NAM$V_EXP_VERR T3NAM$V_EXP_TYPER T3NAM$V_EXP_NAMER T3NAM$V_WILD_VERR T3NAM$V_WILD_TYPER T3NAM$V_WILD_NAMER T3 NAM$V_EXP_DIR R T3 NAM$V_EXP_DEV R T3NAM$V_WILDCARD R T3NAM$V_SEARCH_LIST R T3NAM$V_CNCL_DEV R T3NAM$V_ROOT_DIRR T3 NAM$V_LOWVERR T3 NAM$V_HIGHVERR T3 NAM$V_PPFR T3 NAM$V_NODER T3 NAM$V_QUOTEDR T3 NAM$V_GRP_MBRR T3NAM$V_WILD_DIRR T3NAM$V_DIR_LVLSR RRR RR@ NAM$W_FID_RVNR T73p NAM$W_DID_RVNR T73NAM$R_FNB_BITS1R  R  R!R@NAM$R_FID_RVN_FIELDS"R #R pNAM$R_DID_RVN_FIELDS$R %R NAM$V_WILD_UFD&R T3NAM$V_WILD_SFD1'R T3NAM$V_WILD_SFD2(R T3NAM$V_WILD_SFD3)R T3NAM$V_WILD_SFD4*R T3NAM$V_WILD_SFD5+R T3NAM$V_WILD_SFD6,R T3NAM$V_WILD_SFD7-R T3.R/R@ NAM$B_FID_RVN0R TD3H NAM$B_FID_NMX1R TD3p NAM$B_DID_RVN2R TD3x NAM$B_DID_NMX3R TD3NAM$R_FNB_BITS24R  5R 6R7RNAM$V_WILD_GRP8R T3NAM$V_WILD_MBR9R T3FILENAME:RFILEPTRT&3;RNAMPT[a<R T83=RNAMEPT__ >R T &3 R! NAM$C_MAXRSS  SYS$CREATE$CREATE SYS$OPEN$OPEN  READ_FILE ?RIOSB@RARBR Tu3 CRCRCDRRPB0 1 ER T3FRRPB1 L GR T3PSICOPY_RSTREADPSICOPY_RSTREADPSICOPY_RSTCRCPSICOPY_RSTCRCPSICOPY_RSTINVPSICOPY_RSTINVHRVALID0   IRVALID1 F x  READRECORD  RPBJR T3KR READRECORD0 6 LR READRECORD0 6 MRNUMREC  NRSTATUS , ORCRC  )   SYS$QIOW$QIOW! IO$_READVBLK 1LIB$CRCLIB$CRCPSICOPY_SYS_ERRORPSICOPY_SYS_ERRORLIB$STOP ERROR_STOP0 UPDATE_FILE5PRSTATUSQRIOSBRRSRTR Tu3 PSICOPY_RSTWRITEPSICOPY_RSTWRITE %" IO$_WRITEVBLK 0 WRITEFDIDq MESSURVRWRFDID*XR T3 L1 L2YRDBGMESSٔ  DEBUGDEBUG  NETZR T3 MAIN[R T3 DATA\R T3 CRC]R T3 LOG^R T3 LOGIN_R T3 INTER`R T3 SERVERaR T3FILE_IObR T3 RESTARTcR T3 THROTTLEdR T3 COMPRESSeR T3 PSICOPY_DEBUG PSICOPY_DEBUG  START_RESTARTxfR START_RESTARTgR START_RESTARThRSTATUSiRERR_FAB٨jR T3PSICOPY_INVRESTARTFILEPSICOPY_INVRESTARTFILEPSICOPY_RESTARTFILEPSICOPY_RESTARTFILEPSICOPY_RESTARTCMDPSICOPY_RESTARTCMDPSICOPY_RSTOPENPSICOPY_RSTOPEN  LIB$CRC_TABLE LIB$CRC_TABLE CLI$GET_VALUE CLI$GET_VALUE MISSALLPARAM MISSALLPARAM PSICOPY_ERROR PSICOPY_ERROR CLI$DCL_PARSE CLI$DCL_PARSE PSICOPY_CMD PSICOPY_CMDPSICOPY_RMS_ERRORPSICOPY_RMS_ERROR"NEW_INPUT_PARAM*kRPARAMNOO  !\ NEW_INPUT_FILEg :lRFDIDf  mR T3 d! NEW_FOR_DELETE  " NEW_OUTPUT_FILE :nRFDID ( oR T3 l#D OUTPUT_FILE_DONEM )pRSTATUSM l  h  RESTART_OK &qRBLK   !H DELETE_RESTARTM  < SYS$DASSGN$DASSGN' PASCAL%DEBUG_SUPPORT ' SAVED_PC_PSL DBG_STACKrRsRtR uRPASCAL%DEBUG_SUPPORTvRPASCAL%DEBUG_SUPPORTwR FOR_INDEX  xR CURRENT_MAX   4yRS !S !ST3S !S"S7!S/"S}$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dK"3"S  STu3 S! S ! S !S !S"S !S !S !S !S!S0!S,"SS !S !S"S !STD3S! S !!S !"ST3#S !$ST3%S !&ST73'S!)S !*STv3+S !,ST3-S !.ST3/S!1S !2ST(33S !4ST]35S !6S !7ST38S !9S !:ST 3;S!=S !>S !?S !@S !AS !BS !CS !DS !EST 3FS !GST 3HS !IS"JS !KS !LS !MS !NS !OS !PS !QS !RS !SS"TS !USTM 3VS !WST 3XS !YST 3ZS ![ST 3\S !]ST 3^S !_STG 3`S !aST} 3bS !cST 3dS !eST 3fS !gS"hS !iST$3jS!lS !mS !nS !oS !pS !qS !rS !sS !tS !uS !vS !wS !xS !yS !zS !{S !|S !}S !~S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !ST"3S!S !S !S !S !S !S !S !S !S !S !S !S !ST3S!S !S !S !S !S !S !S"!S"!S!S !S!STK3S !S !S"S !S !S !S !S !STG3S !S !S !S !ST3S !STT3S !ST3S !ST3S !S !S !S !S !S !S7!S3"S S0!S,"SS !S"S !S7!S3"S S7!S3"S S !S"S !ST3S !ST3S !ST3S !ST63S !STi3S !S"S !S !S !S !S !S !S !S !S !S !ST3S !S !S !STf3S !S !S !S !S !S !S !S !S ! S ! S ! S ! S ! S !S !S !S !S !S !S !S !S !S !ST"3S!S !S"S !S !S !ST+#3 S !!S""S !#STq#3$S !%ST#3&S !'S !(S !)S !*S !+S !,S !-S !.S !/S"0S !1S !2S !3S !4S !5ST%36S !7S"8S !9S !:S!;S!<S !=S!>S !?S!@S7!AS3"BS CS!DS!ES !FS!GS !HS!IS!JS !KS#!LS#!MS!NS!OS!PS!QS!RS7!SS3"TS US!VS "WS!XS !YS !ZS ![S !\S !]S !^S !_S !`S !aS !bS !cS !dS !eS !fS&!gS&!hS!iS !jS !kS !lS!mS !nS!oS !pS!qS!rS0!sS/,"tS uS-!vS-!wS"!xS$!yS PAS$FV_INPUTww1G011SERVER0120-Dec-1995 17:5320-Dec-1995 17:53DEC Pascal V5.1-22R SERVERPLOGINQENABLEQENABLE.PRIVILEGESQENABLE.PRIVILEGES.AUTHORIZEDENABLE.PRIVILEGES.MAXIMUMQENABLE.NOTIFY_COMMAND_FILEQRcvd code: Q\jy %/<IUd NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTPNET$C_DEACCESS NET$C_END NET$C_LOGINNET$C_PASSWORD NET$C_DELINP NET$C_STATUS NET$C_CRC NET$C_RESUME NET$C_NETERR NET$C_INLOCNET$C_OPENOUTR NET$C_BOOTQinvalid resumeQUnknown message code received: QUnexpected data msg receivedUnknown non-requestor Q-messBOOT.MESSAGEBOOTBOOT.FILEQopenr: FID=ЬPРPQRQRQSЬTCPЬTCPRQ|^^\ SERVER_MODE) CLI$PRESENTPѭѭѭݭLIB$STOP CLI$PRESENTPѭ1 CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP Џ"찏f CLI$GET_VALUEP"ѭݭLIB$STOPCONNECT_NW_CHANNELP1(HTABLINKTABLINKH3"<TABLINK23VV\^(VTABLINK43nV~^^V< \\V^(\"n\~^^\ NOTIFY_INITRESET_SERVER_MODE]QSET_SERVER_MODE" NOTIFY_FINISHPPθ^Q\Q^V ͼܟ]Qͼܟ]QWͼ NETRECEIVEPPPWW11DEBUG6 PAS$FV_OUTPUTPAS$WRITE_STRING~& PAS$FV_OUTPUTPAS$WRITE_ENUMERATED PAS$FV_OUTPUT PAS$WRITELN2;1****1PSICOPY_LOGINNOTALLP`(`ܞ<[[V^([n[~^^[ LOCAL_LOGINPPPP1"1<[[V^([n[~^^[<ZZ[^(Z |PSICOPY$SERVERPSICOPY  SERVER_MODE CLI$PRESENTLIB$STOP CLI$GET_VALUECONNECT_NW_CHANNEL PSINETWORK TABLINK NOTIFY_INITRESET_SERVER_MODESET_SERVER_MODE NOTIFY_FINISH NETRECEIVE DEBUG PAS$FV_OUTPUTPAS$WRITE_STRINGPAS$WRITE_ENUMERATED PAS$WRITELN2PSICOPY_LOGINNOTALL LOCAL_LOGIN NOTIFY_LOGINLOCAL_INPUT_FILE_SPECSFILE_IO  INPUT_FAB VERSIONLOCAL_OUTPUT_FILE_SPECSnZ~^^Z NOTIFY_LOGIN1QQ QQFQS!QQ Q 9QQQQQ QQQ3Q.QQ(Q QaQ CQ?HLOCAL_DEACCESS_OUTPUT SS$_DEVREQERRLOCAL_OPEN_INPUT_FILEPSICOPY_BOOTREQ PSICOPY_ERRORPSICOPY_BOOTFAILPSICOPY_SYS_ERROR COMPRESS_DONE COMPRESS_INIT LOGPSICOPY_REQUESTPSICOPY_REQFAIL %DBGMESSPAS$WRITEV_STRINGPAS$WRITEV_INTEGER PSICOPY_DEBUGLOCAL_OPENR_OUTPUT_FILELOCAL_OPEN_OUTPUT_FILEDECOMPRESS_DONE ALLOCATE_MAP % OUTPUT_ESAPSICOPY_CREATEDPSICOPY_CREFAIL$CODE#$LOCALHPWD10-Jan-1994 16:27:07PAS$ENVIRONMENT_TIMENOTIFY20-Dec-1995 17:53:35PAS$ENVIRONMENT_TIME DATA_TRANSFER20-Dec-1995 17:51:30PAS$ENVIRONMENT_TIME COMPDECOMP20-Dec-1995 17:50:57PAS$ENVIRONMENT_TIMECLIDEF22-Sep-1995 13:17:42PAS$ENVIRONMENT_TIMEFILE_IO20-Dec-1995 17:47:48PAS$ENVIRONMENT_TIME PSINETWORK20-Dec-1995 17:48:48PAS$ENVIRONMENT_TIMEPSICOPY20-Dec-1995 17:47:18PAS$ENVIRONMENT_TIME 2.- ; $CODE$LOCAL#WE_H1USR$ADMIN:[GEGE.SYSTEME.PSICOPY040]SERVER.PAS;177   PAS$FV_INPUTINPUTTEXT  CHAR  PAS$FV_OUTPUTOUTPUTR T>3 NET$IT_WRTERRNET$IT_READERRNET$IT_RETRANSMIT NET$IT_ACK NET$C_INSPECSNET$C_OUTSPECSNET$C_INSEARCHNET$C_OUTPARSE NET$C_OPENIN NET$C_OPENOUT NET$C_READ NET$C_WRITE NET$C_DELOUTP NET$C_DEACCESS NET$C_END NET$C_LOGIN NET$C_PASSWORD NET$C_DELINP NET$C_STATUS NET$C_CRC NET$C_RESUME NET$C_NETERR NET$C_INLOCNET$C_OPENOUTR NET$C_BOOT NET$_FROMNET$_TO CLI_PARAMETER LOGIN_PRIV_TYPE NONEDEFAULT AUTHORIZEDMAXIMUM FINI DATA_TRANSFERMAP_ADDRMAP_LEN  INPUT_FILE  RESTARTING VERSION_TYPE MINORR RRR  INTEGER MAJORR T3REMOTE_VERSIONR Ts3UNSIGNED STATUS MANDATORYWHATEVER FORBIDDEN LOGINSTATUSR T&3 LOGINDONE LOGIN_PRIVS R T3 LOCAL_USER R T3 REMOTE_USER R T3 CURRENT_OP  NOTIFY_FILE R T3" ENABLE_NOTIFY!PSICOPY$SERVER RPSICOPY$SERVERRPSICOPY$SERVERR FILE_OPTIONSTRANSFER_OPTIONS DELETE_INPUTR R BOOLEANCOMPRESSR T3 CRCR T3 RESTARTINGR T3RESTARTR T3RSTATUSRMS$_NMFRMS$_NMFPSICOPY_LOGINNOTALLPSICOPY_LOGINNOTALLPSICOPY_LOGINMANDATORYPSICOPY_LOGINMANDATORY SERVER_LOOPRREMMSGt ټNETMSG R T3 T. 3RRIT_CODER Tp3RRDISK_BLK R RNET_BLK  R(!RRET_SIZE"R #R$R%R  STATUS0 MSG_FLAGS  REQUESTOR&R T3 DEBUG'R T3 NETERR(R T38MSG_CODE)R T3(T 3*RX+R@INP_VER,R Ts3PINP_FNA FILE_NAME -R.R@RET_STV`RET_VER/R Ts3pRET_OPT0R  T31Rh2R@RET_STV1`RET_RSA3R T 34Rh5R@INP_RLF6R T 3HINP_FNB7R8R@RET_ATRATR_LIST UCHAR RECATTR9R:R;R T3    ASCDATESR T3 ## 8FPRO?R T 3 HRPRO@R T 3 XSEMASKARBRCR T3 STATBLK DR T3TA 3ERFRSBK$R_STLBN_OVERLAYGR  HR  SBK$R_FILESIZE_OVERLAYIR  JR @ SBK$B_ACNTKR LRMRNR H SBK$B_LCNTOR T3P SBK$L_FCBpSBKDEF$$_FILL_1PR QRRRSR  SBK$W_ACNTTR URVRWR  SBK$W_LCNTXR T3 SBK$W_WCNTYR T3 SBK$W_TCNTZR T3 SBK$L_READS SBK$L_WRITES[R@\R SBK$L_STLBN SBK$L_FILESIZE]R^R_R@`R SBK$W_STLBNHaR T3 SBK$W_STLBNLbR T3 SBK$W_FILESIZHcR T30SBK$W_FILESIZLdR  T3RET_MSZ RET_EXTATTR FILEXTATTR_T eR(fR@INP_OPTgR  T3`INP_ATRhR T 3INP_MSZ INP_EXTATTRiR TR3jRPkR@RET_BLKlR T 3mRPnR@INP_BLKoR T 3pRHqR@RET_FNArR T 3sR@tR uR@vR wR@xR yRPzR @ INP_USERN1LOp$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d " AME{R T3|R}R @INP_SALT~R T 3P INP_ENCRYPTR T3 XTIMERRR  RET_PASSWORD RET_REMUSERR T3R@RRR@SELF_CRC `CRC_NBR RRR  pCRCRRR tRR@ !START_BLKR T3T53RR `NETERRR T3 aCRCERRR T3bCRCXMITR T3cRESTARTR T3h RES_CAUSERhR` RESUME_FLAGSR T3RR@IN_FDID FDID_TYPE FIDRRR T 3  0DVIRR"@INP_OPTRR  T3`INP_ATRRR T 3INP_MSZR INP_OPFDIDR T;3RPR@BOOT_MSGR T3RFNBPTRt  RFDIDPTRt RT;3RINFDIDt R T;3RQMESSt R VALID_OUTPUTٻR DELNMPTRt RT# 3  OPENIN ROPENINROPENINRSTATUS  PSICOPY_REQUESTPSICOPY_REQUESTPSICOPY_REQFAILPSICOPY_REQFAIL ,OPENOUT'ROPENOUTROPENOUTRSTATUSjRFDIDR T;3RFDIDPTR R$T;3RBLKPTR R STARTBLKPSICOPY_CREATEDPSICOPY_CREATEDPSICOPY_CREFAILPSICOPY_CREFAIL mx  SEND_DATA R LASTWILL   R NETMSGPTRT 3RMSGR T 3RBLK_NB   SS$_ENDOFFILE SS$_ENDOFFILEi   RECEIVE_DATA$ jR LASTWILL%$ &  R T3RBLK_NB- - ) Lt  WRITEBOOT R WRITEBOOT  R WRITEBOOT  RSTATUS  R BOOTNAME ' ـR T3RBOOTMSG t لR T3R BOOTFDIDH H R T;3R BOOTATTR\ \ ٌR T 3R BOOTEXTATTR &X X وR TR3 SS$_DEVREQERR SS$_DEVREQERRPSICOPY_BOOTREQPSICOPY_BOOTREQ-PSICOPY_BOOTFAILPSICOPY_BOOTFAIL x"` DEACCESS_OUTPUTb hRDEACCESS_OUTPUTs s RDEACCESS_OUTPUTs s     LOCAL_OPEN_INPUT_FILELOCAL_OPEN_INPUT_FILE CURRENT_FILE CURRENT_FILER T 3 INPUT_RSA INPUT_RSAR 'T 3 COMPRESS_DONE COMPRESS_DONE COMPRESS_INIT COMPRESS_INIT LOGLOG PSICOPY_ERROR PSICOPY_ERRORTABLINKTABLINKRRRRTx3H H @:X25_CHANR T 3MBX_CHANR T 3 IOSB @ IOSB_STATUSR T 3 IOSB_COUNTR T 3 IOSB_UINFOR T 30 IOSB_SINFOR (T 3`MBX_IOSBR T3 CAUSER T3 DIAGR T3 REASONR T3GOTCAUSEGOTDIAG GOTREASON CONNECTEDFINISHEDCLEARED LOGERRMBX_BUF MSGTYPER T 3 UNITR T 3 NAME SIZER T3 DATA INFO  SIZER ) T3 DATARRR T3  SAVADDRR T3CNX_OPTS WINDOW THRUCLS@PKTSIZE `CUGR T3pTEMPLATER T3 CTYPE OPT  WINDOWR T3 REVCHGR T3THRUCLSR T3PKTSIZER T3 CUGR *T3TEMPLATER T3 CTYPER T3PSICOPY_SYS_ERRORPSICOPY_SYS_ERROR DEBUGDEBUG  NETR T3 MAINR T3 DATAR T3 CRCR T3 LOGR T3 LOGINR T3 INTERR T3 SERVERR T3FILE_IOR T3 RESTART+R T3 THROTTLER T3 COMPRESSR T3DBGMESSDBGMESS  PSICOPY_DEBUG PSICOPY_DEBUGLOCAL_OPENR_OUTPUT_FILELOCAL_OPENR_OUTPUT_FILELOCAL_OPEN_OUTPUT_FILELOCAL_OPEN_OUTPUT_FILEDECOMPRESS_DONEDECOMPRESS_DONE ALLOCATE_MAP ALLOCATE_MAP OUTPUT_ESA OUTPUT_ESAR T 3NOTIFY_START_FILENOTIFY_START_FILE COPY_DATA COPY_DATANOTIFY_END_FILENOTIFY,_END_FILE CLI$GET_VALUE CLI$GET_VALUE CLI$PRESENT CLI$PRESENTLOCAL_INPUT_FILE_SPECSLOCAL_INPUT_FILE_SPECSLOCAL_NEXT_INPUT_FILELOCAL_NEXT_INPUT_FILELOCAL_DEACCESS_OUTPUTLOCAL_DEACCESS_OUTPUT NETRECEIVE NETRECEIVE NOTIFY_LOGIN NOTIFY_LOGIN INPUT_FAB INPUT_FAB R T3TJ$3RR FAB$B_BIDR T3 FAB$B_BLNR T3FAB$R_IFI_-OVERLAYR R  FAB$R_FOP_OVERLAY R   R @ FAB$L_STS` FAB$L_STV FAB$L_ALQ FAB$W_DEQ R T3FAB$R_FAC_OVERLAY R  R FAB$R_SHR_OVERLAYR R  FAB$L_CTX FAB$B_RTVR RRR FAB$R_ORG_OVERLAYR R FAB$R_RAT_OVE.RLAYR R  FAB$B_RFMR T3FAB$R_JOURNAL_OVERLAYR R FAB$B_RU_FACILITYR T3FABDEF$$_FILL_7R Tt3  FAB$L_XAB@ FAB$L_NAM` FAB$L_FNA FAB$L_DNA FAB$B_FNSR T3 FAB$B_DNSR T3 FAB$W_MRSR T3 FAB$L_MRN FAB$W_BLS R T3/ FAB$B_BKS!R T3 FAB$B_FSZ"R T3 FAB$L_DEV  FAB$L_SDC@ FAB$W_GBC#R T3PFAB$R_ACMODES_OVERLAY$R %R XFAB$R_RCF_OVERLAY&R 'R `FABDEF$$_FILL_9(R`)R FAB$W_IFI*R T3 FAB$L_FOP FAB$B_FAC+R T3 FAB$B_SHR,R T3 FAB$B_ORG-R T03 FAB$B_RAT.R T3 FAB$B_JOURNAL/R T3P FAB$B_ACMODES0R T3X FAB$B_RCF1R T32R`3RFAB$R_IFI_BITS4R 5R  FAB$R_FOP_BITS6R  7R FAB$R_FAC_BITS8R 9R FAB$R_SHR_BITS:R ;R FAB$R_ORG_BITS<R =R 29$ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51d"01FAB$R_RAT_BITS>R ?R FAB$R_JOURNAL_BITS@R AR PFAB$R_ACMODES_BITSBR CR XFAB$R_RCF_BITSDR ER FR[GR FAB$V_PPF_RATHR IRJRKR  FAB$V_PPF_INDLR T3 FAB$V_PPIFIMR T3  FAB$V_ASYNR T3! FAB$V_MXVOR2 T3" FAB$V_SUPPR T3# FAB$V_TMPQR T3$ FAB$V_TMDRR T3% FAB$V_DFWSR T3& FAB$V_SQOTR T3' FAB$V_RWOUR T3( FAB$V_POSVR T3) FAB$V_WCKWR T3* FAB$V_NEFXR T3+ FAB$V_RWCYR T3, FAB$V_DMOZR T3- FAB$V_SPL[R 3T3. FAB$V_SCF\R T3/ FAB$V_DLT]R T30 FAB$V_NFS^R T31 FAB$V_UFO_R T32 FAB$V_PPF`R T33 FAB$V_INPaR T34 FAB$V_CTGbR T35 FAB$V_CBTcR T36 FAB$V_SYNCSTSdR T37 FAB$V_RCKeR T38 FAB$V_NAMfR T39 FAB$V_CIFgR T43; FAB$V_ESChR T3< FAB$V_TEFiR T3= FAB$V_OFPjR T3> FAB$V_KFOkR T3 FAB$V_PUTlR T3 FAB$V_GETmR T3 FAB$V_DELnR T3 FAB$V_UPDoR T3 FAB$V_TRNpR T3 FAB$V_BIOqR T3 FAB$V_BROrR T3 FAB$V_EXEsR T35 FAB$V_SHRPUTtR T3 FAB$V_SHRGETuR T3 FAB$V_SHRDELvR T3 FAB$V_SHRUPDwR T3 FAB$V_MSExR T3 FAB$V_NILyR T3 FAB$V_UPIzR T3 FAB$V_ORG{R |R}R~R  FAB$V_FTNR T3FAB$V_CRR T3 FAB$V_PRNR T3 FAB$6V_BLKR T3 FAB$V_ONLY_RUR T3FAB$V_RUR T3FAB$V_BIR T3FAB$V_AIR T3FAB$V_ATR T3FAB$V_NEVER_RUR T3FAB$V_JOURNAL_FILER T3PFAB$V_LNM_MODER RRR RFAB$V_CHAN_MODER T33TFAB$V_FILE_MODER T337VFAB$V_CALLERS_MODER T33X FAB$V_RCF_RUR T3Y FAB$V_RCF_AIR T3Z FAB$V_RCF_BIR T3VERSIONVERSIONR Ts3" TRANSFER_MASK LOCAL_OUTPUT_FILE_SPECSLOCAL_OUTPUT_FILE_SPECS OUTPUT_FAB OUTPUT_FABR T>$3LOCAL_LOCATE_INPUT_FILELOCAL_LOCATE_INPUT_FILE INPUT_ESA INPUT_ESAR T 3 INPUT_NAM INPUT_NAM 8R T3T53RR NAM$B_BIDR T3 NAM$B_BLNR T3 NAM$B_RSSR T3 NAM$B_RSLR T3 NAM$L_RSA@NAM$R_NOP_OVERLAYR R H NAM$B_RFSR T3P NAM$B_ESSR T3X NAM$B_ESLR T3` NAM$L_ESA NAM$L_RLF NAM$T_D9VI NAM$R_FID_OVERLAYR 0R PNAM$R_DID_OVERLAYR 0R NAM$R_WCC_OVERLAYR  R NAM$R_FNB_OVERLAYR  R  NAM$B_NODER T3 NAM$B_DEVR T3 NAM$B_DIRR T3 NAM$B_NAMER T3 NAM$B_TYPER T3 NAM$B_VERR : T3NAMDEF$$_FILL_6RRR T&3  NAM$L_NODE  NAM$L_DEV@ NAM$L_DIR` NAM$L_NAME NAM$L_TYPE NAM$L_VERNAMDEF$$_FILL_7RRR RR@ NAM$B_NOPR T3  NAM$W_FIDRRR T3 P NAM$W_DIDRR;R T3  NAM$L_WCC NAM$L_FNBRR@NAM$R_NOP_BITSR R  NAM$R_FID_FIELDSR 0R PNAM$R_DID_FIELDSR 0R NAM$R_WCC_BITSR  R NAM$R_FNB_BITS0R R RR@ NAM$V_PWDR T3A NAM$V_FIL<L_1R T3B NAM$V_FILL_2R T3C NAM$V_SYNCHKR T3DNAM$V_NOCONCEALR T3E NAM$V_SLPARSER T3FNAM$V_SRCHXABSR T3  NAM$W_FID_NUMR T30 NAM$W_FID_SEQR T3@NAM$R_FID_RVN_OVERLAYR R P NAM$W_DID_NUMR T3` NAM$W_DID_SEQR T3=pNAM$R_DID_RVN_OVERLAYR R  NAM$V_IFIR T3 NAM$V_SRCHNMFR T3 NAM$V_SVCTXR T3 NAM$V_EXP_VERR T3NAM$V_EXP_TYPER T3NAM$V_EXP_NAMER T3NAM$V_WILD_VERR T3NAM$V_WILD_TYPER T3NAM$V_WILD_NAMER T3 NAM$V_EXP_DIRR >T3 NAM$V_EXP_DEVR T3NAM$V_WILDCARDR T3NAM$V_SEARCH_LISTR T3NAM$V_CNCL_DEVR T3NAM$V_ROOT_DIRR T3 NAM$V_LOWVERR T3 NAM$V_HIGHVERR T3 NAM$V_PPFR T3 NAM$V_NODER T3 NAM$V_QUOTEDR T3 NAM$V_GRP_MBRR T?3NAM$V_WILD_DIRR T3NAM$V_DIR_LVLSR RRR RR@ NAM$W_FID_RVNR T3p NAM$W_DID_RVNR T3NAM$R_FNB_BITS1R  R RR@NAM$R_FID_RVN_FIELDSR R pNAM$R_DID_RVN_FIELDSR R NAM$V_WILD_UFDR T@3NAM$V_WILD_SFD1R T3NAM$V_WILD_SFD2R T3NAM$V_WILD_SFD3R T3NAM$V_WILD_SFD4R T3NAM$V_WILD_SFD5R T3NAM$V_WILD_SFD6 R T3NAM$V_WILD_SFD7 R T3 R R@ NAM$B_FID_RVN R T3H NAM$B_FID_NMXR T3p NAM$B_DID_RVNR T3x NAM$BA_DID_NMXR T3NAM$R_FNB_BITS2R  R RRNAM$V_WILD_GRPR T3NAM$V_WILD_MBRR T3 INPUT_DELNM INPUT_DELNMR T 3LOCAL_PARSE_OUTPUT_FILELOCAL_PARSE_OUTPUT_FILELOCAL_DEACCESS_INPUTLOCAL_DEACCESS_INPUTPROTOCOL_ERRORPROTOCOL_ERRORLOCAL_SETINIBLKLOCAL_SETINIBLKLOCAL_GET_INPUT_BLOCKLOCAL_GET_INPUT_BLOCKLOCA3 $ PSICOPY040.Bb -'[GEGE.SYSTEME.PSICOPY040]PSICOPY.OLB;51dx"ABL_PUT_OUTPUT_BLOCKLOCAL_PUT_OUTPUT_BLOCKyLOCAL_DELETE_INPUTLOCAL_DELETE_INPUTLOCAL_DELETE_OUTPUTLOCAL_DELETE_OUTPUTNETSENDNETSEND SERVER_MODE SERVER_MODE! CLI$_PRESENT ! CLI$_NEGATED   CLI$_ABSENT LIB$STOP ERROR_STOPCONNECT_NW_CHANNELCONNECT_NW_CHANNEL NOTIFY_INIT NOTIFY_INIT NOTIFY_FINISH NOTIFY_FINISH'PASCAL%DEBUG_SUPPORT' SAVED_PC_PSL DBG_STCACKRRR RPASCAL%DEBUG_SUPPORTRPASCAL%DEBUG_SUPPORTR FOR_INDEXR CURRENT_MAX 4RS !S !ST3S!S !S !S ! S ! S ! S ! S ! S'!S'!S%!S !ST3S !S !S !S !S!S!S !S !S"S !S !S"S !S" S !!S""S !#ST 3$SD!&S !'S !(S !)S !*S !+S",S !-S !.S"/S !0S !1S !2S"3S !4S !5S"6S !7S !8S"9S7!:S3";S S ?S !@S !AS7!BS3"CS DS !ES !FS"GS !HST 3IS !JST 3KS !LST3MS!OS !PS !QSTt3RS!TS !UST3VS!XS !YS !ZS ![S !\S"]S !^S"_S !`S"aS !bS !cS !dS !eS !fS"gS !hS !iS !jS !kS"lS !mS !nS"oS !pS !qS"rS !sS !EtS"uS !vS"wS !xS"yS !zS"{S !|S !}S"~S !S !S0!S,"SS !S !S"S !S"S !ST3S!S0!S,"SS !S"S !S !S"S !S !S !S !S !S"S !S !S"S7!S3"S S !S"S !S !S !S !S"S !S!S !S !S!S !S!S%!S!!S !S!S!S!S !S !S!S!S !S !S !S!S!!S!!S!S!S !S!S!!S !FS!S"!S"!S!S!!S !S !S !S!!S !S!!S !S$!S !S(!S(!S !S !S:!S6"SST3S !S !S !S !S !S !S !S !S !S !S !S !S !S !S7!S3"S S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S"S !S !S !ST$3 S ! ST%3 S ! S ! ST%3S !STG%3S !ST&3S!S !STQ&3S !ST&3S !S !ST&3S !S !S !S !S ! S !!S !"S !#S !$S !%ST(3&S !'ST(3(S !)S"*S !+S !,S !-S !.S !/S !0S !1S !2S !3S"4S !5ST^*36S !7ST*38S !9ST*3:S !;ST*3<S !=ST&+3>S !?STX+3@S !AST+3BS !CST+3DS !EST+3FS !GS"HS !IST5,3JS!LS !MHS !NS !OS !PS !QS !RS !SS !TS !US !VS !WS !XS !YS !ZS ![S !\S !]S !^S !_S !`S !aS !bS !cS !dS !eS !fS !gS !hS !iS !jS !kS !lS !mS !nS !oS !pS !qS !rS !sS !tS !uS !vS !wS !xS !yS !zS !{S !|ST323}S!S !S !S !S !S !S !S !S !S !S !S !S !ST33S!S !S !S !S !S !S !S !S I!S !S !S !S"S !S !S !S !S !ST{63S !S !S !S !STS73S !ST73S !ST73S !ST73S !S !S !S !S !S !S7!S3"S S0!S,"SS !S"S !S7!S3"S S7!S3"S S !S"S !ST:3S !ST;3S !ST8;3S !STj;3S !ST;3S !S"S !S !S !S !S !SJ !S !S !S !S !ST=3S !S !S !ST=3S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !ST@3S!S !S"S !S !S !ST_A3S !S"S !STA3S !STA3S !S !S !S !S !S ! S ! S ! S ! S" S !S !S !S !S !STC3S !S"S !S ! KS !S0!S,"SS-!S-!S"!S$!S$ PAS$FV_INPUT SS$_ENDOFFILEww1ތ013THROTTLE0120-Dec-1995 17:5520-Dec-1995 17:55DEC Pascal V5.1-22RTHROTTLEPPSICOPY$THRUPUTQLNM$SYSTEMQPSICOPY$THROTTLE_USERSQ IOSB status=QThrottle: status=QThrottle$ENQWQ$TRNLNMQThrottle: $TRNLNM=Q$DEQThrottle not startedFrom internal timeQLIB$SUB_TIMESQLThrottle: size/time= Users:Q IOSB=QThrottle: LKI status=Q$GETLKIWThrottle: dodo QTo internal time$SETIMRQ$WAITFRp^ԭ PAS$HANDLERm^V8 <Ѱ԰֞؞ԭȰ Ğ4ԭԭ̚ SYS$TRNLNMP1iBfEeM//ݗe\LsN+m9kl7}]% 0j0iE\)ӟ%l=eaaZ.Rf[cݩ3ѫTbuLHZ;uY\] W[-͜܎[0qB{/Qg-fȀ4TФBᘽچJIO%J&СX)qg`$8Z&$̇r*%c X9徬=,R)Th+HЃynph9y)|#O>ޜi>(RIJ^}ş,JC$J~{*hvپSJ*noF#Ԧ=o}ސ9HuiTN5lY a_99ɮqbbEer2jLc"a(UF;/,b|5 .p*qrTB aU=}jە,dM654W fǍf$dƣj5먑s PxA,WѬ yg;t._#@Iyk&%:?nzб;Z8Rfnm2}Xp@Cybˋ+'0RKeގ̔3Rc/+;i%jWR'sX žX3cWO=e}ႝc P4u#)G.vq>lNՔhSY|4|o9[xhń8pFLXkܟøtEUW\q-?Dz &4:\9]&#^ Docu0kBZOg|8sh4` =(D'O,N`ˆA$ \iR!xSNK,$nɵ"ј׮JɎȧ"ce  >@N^kt:jG\t>n<=@_ 7M0mm'XCiI2Dd"Uw?Y bo(ΌP<;fat'zD&Ɏ6jK*. Vu.K 9UhjX}(\Xt<{sB qU`ଠ-`WB#N8垢[!AZ.lH8xu2=ǽXWx#EtcCwbԍVGn hxPBq,,p WY,OruxUjh@"k*1364K'H@krD1Of1kl Q`}D`gwGl9U Z2|@d-@u*@zc-re&5mh&<7 K [jmBڑ|"P]ա[dG9Nw=&?GV_wtu pD5:2UEt}u սdŴ)=5U#|H,jٞkHqm -b, UPBGCIL6Φ+D&O5v8o[+\JlC`CxRŽ9p I{(om8v<˔/iSwr%|1u\$ҫZ~yj4 ݤx)AUH@ hU$zMc 9 GFma{WuҘ?-\B`x1.4C'E|6#Dm;e Bw3ʄ G`hKsm~_I N뫉w5 -͆޽/:u5M1 uz8Yk>1$%Lkd\ؔAS2ݔ:G|@QA 6UB10ѣ~ +>]F1:ȕ(w L2{9#b )^V6?l_t :1ڷ6x#; wxDMFf]͛I/bX<WܤԮzz2d/\"?y0sQ&4(D_~'еx~񀟄 !+ o<1ܼu7mFBHG; FG;Ut;@^{%swgE?_rK#T|: $EUѵ'~IdCs,lϑ$ >}8fv%[c.k {r5evD|EXJ7d`hwe`Ѿ$fF<~ gGK[Vv}Ɂ߃Cy-âjCaEuqo%z[3V۞$Q٫vXW~_ Z_=BLjK VQ,T6yڞ^Q)?|B@KڌSDLy~e>*)+3>nxXnT+ɚ؇͚ 7/zMzj&MЍ{%\DϠ|;[R[ L`w3TuNE,xo= G<)j ) wo Uh.,SP˪B{ȫfG;KWw _֠”ޕ;e8.w0x`8QޗbP 'l*RfFƓ"{21)~\S\$lq݂0k.rHeO[ebqU9h8GOf6©R['^(쒾,&`ѻ ;TU(TWV2[|g3B\ܿ o;V0CKp AqaJG{vlY&t.ÍUiq3Ic8g-* 3t ?{t/4X%GWr. DvThmԏR 6}St%xcOfI|7פN>rKzxXWU):9I ` avz cmҾOugydwLwPjzE7*e`͔e ]A >>/.JPԖ ;nA\R=C>CWxyW.H9EGz~}{j1DOj,2;mĠΤE3mZ>b+tRY|+3w|<{c"6L'=Lt"fdxeyWO?krι (u=JׇrǏ) @zGl jdQuL'{8x[0Sߪq\ħz\>l8t( TU5XNs%X( QD7&4ݰxh,-øE /"K]-jYw }"8m?,}ډO}~B$ըuh HRErUS_y͊5/Ţs6 dữY=R)hQ:ګY!Џ+mK v^2a4{r #*#ĖL:u8K?7ްm2.0FN[Z@j: #fwqoHk9g-1W:mǰ{σR~$Vv`ϔ*=MϹCȝ ƲG_c)C% b!7I'5e˭H͙690֖3lߜQV$rq&^y[+BKY9o\ն-!৴-v¦$^Gny1)j ayeA޷0+m䁬711^{jp[lby,m&3~{b 7z%^['| I!*0@] pΐ=J#EKHڨ? oNF4jüf P;{Ja͕8r,S`g-Wo 'V,jjõAK2K"CGL:՝[vS%}cYMÜ ukT"(ys=y 6r C<&w8S>&2Wh b9P~neta |iM2Q k-x4?=A3WB4$DF!ʡ)s=TGAHCŞx`gZ  [E9!St'f  chv`. &meeУTǺb ! =4XyL1(=)S <#CSm#߼n :u ̵La8xGWF %_c; HVvM~۠~g@mwDDLwϳdTR C-=z~Dm13g.M~gMeV!.Jc[u%^5GQ_<}VmhT ŗw 1 yPA$epUh슗rP{p_ZaW^hq&1pM'tr6'R$ʈV5(t$R ި`edY'$[&#?c|%W^DndAF>4$ \K ?@7I2mjVжî0%s)xH o7/ WgK6PQQ)O nX3K&y}q=pMǥi/{-b \XmORDQf`ɪ=YˈS]!dAsrhk*fV'2?܂ @tSJ{!#Hib&V'n{#A=Z=?' ƬA qP55;NA7}ZMѹSrٰJ^J$Y1K_FUX"ijDik#{IUǽ27ɱ ߬VK"Vg߼4>tiC{X3׌M]sCsMFv^zMkǽ@`?<:*-vJQ/4QQ+ ܗތD2R(j8Sd8811W9NYCv&783Q &\gTi!nX%gexSDUGxh?p~MK, hA @;9-Ѫ y@!++ lKwfƐfC8kϫ`t e%p̻HiUM➽QiGNPZNJ_t=֭](F?k`9.n m+s j|uQ>@*DnTB_qigt9I%h4(e Req75{[I3]H߲ȖQ@8TPf׳qe[cvH Q9 *x&|[YE Հ&M.׆m ֞s॑z\w=pŌH',RVK+)E nbs{r5g+S5!G}ZlP,nnՐty`E+c*v#so~Gq;J~~'ESbLm"%}y?>SnGȔ :y,0×D $i2xE|A&`FY+Z[+Вmى]@kuZ. Ի9FMa-7alP `YAHͨk hT!`Zu?dI  S3lFk<!R?RPRV$R_PRVDEF_B\ITS1@R AR BRCR PRV$V_ACNTDR TQ3 PRV$V_ALTPRIER TQ3FR@GRPRV$R_PRVDEF_BITS2HR @IR JR@KR PRV$L_L1_BITS PRV$L_L2_BITS, SYSLOCKPRVLR T3" LKI$_LCKCOUNT  4 INIT_THROTTLEHTRNSIZ  THROTTLE_LOGTHROTTLE_RESNAM] PSICOPY_TABLE  STATUS TRNSTR  LOGVALMR T34 LOG_ITEMS ITMSIZNR Tv3 ITMTYPOR Tv3  BUFADR @RETADR`LISZTENDP CLEARLOCK]     LNM$_STRING  SYS$DEQ$DEQ PSICOPY_BUGF PSICOPY_BUGF SYS$TRNLNM$TRNLNMPSICOPY$SETPRVPSICOPY$SETPRV ^SYS$ENQW$ENQW SYNCH_EFN SYNCH_EFN! LCK$K_NLMODE ! LCK$M_SYSTEM PSICOPY$RESETPRVPSICOPY$RESETPRV DEBUGDEBUG  NETPR TQ3 MAINQR TQ3 DATARR TQ3 CRCSR TQ3 LOGTR TQ3m LOGINUR TQ3 INTERVR TQ3 SERVERWR TQ3FILE_IOXR _TQ3 RESTARTYR TQ3 THROTTLEZR TQ3 COMPRESS[R TQ3 PSICOPY_DEBUG PSICOPY_DEBUG! SS$_NOLOGNAM  PSICOPY_BUG PSICOPY_BUG!START_THROTTLE ( SYS$GETTIM$GETTIM8 DO_THROTTLEV!hNB_BYTES\R T3 STATUS lNOW]R T3t DELTATIME^R T3 |DUREE DODOOVERHEAD ـLKID` IOSB @ STATUS_R Tv3 COUNT`R Tv3 NIMPORTEQUOI ,W LIB$SUB_TIMES LIB$SUB_TIMES"LIB$CVTF_FROM_INTERNAL_TIMELIB$CVTF_FROM_INTERNAL_TIME*LIB$K_DELTA_SECONDS_F   LIB$_NEGTIM   LIB$_NORMAL  SYS$GETLKIW$GETLKIW LIB$CVTF_TO_INTERNAL_TIMELIB$CVTF_TO_INTERNAL_TIME SYS$SETIMR$SETIMR SYS$WAITFR$WAITFR'dPASCAL%DEBUG_SaUPPORTm* SAVED_PC_PSL ' DBG_STACK aRbRcR PASCAL%DEBUG_SUPPORTPASCAL%DEBUG_SUPPORT FOR_INDEX CURRENT_MAX BdRS !S7!S,"SS!S !S! S ! S ! S ! S !S !S !S !S"S !ST3S !S"S !STQ3S !S !S !S !S !S !S !S ! S !!S !"S !#S !$S !%S !&S !'S !(S !)S !*S !+S !,S !-S !.S !/S !0S !1S !2S !3S !4S !5S !6S !7S !8S !9S !:S !;S !S !?S"@S !AST 3BS !CS"DS !ES !FS !GS"HS !IST9 3JS !KS"LS !MS !NS !OS !PS !QS !RSq !SS !TS !US !VS !WS !XS !YS !ZS ![S !\S !]S !^S !_S !`S !aS0!bS,"cSdS$ PAS$FV_INPUT PAS$FV_OUTPUTww69$ PSICOPY040.B.-&[GEGE.SYSTEME.PSICOPY040]SYSDEP.MAR;291;X&*[GEGE.SYSTEME.PSICOPY040]SYSDEP.MAR;29+,../ 4;--0123KPWO565\l7a98ϙ9v೙GHJ , .title KERNEL -- system dependant routines;&; GG: 11/12/90 ajout verifs format PCB; passage par l'ARB; modif routine: %; 2 arguments, retourne le status;;alpha= 0; .library "SYS$LIBRARY:LIB" .if eq,alpha .link "SYS$SYSTEM:SYS.STB"/SE .endc $ACCDEF' $ARBDEF ; agents rights block offsets $JIBDEF $JPIDEF $PCBDEF $PSLDEF! .psect $DATA,RD,WRT,NOPIC,NOSHRdebug: .blkl 1work: .blkl 1ref_uic:.blkl 1group: .blkb ACC$S_ACCOUNT;& .psect $RODATA,RD,NOWRT,LONG,SHR,PIC;JPI_LIST:.WORD 4,JPI$_UIC .ADDRESS ref_uic .quad 0 % .psect $CODE,NOWRT,LONG,SHR,PIC,exe" .weak EXE$C_ALCGRNMSK ; pour V5" .weak EXE$M_NPAGGRNMSK ; pour V6; .entry SETUIC_KERN,^M MOVAL HANDLER,(FP) clrl r1 movw #EXE$C_ALCGRNMSK,r0 bneq 1$" movw #EXE$M_NPAGGRNMSK,r0 ; V61$: addw3 #PCB$K_LENGTH,r0,r2 bicl r0,r2 cmpw r2,PCB$W_SIZE(r4)6 bneq badvers ; on suppose format du PCB change. incl r1, movl PCB$L_ARB(r4),R0 ; agent rights block! movl ARB$L_UIC(r0),R1 ; old UIC cmpl r1,ref_uic bneq badvers MOVL work,ARB$L_UIC(R0) movl R1,work MOVZBL #1,R0 RETbadvers: movl #PSICOPY_RELINK,r0 retTRAP: MOVZBL #12,R0 RET;HANDLER:.WORD ^M<> $UNWIND_S depadr=#0,newpc=TRAP RET;%SETACCOUNT_KERN:.WORD ^M MOVAL HANDLER,(FP)* MOVC3 #ACC$S_ACCOUNT,GROUP,CTL$T_ACCOUNT MOVL CTL$GL_PCB,R0 MOVL PCB$L_JIB(R0),R0. MOVC3 #JIB$S_ACCOUNT,GROUP,JIB$T_ACCOUNT(R0) MOVZBL #1,R0 RET! $CMKRNL_S routin=SETACCOUNT_KERN BLBC R0,RET;; 4(AP): nouvel UIC5; 8(AP): (optionnel): adresse o ranger l'ancien UIC; retour: R0 status VMS; .entry setuic,^M<> movl 4(ap),work; $GETJPI_S itmlst=jpi_list ; recupre notre UIC pour verif blbc r0,ret1 $CMKRNL_S routin=SETUIC_KERN ; modifie notre UIC movl r1,debug blbc r0,ret' movl 8(ap),r1 ; 2 eme arg. prsent ? beql ret ; br si non' movl work,(r1) ; return previous uicRET: RET .END7 W$ PSICOPY040.B.-,[GEGE.SYSTEME.PSICOPY040]HASH_PASSWORD.OBJ;191,*[GEGE.SYSTEME.PSICOPY040]HASH_PASSWORD.OBJ;1+,../ 49--0123KPWO5S6f5_7e8ڱϙ9v೙GHJ7 HASH_PASSWORD010-JAN-1994 16:35 VAX MACRO V5.4-39MACRO/NOLIST/OBJECT=HASH_PASSWORD.OBJ HASH_PASSWORD.MAR(-- interface $HASH_PASSWORD & LGI$HPWD HASH_PASSWORDLGI$HPWD . ABS .P$ABS$ PP,$CODEP SYS$HASH_PASSWORD&3Ѭ }~^PЬ} ~}~PLGI$HPWDPPSYS$HASH_PASSWORD$CODE,8]$ PSICOPY040.B -*[GEGE.SYSTEME.PSICOPY040]SETUIC_V62.OBJ;58**[GEGE.SYSTEME.PSICOPY040]SETUIC_V62.OBJ;58+, ./ 4--0123KPWO56/.^7h8רϙ9v೙GHJ5 SETUIC_V620121-Dec-1995 18:5421-Dec-1995 18:54DEC Pascal V5.1-22R SETUIC_V62Preset persona failed:Qsetuic_v62Qreset persona: Qdelete persona failed:Qdelete persona: create persona Q failed:create persona: assume persona failed:Qassume persona: ^  #  PSICOPY$SETPRVЭP`SYS$PERSONA_CREATEP\ PSICOPY$RESETPRV\P^ԭ PAS$HANDLERmЬPм V^\V11ߏSYS$PERSONA_ASSUMEPWWWЏԞЏxЏrЏ ]  П PSICOPY_BUGFDEBUGW PAS$HEXXXX\^^Y(n( cЏYЏXXXԭК PSICOPY_DEBUGW1SYS$PERSONA_DELETEPWWWЏЏПЏjЏ U   PSICOPY_BUGDEBUGW PAS$HEXYYY\^^X(7n( cЏXЏYYYО PSICOPY_DEBUG1 W1V7 SYS$CMEXECPWW1WRPRV$R_PRVDEF_BITS2?R @@R AR@BR PRV$L_LF1_BITS PRV$L_L2_BITS  PERSONAPRVCR T3!CREATE_PERSONADRCREATE_PERSONA ERCREATE_PERSONA FRSTATUS   pPSICOPY$SETPRVPSICOPY$SETPRVSYS$PERSONA_CREATE$PERSONA_CREATEPSICOPY$RESETPRVPSICOPY$RESETPRVLOGIN_PRIV_TYPE NONEDEFAULT AUTHORIZEDMAXIMUM SETUIC76GRSETUICHRSETUICIRNEWUICJRSAVUIC00KRUSRNAM4jLR Tp3MR LOGIN_MODE NR T 3ORSTATUS[b SYS$PERSONA_ASSUME$PERSONA_ASSUME PSICOPY_BUGF PSICOPY_BUGF DEBUGDEBUG  NETPR T3 MAINQR T3 DATARR T3 CRCSR T3 LOGTR T3 LOGINUR T3 INTERVR T3 SERVERWR T3FILE_IOXR T3 RESTARTYR T3 THROTTLEZR T3 COMPRESS[R T3 PSICOPY_DEBUG PSICOPY_DEBUGSYS$PERSONA_DELETE$PERSONA_DELETE PSICOPY_BUG PSICOPY_BUG SS$_WASSET   SYS$CMEXEC$CMEXEC*IMP$M_ASSUME_SECURITY 'PASCAL%DEBUG_SUPPORT  SAVED_PC_PSL DBG_STACK\R]R^R _RPASCAL%DEBUG_SUPPORT`RPASCAL%DEBUG_SUPPORTaR FOR_INDEXbR CURRENT_MAX 4cRS !S!ST3S !S !ST3S !S" S ! STD3 S ! S" S !ST3S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S !S ! S !!S !"S !#S !$S !%S !&S !'S !(S !)S !*S !+S !,S !-S !.S !/S !0S !1S !2S !3S !4S !5S !6S"7S !8ST39S !:S";S !S"?S !@STj3AS !BS"CS !DS'!ES'!FS!GS!HS!IS!JS!KS!LS !MS#!NS !OS}!PS !QS !RS !SS !TS !US !VS !WS !XS !YS !ZS ![S !\S0!]S,"^S_S-!`S-!aS"!bS$!cS$ PAS$FV_INPUT PAS$FV_OUTPUT9+$ PSICOPY040.B.-'[GEGE.SYSTEME.PSICOPY040]FINDUSER.OBJ;1'*[GEGE.SYSTEME.PSICOPY040]FINDUSER.OBJ;1+,../ 4--0123KPWO5 6f_78Nϙ9v೙GHJ 4FINDUSER2.010-Jan-1994 16:3710-Jan-1994 16:37DEC Pascal V5.0-7RFINDUSERP  %FINDUSER-F-NOTSUPP, looking by UIC is no longer supportedQUSERNAMEQUOTA_PERMQQUOTA_OVERQQUOTA_USAGEQassignation quota impossibleDEFDEVQDEFDIRQOWNERQACCOUNTQMEMBERQGROUP ^ԭ PAS$HANDLERmPQм Rм\h h SCSPcQR\x^ԭ PAS$HANDLERm^\( LIB$GET_FOREIGNPPPVP[1QRP͞S P SSc,VPR?R Tr3  PW_DID@R T 3 L_WCCW_NMCTLAR T3 W_CNTRLFUNCBR T3CR DESCR_QFTB5aـDRERFR GR DESCR_FIB,d٨HR T 3IR DESCR_DISKٌ  JRJKR QFTB_SIZE^^ٸLR T3MRCHANDpوNR T3ORIOSBACPsٰPRQRRR T3 SR QUOTABLOCK8?ټ L_FLAGS  L_UIC@L_USAGE` L_PERMQUOTA L_OVERDRAFT RES1 RES2 RES3\ PUTOCTAL  TRSYMBOL}  UR T3VRVAL   WRI  XRYR ZRNBDIGIT  [R\R ]ROCTAL  ^R T3  GARNIRUAI3_RLEN'N`R T3aRCODE+QbR T3cRADDR/UdRRETADDR3Y H SS$_NORMAL :xZ$ PSICOPY040.B.-'[GEGE.SYSTEME.PSICOPY040]FINDUSER.OBJ;1SW! UAI$_ACCOUNT  " UAI$_USERNAME  UAI$_OWNER    UAI$_DEFDEV    UAI$_DEFDIR  UAI$_UIC  SYS$GETUAI$GETUAI RMS$_RNF  SYS$EXIT$EXIT SYS$ASSIGN$ASSIGN$FIB$C_EXA_QUOTA   SYS$QIOW$QIOW#IO$_ACPCONTROL 8! SS$_QFNOTACT $SS$_NODISKQUOTA ! SS$_BADPARAM   eRS !S !S !S !S!S! S8! S," S S ! ST&3S !S"S !S"S !S !S !S !S !ST>3S!S !ST3S!S !ST3 S!"S3!#S/"$S%ST3&S !'S !(S!*S!+S!,S!-S !.S!/S !0S!1S!2S!3S !4S!5S !6S !7S !8S!9S7!:S3";S S3"?S @S !AS !BS !CS#!DS0!ES,"FSGS"!HS !IS#!JS!KS"!LS !MS!NS !OS !PS7!QS3"RS dSS#!TS!US !VS!WS!XS!ZS ![S!]S!^S !_S!`S !aS!bS !cS!dS !eS\;e:ifk{ dtwr;1t&CT+ ,„r:皾ٮ(W8,㿶 ha91$/ʾkWF~ָAPM TQIOKU_BUP`)5H"+[>qԗթå>NqϠcF5  JPn6! (ņ̦2[V<s!$ng/^rieX Ew,8+t&謘T^h3ДRېJO A]rr(BZ.sբOgJcLo{k92mާAv1>Pm*t*ZX!5 AdEne܊ѐLVދY頻1q̗ϊчwα}vĸҢgtT.YA7k2ᕩЊIĽЩ;lxLPj>#R:xx#xkich5Q[Sxi`y> ah4 h'Ecj*ŃW)DR _-#(&^l=+=;c3P2V|[-|7[Ah*fo$iyeV$p y׳m S@ZY+YAXTEDua4sߠQpka>SA^}`%E9DAb;Ye$Z9Ko.s'n=-w\nRYQbj$i`sX?* Vڿr~ 24D*NNHY+(@ĤԆ3Αc9I>_id2W,>\0"gjQ:5H2e3 Ӷ0yv,dHYWbKF+) 2ndPEJg_D&F}A8\V|Hz4:mg=a$3l5TصN69rq]sX *999asqȆ5}c$(Y"dRRj!,r_37#xH(yU{dMo3#v%o.n s;\\S{sh5Q3YX!NkRt$D*Rjޛ8.)/DY% Gʡ!.΃1Rk~$bL҇G"9JbcJ# )mۉ|dmj2'#Pv6e8hB>[6'U?eQ~9އaWse!oڦg FV'#m.mlfeeiQX˝r%@[ 626 3LxtMW|KCRٙΎZ^7lyAz>WIL&˚AEi[#ZxdpٕMθSMUW6dBPA5w#vЋe O48.~.HeAxm*v]O,Hp\-vrcQ]D+_2"RkEFUkƍAI]̮SuһC#c g4=F[=4IMT7fuHpقw-)xk#X7{ra$Ԛyp-?EH1~ٰS}'"G1bSڛ ?~}k;!q$|;$giECG?\z_\G}Ųw~6܌ェnsBI%iF.Ax[iè讷Z{;H4/ mԃm r&ak 4*ۃԡw2K `˛&ײ'9er"{o93U;+ZIIY?KOGƍդ߮ɬKtVyVP\{\^YYtKS(XW PZ:TTS\E9,ү^4eVI{IS{FTP nۋpvB8ݦXRŀ{νZhbO=@Ľg !WuKMZX Tˈ4R^D۪ICZRSBQ\_S~M>YKUHQv7TX_6V UB h%{x͞4in鸹O faVR \d6[V#WAPEEWG`REDKSSRb(QȸUg J@b`y eq: SOo0T鲥uS&S  WMrYTfQX ɂC[W&K[ORQ9Tk[|C Baս?ZuPɒﴎc6]DTU 2QW/zTX\W$LsFZ \#z# 8E V^o[Z^SU<_YjM ~ YGSV aUV`轫F]%QBVrQpWSHS4 V_RnV HO. QIќ^Rv5WTPYT+QV[WLTT.US\[Q1OWO@VP1ơߺV&0 Eh\C V FH]/WG@NtQE?jUPUrZF쫞$WݷSILR4-tWFDK [RV2 BPe1LlP\ $R@Dľ|FPRQ>U6,=7I L9X39]DqVnX)b76R[JV` \GVwz\H!1)VQOLWg -GLPU_Va VRFAAj qFHR B\^9[ZOUDrs =LFXXii PRZc EZ`AL P;kL4 J ZbFEUR PYRO:Z[UVG) ݱ Q_T*[[YTZZT\RIZE UJaq _R%MD D9P$B^L6_KH[nNI"VS*:Y \@S ]XSAENBDBAMN ZeIjLE-RA,ZBKXW 5O RTV=w_PS@@3IUN⇥6w W!V]]QK,R U V IjYo^JN vXF ZP_PdZd?OIT;p RU$T[ECKLB'R HH?$FFKRV/V^MGL]4*XU% MTY xEA[DLURYWVE Rаt}YK!MRRS)__?[ զF TMK65R 6R!HZ[MHQXA-W f( e UEPKUR5   Tv3 RLUF@Ch_@REE@JJPRV+Ix_碪PS#NvWRCJIILO-WŷHr 3{9URA ^LKM$^G`9PSR!CPVEEQTUH^^lvKT8V\HR@SICCWVtPBD]@U\NZY\4RRNKZiBBDYT1XBEU M"VeTPRWKYtf9^FSZ T WUS[$/ ]  YVFH F[YSSVBU~I Z\IOSH h@Y RS DWAl TFI@NU^$VLVPȼ CBPDC_^]DIETY p oE@ Di W IMNP]wE_ Z U[$PA IF OL#M@O0[pDKCT$[EYCUUZ$VKREWDODUW _SmBLKP  FRVzLO oQC# OW\սDQEoSZdYAW SEUG[8wRLLQ mI#I wUOC U_6p RETTU GEUTICWU3_`TOFTH\MRa Qq(?l3LEIHIh Qu(kp5^J=PB_$:UH  NBH* ^  BeI 'Y@ ]SJDOQKfQ PSICOPY_BUG!ZSP@RT_THROZN(RBV?jC[OAU ,#BAiKS:MFWYM\KNAUkZyLJ^YYtAB>[QCNGEQ GMDT ^mN_WβSAH} )ENOCTL6RN@4BU3)GTWB^^GO@[HNCK} IS gi8m/GT\^LDTPLL^Z] TgqܱPFOVL<9U_MT2M)H=Xt NDM7^)T 1IP PMHL@BW@F_{LQjJVTXSC"K+PNXr Jx{([C$LUMVrIKEDS_N@OUTOESSإIm B/=BaA&lkH~ R,XB@XF(EQ*EMRXmD iRP% o[DT\^^C%N HJ  C ])Y\^ AEH?S3]WB ^hZW5DBORNib_PA[PR-QK\ oBuzUUVGU^/q(V'DRXV.4DI]Ь}^ C_R̯_PLZ`Z bRcUR  SCUB|DLFA(!_GI[PAUGDIvTIUC2OFCRKXA[iby HTTIUFxaR RM_[BE^ GeIWL[7)NxI>[[_NVZ%YnU^(E  j#07XT #T nKl\S" V%~6OͫJ4 D^& 4 3\&\ SSLC$VuMQ& 9Q -(qiLU4 Z& 8U!Xl^& TN& S .g$ ^^& T_. T^& T^' !S O&T- TsE_XiIA^% T [= k Eӳ١-T%^& U$^(T#^& _ dgMAX% T%y_]!ZJT.YjUClcL^& tcXVrKP& _di\Ys gLK_2 T>B|Ld,&FcB 8cT1Z{CBS> `0&?Eor%^"EsT*-"I;Y0` m`kI>P$m)MA#Qv yt%qSD .tgUYprTM#& dfWRI&cOWLsR@& kS ɯ]L& lU& mQ],jTP=mW\. ~JTZ!S-EZ/*~TU\& ITU^& @RSc& .dPCcC* XU SI ME^A RRdsR(FtXV\UW_VZ!w=-gS"$H!FhcP$ TzVNUUW\TrE-FSIUT GARNIRUAI3_RLEN'N`R T3aRCODE+QbR T3cRADDR/UdRRETADDR3Y H SS$_NORMAL