You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
110 lines
3.4 KiB
110 lines
3.4 KiB
{ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
|
³ ³
|
|
³ X - P a c k e t ³
|
|
³ ³
|
|
³ ³
|
|
³ UNIT: X P A C T . P A S ³
|
|
³ ³
|
|
³ Programmcode, der staendig im RAM des Rechners geladen ist ³
|
|
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ}
|
|
|
|
|
|
Unit XPACT;
|
|
{$F+}
|
|
{-$DEFINE Sound}
|
|
{-$DEFINE code}
|
|
Interface
|
|
|
|
Uses CRT,
|
|
DOS,
|
|
OVERLAY,
|
|
MEMORY,
|
|
|
|
XPDEFS,
|
|
XPEMS,
|
|
XPXMS;
|
|
|
|
|
|
(* Proceduren und Funtionen der XPIO.PAS *)
|
|
Procedure Screen_aus(Art : Byte);
|
|
Procedure Uhr_aus;
|
|
Procedure GetTNC(Kanal : Byte);
|
|
Procedure S_PAC(Kanal,Art : Byte; All : Boolean; Zeile : String);
|
|
Procedure TxRxTNC(Kanal,Art : Byte; Zeile : String);
|
|
Procedure SendTNC(Var Kanal : Byte; Art : Byte; Zeile : String);
|
|
Procedure Moni_Off(Art : Byte);
|
|
Procedure Moni_On;
|
|
Procedure Check_Mld(Kanal: Byte; Zeile : Str80);
|
|
Procedure TNC_Info(Kanal,Attr : Byte; Zeile : String);
|
|
Procedure Comp_Sammler(Kanal,Attr : Byte; FrEnd : Boolean; Zeile : String);
|
|
Function XComp_Sammler (Kanal: Byte; Zeile : String) : String;
|
|
Procedure Connect_Info(Kanal,Attr : Byte; FrEnd : Boolean; Zeile : String);
|
|
Function FreiePuffer(Kanal : Byte) : Word;
|
|
Procedure Mon_Header_Auswerten;
|
|
Procedure TNCs_Pollen;
|
|
Procedure Kanal_Pollen(Kanal : Byte);
|
|
Procedure Get_Linkstatus(Kanal : Byte);
|
|
Procedure Check_Keyboard;
|
|
Procedure Rufz_TNC_init(Kanal : Byte);
|
|
Function QuerCheck(Zeile : String) : Word;
|
|
Procedure MH_Check(TNC_Nr : Byte; Zeile : Str128);
|
|
Procedure TickerOut;
|
|
Function FormMonFr(TNr : Byte; Hstr : Str5; Zeile : String) : String;
|
|
|
|
|
|
(* Proceduren und Funtionen der XPV24.PAS *)
|
|
Procedure IRQsLock;
|
|
Procedure IRQsFree;
|
|
Procedure get_Chr_TFPC;
|
|
Procedure get_Chr_Hs (V24Nr : Byte);
|
|
Procedure V24_Init;
|
|
Procedure WriteAux (V24Nr : Byte; Zeile : String);
|
|
Procedure V24_Close;
|
|
Procedure Switch_TNC (TNr : Byte);
|
|
Function ReSync (V24Nr : Byte) : Boolean;
|
|
Procedure Wait_Read (V24Nr : Byte);
|
|
Procedure ClearV24Buffer;
|
|
Procedure get_Response (Kanal : Byte);
|
|
Procedure BufToResp (Kanal : Byte);
|
|
|
|
|
|
(* Proceduren und Funtionen der XPKEY.PAS *)
|
|
Procedure _ReadKey(var SK : Sondertaste; var VC : char);
|
|
Function _KeyPressed : Boolean;
|
|
Procedure MakroKey(var SK : Sondertaste; var VC : char);
|
|
|
|
|
|
(* Proceduren und Funtionen der XPAUS.PAS *)
|
|
Procedure Scroll(Art : str2; Aufruf,Y1,Y2 : Byte);
|
|
Procedure _aus(Attr,Kanal : Byte; Zeile : String);
|
|
Procedure M_aus(Attr : Byte; Zeile : String; Kanal : Byte);
|
|
Procedure Write_Notiz(Kanal : Byte);
|
|
Procedure Write_Notstr(Kanal : Byte; ch : Char);
|
|
Procedure Write_BoxStr(Kanal,Art : Byte);
|
|
Procedure Morse(Kanal : Byte; Zeile : str80);
|
|
Function Compress (Zeile : String; Kanal : Byte) : String;
|
|
Function DeCompress (Zeile : String; Kanal : Byte) : String;
|
|
Function SPCompress (Zeile : String; Kanal : Byte) : String;
|
|
Function SPDeCompress (Zeile : String; Kanal : Byte) : String;
|
|
|
|
|
|
Implementation
|
|
|
|
Uses XPACT1,
|
|
|
|
XPOVR,
|
|
XPOVR1,
|
|
XPOVR2,
|
|
XPOVR3,
|
|
XPOVR4,
|
|
xpovr5,
|
|
xpovr6;
|
|
|
|
|
|
{$I XPIO}
|
|
{$I XPV24}
|
|
{$I XPKEY}
|
|
{$I XPAUS}
|
|
|
|
End.
|