121 lines
4.1 KiB
Plaintext
121 lines
4.1 KiB
Plaintext
|
{<7B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ
|
|||
|
|
<20> <20>
|
|||
|
|
<20> X - P a c k e t <20>
|
|||
|
|
<20> <20>
|
|||
|
|
<20> <20>
|
|||
|
|
<20> UNIT: X P O V R 1 . P A S <20>
|
|||
|
|
<20> <20>
|
|||
|
|
<20> Programmcode, der aus dem Overlayteil nachgeladen wird <20>
|
|||
|
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>}
|
|||
|
|
|
|||
|
|
|
|||
|
|
UNIT XPOVR1;
|
|||
|
|
{$F+,O+}
|
|||
|
|
Interface
|
|||
|
|
|
|||
|
|
Uses CRT,
|
|||
|
|
DOS,
|
|||
|
|
|
|||
|
|
XPEMS,
|
|||
|
|
XPXMS,
|
|||
|
|
XPDEFS;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(* Proceduren und Funtionen der XPFILE.PAS *)
|
|||
|
|
Function Compute_CRC(CRC : Integer; Zeile : String) : Integer;
|
|||
|
|
Procedure FileInfo(Kanal,Art : Byte; Groesse,Count,tGroesse,tCount : LongInt);
|
|||
|
|
Function Zeit_to_Sek(Zeile : Str8) : LongInt;
|
|||
|
|
Function Time_Differenz(Start,Stop : Str8) : Str8;
|
|||
|
|
Function FileBaud(ZeitStr,AnzStr : Str9) : Str9;
|
|||
|
|
Procedure Kill_Save_File(Kanal : Byte);
|
|||
|
|
Procedure Close_SaveFiles;
|
|||
|
|
Procedure Open_SaveFiles;
|
|||
|
|
Procedure Neu_Name(Kanal,Art : Byte; Call : str9; Name : str28);
|
|||
|
|
Function GetName(Kanal : Byte; Call : Str9; var FlagByte : Byte; Con:Boolean) : Str40;
|
|||
|
|
Function Platzhalter(Kanal : Byte; Zeile : String) : String;
|
|||
|
|
Function MakeBinStr(Kanal : Byte; Zeile : Str80) : Str80;
|
|||
|
|
Function FName_aus_FVar(var f : File) : Str80;
|
|||
|
|
Function SaveNameCheck(Art : Byte; Zeile : Str80) : Boolean;
|
|||
|
|
Function MakePathName(Kanal : Byte; Var DFlag : Boolean; Zeile : Str80) : Str80;
|
|||
|
|
Function FNameOK(Zeile : Str80) : Boolean;
|
|||
|
|
Function PfadOk(Art : Byte; Zeile : Str80) : Boolean;
|
|||
|
|
Function MkSub(Pfad : Str80) : Boolean;
|
|||
|
|
Procedure KillFile(Zeile : Str80);
|
|||
|
|
Procedure Ini_RemPath;
|
|||
|
|
Procedure File_Bearbeiten(Kanal : Byte; Zeile : Str80);
|
|||
|
|
|
|||
|
|
|
|||
|
|
(* Proceduren und Funtionen der XPFRX.PAS *)
|
|||
|
|
Procedure FileRxMenu(Kanal : Byte);
|
|||
|
|
Procedure Datei_Empfangen(Kanal : Byte; Art : Byte);
|
|||
|
|
Function OpenTextFile(Kanal : Byte) : Boolean;
|
|||
|
|
Procedure OpenBinFile(Kanal : Byte; Zeile : Str80);
|
|||
|
|
Procedure Write_RxFile(Kanal : Byte; Zeile : String);
|
|||
|
|
Procedure CloseRxFile(Kanal,Art : Byte);
|
|||
|
|
Procedure SaveFile(Kanal : Byte);
|
|||
|
|
Procedure Write_SFile(Kanal : Byte; Zeile : String);
|
|||
|
|
Function SvFRxCheck(Kanal : Byte; Zeile : Str60; Name : Str12) : Str60;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(* Proceduren und Funtionen der XPFTX.PAS *)
|
|||
|
|
Procedure FileTxMenu(Kanal : Byte);
|
|||
|
|
Procedure Datei_Senden(Kanal : Byte; Art : Byte);
|
|||
|
|
Procedure FileSendVon(Kanal : Byte; Zeile : Str40);
|
|||
|
|
Procedure Send_File(Kanal : Byte; OFlag : Boolean);
|
|||
|
|
Procedure SF_Text(Kanal : Byte; Zeile : Str80);
|
|||
|
|
Procedure TXT_Senden(Kanal,Art,FNr : Byte);
|
|||
|
|
Procedure RequestName(Kanal:Byte);
|
|||
|
|
Procedure BIN_TX_File_Sofort(Kanal : Byte; Zeile : Str80);
|
|||
|
|
Procedure TXT_TX_File_Sofort(Kanal : Byte; Zeile : Str80);
|
|||
|
|
Procedure FertigSenden(Kanal : Byte);
|
|||
|
|
|
|||
|
|
|
|||
|
|
(* Proceduren und Funtionen der XP7PL.PAS *)
|
|||
|
|
Procedure Open_Close_7Plus(Kanal : Byte; Zeile : Str80);
|
|||
|
|
Procedure Close_7Plus(Kanal : Byte);
|
|||
|
|
Procedure Write_SplFile(Kanal : Byte; Zeile : String);
|
|||
|
|
|
|||
|
|
|
|||
|
|
(* Proceduren und Funtionen der XPBUF.PAS *)
|
|||
|
|
Procedure OpenBufferFile(Kanal : Byte);
|
|||
|
|
Procedure WriteBuffer(Kanal : Byte; Zeile : String);
|
|||
|
|
Procedure SendBuffer(Kanal : Byte);
|
|||
|
|
Procedure EraseBufferFile(Kanal : Byte);
|
|||
|
|
Procedure SendTestBuffer(Kanal : Byte);
|
|||
|
|
|
|||
|
|
|
|||
|
|
(* Proceduren und Funtionen der XPDIR.PAS *)
|
|||
|
|
Procedure GetDirFiles(Zeile : Str80; ax, Art : Byte);
|
|||
|
|
Procedure DirZeig(Var Zeile : Str80; var Ch : char; QRet : Boolean);
|
|||
|
|
Procedure RemoteDir(Kanal : Byte; Zeile : Str80);
|
|||
|
|
Procedure DelAll(Pfad : Str80; Yp : Byte);
|
|||
|
|
Function Get7PlFNr(Zeile : Str80) : Str20;
|
|||
|
|
|
|||
|
|
(* Proceduren und Funktionen der XPCOPY.PAS *)
|
|||
|
|
Procedure FileKopieren(Var Zeile : String);
|
|||
|
|
Procedure Delete_Datei(Var Zeile : Str80);
|
|||
|
|
|
|||
|
|
|
|||
|
|
Implementation
|
|||
|
|
|
|||
|
|
Uses XPACT,
|
|||
|
|
XPACT1,
|
|||
|
|
|
|||
|
|
XPOVR,
|
|||
|
|
XPOVR2,
|
|||
|
|
XPOVR3,
|
|||
|
|
XPOVR4,
|
|||
|
|
xpovr5,
|
|||
|
|
xpovr6;
|
|||
|
|
|
|||
|
|
|
|||
|
|
{$I XPFILE}
|
|||
|
|
{$I XPFRX}
|
|||
|
|
{$I XPFTX}
|
|||
|
|
{$I XP7PL}
|
|||
|
|
{$I XPBUF}
|
|||
|
|
{$I XPDIR}
|
|||
|
|
{$I XPCOPY}
|
|||
|
|
|
|||
|
|
End.
|