RENEGADE now compiles with VP
Of course it doesn't work yet, so don't try running it!
This commit is contained in:
Rick Parrish
parent
4c2999d90b
commit
00cb4ec985
|
|
@ -837,6 +837,7 @@ VAR
|
|||
WinOk,
|
||||
WinNTOk: Boolean;
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
FUNCTION TrueDosVer(VAR WinNTOk: Boolean): Word;
|
||||
VAR
|
||||
Regs: Registers;
|
||||
|
|
@ -852,7 +853,15 @@ VAR
|
|||
TrueDosVer := Bl;
|
||||
END;
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
FUNCTION TrueDosVer(VAR WinNTOk: Boolean): Word;
|
||||
BEGIN
|
||||
WriteLn('REETODO BOOT TrueDosVer'); Halt;
|
||||
END;
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
FUNCTION DosVer(VAR Minor,OS2Ver: Word): Word;
|
||||
VAR
|
||||
Regs: Registers;
|
||||
|
|
@ -870,7 +879,15 @@ VAR
|
|||
OS2Ver := 2;
|
||||
END;
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
FUNCTION DosVer(VAR Minor,OS2Ver: Word): Word;
|
||||
BEGIN
|
||||
WriteLn('REETODO BOOT DosVer'); Halt;
|
||||
END;
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
FUNCTION Win3_Check_On: Boolean;
|
||||
VAR
|
||||
Regs: Registers;
|
||||
|
|
@ -885,7 +902,15 @@ VAR
|
|||
Win3_Check_On := TRUE;
|
||||
END;
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
FUNCTION Win3_Check_On: Boolean;
|
||||
BEGIN
|
||||
WriteLn('REETODO BOOT Win3_Check_On'); Halt;
|
||||
END;
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
FUNCTION DV_Check_On: Boolean;
|
||||
VAR
|
||||
Regs: Registers;
|
||||
|
|
@ -903,6 +928,13 @@ VAR
|
|||
ELSE
|
||||
DV_Check_On := TRUE;
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
FUNCTION DV_Check_On: Boolean;
|
||||
BEGIN
|
||||
WriteLn('REETODO BOOT DV_Check_On'); Halt;
|
||||
END;
|
||||
{$ENDIF}
|
||||
|
||||
BEGIN
|
||||
D5 := 0;
|
||||
|
|
|
|||
|
|
@ -276,7 +276,9 @@ VAR
|
|||
|
||||
DatFilePath: STRING[40];
|
||||
Interrupt14: Pointer; { far ptr TO interrupt 14 }
|
||||
{$IFDEF MSDOS}
|
||||
Ticks: LongInt ABSOLUTE $0040:$006C;
|
||||
{$ENDIF}
|
||||
IEMSIRec: IEMSIRecord;
|
||||
FossilPort: Word;
|
||||
SockHandle: STRING; { Telnet Handle }
|
||||
|
|
@ -464,6 +466,9 @@ VAR
|
|||
MQArea,
|
||||
VQArea: Boolean;
|
||||
|
||||
{$IFDEF WIN32}
|
||||
function Ticks: LongInt;
|
||||
{$ENDIF}
|
||||
FUNCTION GetC(c: Byte): STRING;
|
||||
PROCEDURE ShowColors;
|
||||
FUNCTION CheckDriveSpace(S,Path: AStr; MinSpace: Integer): Boolean;
|
||||
|
|
@ -664,10 +669,29 @@ USES
|
|||
MultNode,
|
||||
SpawnO,
|
||||
SysOp12,
|
||||
Vote;
|
||||
Vote
|
||||
{$IFDEF WIN32}
|
||||
,VPUtils
|
||||
{$ENDIF}
|
||||
;
|
||||
|
||||
{$IFDEF WIN32}
|
||||
function Ticks: LongInt;
|
||||
begin
|
||||
Ticks := GetTimeMSec div 55;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
FUNCTION UpdateCRC32(CRC: LongInt; VAR Buffer; Len: Word): LongInt; EXTERNAL;
|
||||
{$L CRC32.OBJ }
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
FUNCTION UpdateCRC32(CRC: LongInt; VAR Buffer; Len: Word): LongInt;
|
||||
BEGIN
|
||||
WriteLn('REETODO COMMON UpdateCRC32');
|
||||
END;
|
||||
{$ENDIF}
|
||||
|
||||
FUNCTION CheckPW: Boolean;
|
||||
BEGIN
|
||||
|
|
@ -2692,16 +2716,23 @@ CONST
|
|||
LastTimeSlice: LongInt = 0;
|
||||
LastCheckTimeSlice: LongInt = 0;
|
||||
VAR
|
||||
{$IFDEF MSDOS}
|
||||
Killme: Pointer ABSOLUTE $0040 :$F000;
|
||||
{$ENDIF}
|
||||
Tf: Boolean;
|
||||
I: Integer;
|
||||
C: Word;
|
||||
TempTimer: LongInt;
|
||||
BEGIN
|
||||
IF (DieLater) THEN
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Call Killme
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
Halt;
|
||||
{$ENDIF}
|
||||
LIL := 1;
|
||||
IF (Buf <> '') THEN
|
||||
BEGIN
|
||||
|
|
@ -2741,11 +2772,16 @@ BEGIN
|
|||
BEGIN
|
||||
FOR I := 1 TO 100 DO
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Sound(500 + (I * 10));
|
||||
Delay(2);
|
||||
Sound(100 + (I * 10));
|
||||
Delay(2);
|
||||
NoSound;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON GetKey'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
LastBeep := TempTimer;
|
||||
END;
|
||||
|
|
@ -4008,7 +4044,12 @@ BEGIN
|
|||
TempStr := '';
|
||||
FOR XPos := 1 TO MaxDisplayCols DO
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
c := Chr(Mem[VidSeg:(160 * (YPos - 1) + 2 * (XPos - 1))]);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON ScreenDump'); Halt;
|
||||
{$ENDIF}
|
||||
IF (c = #0) THEN
|
||||
c := #32;
|
||||
IF ((XPos = WhereX) AND (YPos = WhereY)) THEN
|
||||
|
|
@ -4338,7 +4379,9 @@ BEGIN
|
|||
SaveCurCo := CurrentColor;
|
||||
SaveMCIAllowed := MCIAllowed;
|
||||
MCIAllowed := TRUE;
|
||||
{$IFDEF MSDOS}
|
||||
NoSound;
|
||||
{$ENDIF}
|
||||
IF (NOT AllowContinue) AND NOT (PrintingFile AND AllowAbort) THEN
|
||||
IsCont := FALSE;
|
||||
IF (IsCont) THEN
|
||||
|
|
@ -4804,7 +4847,9 @@ END;
|
|||
FUNCTION DiskKBFree(DrivePath: AStr): LongInt;
|
||||
VAR
|
||||
F: TEXT;
|
||||
{$IFDEF MSDOS}
|
||||
Regs: Registers;
|
||||
{$ENDIF}
|
||||
S,
|
||||
S1: STRING;
|
||||
Counter: Integer;
|
||||
|
|
@ -4843,6 +4888,7 @@ BEGIN
|
|||
END
|
||||
ELSE
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
FillChar(Regs,SizeOf(Regs),#0);
|
||||
Regs.Ah := $36;
|
||||
Regs.Dl := ExtractDriveNumber(DrivePath);
|
||||
|
|
@ -4850,6 +4896,10 @@ BEGIN
|
|||
C := (1.0 * Regs.Ax);
|
||||
C1 := ((1.0 * Regs.Cx) * C);
|
||||
C2 := ((1.0 * Regs.Bx) * C1);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON DiskKBFree'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
DiskKBFree := Round(C2 / 1024.0);
|
||||
END;
|
||||
|
|
|
|||
|
|
@ -280,7 +280,12 @@ BEGIN
|
|||
CASE WhichScreen OF
|
||||
1 : WITH ThisUser DO
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(Win1,ScreenAddr[(FirstRow - 1) * 160],WIN1_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON2 Update_Logo(Win1'); Halt;
|
||||
{$ENDIF}
|
||||
GoToXY(02,FirstRow);
|
||||
Write(Caps(Name));
|
||||
GoToXY(33,FirstRow);
|
||||
|
|
@ -325,7 +330,12 @@ BEGIN
|
|||
END;
|
||||
2 : WITH ThisUser DO
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(Win2,ScreenAddr[(FirstRow - 1) * 160],WIN2_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON2 Update_Logo(Win2'); Halt;
|
||||
{$ENDIF}
|
||||
GoToXY(02,FirstRow);
|
||||
Write(Street);
|
||||
GoToXY(33,FirstRow);
|
||||
|
|
@ -358,7 +368,12 @@ BEGIN
|
|||
END;
|
||||
3 : WITH ThisUser DO
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(Win3,ScreenAddr[(FirstRow - 1) * 160],WIN3_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON2 Update_Logo(Win3'); Halt;
|
||||
{$ENDIF}
|
||||
GoToXY(06,FirstRow);
|
||||
Write(Loggedon);
|
||||
GoToXY(16,FirstRow);
|
||||
|
|
@ -407,7 +422,12 @@ BEGIN
|
|||
Close(HistoryFile);
|
||||
WITH History DO
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(Win4,ScreenAddr[(FirstRow - 1) * 160],WIN4_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON2 Update_Logo(Win4'); Halt;
|
||||
{$ENDIF}
|
||||
GoToXY(20,FirstRow);
|
||||
Write(Callers);
|
||||
GoToXY(34,FirstRow);
|
||||
|
|
@ -430,7 +450,12 @@ BEGIN
|
|||
END;
|
||||
5 : WITH History DO
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(Win5,ScreenAddr[(FirstRow - 1) * 160],WIN5_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON2 Update_Logo(Win5'); Halt;
|
||||
{$ENDIF}
|
||||
GoToXY(20,FirstRow);
|
||||
Write(General.CallerNum);
|
||||
GoToXY(31,FirstRow);
|
||||
|
|
@ -555,7 +580,12 @@ BEGIN
|
|||
CASE Ord(C) OF
|
||||
119 : BEGIN { CTRL-HOME }
|
||||
SaveScreen(Wind);
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(SYSKEY,ScreenAddr[0],SYSKEY_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON2 Update_Logo(SYSKEY'); Halt;
|
||||
{$ENDIF}
|
||||
CursorOn(FALSE);
|
||||
C := ReadKey;
|
||||
IF (C = #0) THEN
|
||||
|
|
|
|||
|
|
@ -367,6 +367,7 @@ PROCEDURE Com_Flush_Recv;
|
|||
BEGIN
|
||||
IF (NOT LocalIOOnly) THEN
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Cmp InWfcMenu,1
|
||||
Je @TheEnd
|
||||
|
|
@ -375,6 +376,10 @@ BEGIN
|
|||
Int 14h
|
||||
@TheEnd:
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_Flush_Recv'); Halt;
|
||||
{$ENDIF}
|
||||
END
|
||||
ELSE WHILE NOT (Com_IsRecv_Empty) DO
|
||||
WriteWFC(CInKey);
|
||||
|
|
@ -399,6 +404,7 @@ the output buffer (not transmitted yet) is discarded.
|
|||
|
||||
PROCEDURE Com_Purge_Send;
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Cmp LocalIOOnly,1
|
||||
Je @TheEnd
|
||||
|
|
@ -407,6 +413,10 @@ BEGIN
|
|||
Int 14h
|
||||
@TheEnd:
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_Purge_Send'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
|
||||
(*
|
||||
|
|
@ -436,6 +446,7 @@ VAR
|
|||
Dummy: Byte;
|
||||
BEGIN
|
||||
Dummy := 0; (* New *)
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Cmp LocalIOOnly,1
|
||||
Je @TheEnd
|
||||
|
|
@ -445,6 +456,10 @@ BEGIN
|
|||
Mov Dummy,AL
|
||||
@TheEnd:
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_Carrier'); Halt;
|
||||
{$ENDIF}
|
||||
Com_Carrier := (Dummy AND $80) = $80;
|
||||
END;
|
||||
|
||||
|
|
@ -478,6 +493,7 @@ VAR
|
|||
BEGIN
|
||||
Com_Recv := #0;
|
||||
T_RecvChar := FALSE;
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Cmp LocalIOOnly,1
|
||||
Je @TheEnd
|
||||
|
|
@ -493,6 +509,10 @@ BEGIN
|
|||
Mov T_RecvChar,1
|
||||
@TheEnd:
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_Recv'); Halt;
|
||||
{$ENDIF}
|
||||
IF (T_RecvChar) THEN
|
||||
Com_Recv := Char(Dummy);
|
||||
END;
|
||||
|
|
@ -524,6 +544,7 @@ VAR
|
|||
Dummy: Byte;
|
||||
BEGIN
|
||||
Dummy := 0; (* New *)
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Cmp LocalIOOnly,1
|
||||
Je @TheEnd
|
||||
|
|
@ -533,6 +554,10 @@ BEGIN
|
|||
Mov Dummy,AH
|
||||
@TheEnd:
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_IsRecv_Empty'); Halt;
|
||||
{$ENDIF}
|
||||
Com_IsRecv_Empty := NOT ((Dummy AND $01) = $01);
|
||||
END;
|
||||
|
||||
|
|
@ -563,6 +588,7 @@ VAR
|
|||
Dummy: Byte;
|
||||
BEGIN
|
||||
Dummy := 0; (* New *)
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Cmp LocalIOOnly,1
|
||||
Je @TheEnd
|
||||
|
|
@ -572,6 +598,10 @@ BEGIN
|
|||
Mov Dummy,AH
|
||||
@TheEnd:
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_IsSend_Empty'); Halt;
|
||||
{$ENDIF}
|
||||
Com_IsSend_Empty := ((Dummy AND $40) = $40);
|
||||
END;
|
||||
|
||||
|
|
@ -589,6 +619,7 @@ value of 0000h is returned in AX. If the driver accepts the character
|
|||
|
||||
PROCEDURE Com_Send(C: Char);
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Cmp LocalIOOnly,1
|
||||
Je @TheEnd
|
||||
|
|
@ -598,6 +629,10 @@ BEGIN
|
|||
Int 14h
|
||||
@TheEnd:
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_Send'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
|
||||
(*
|
||||
|
|
@ -673,12 +708,17 @@ BEGIN
|
|||
T_AL := 32;
|
||||
END;
|
||||
Inc(T_AL,3);
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Mov AH,00h
|
||||
Mov AL,T_AL
|
||||
Mov DX,FossilPort
|
||||
Int 14h
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_Set_Speed'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
END;
|
||||
|
||||
|
|
@ -696,16 +736,22 @@ PROCEDURE Com_DeInstall;
|
|||
BEGIN
|
||||
IF (NOT LocalIOOnly) THEN
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Mov AH,05h
|
||||
Mov DX,FossilPort
|
||||
Int 14h
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_DeInstall'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
END;
|
||||
|
||||
PROCEDURE Com_Install;
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
FUNCTION DriverInstalled: Word; ASSEMBLER;
|
||||
ASM
|
||||
Mov AH,5
|
||||
|
|
@ -716,6 +762,13 @@ PROCEDURE Com_Install;
|
|||
PushF
|
||||
Call Interrupt14
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
FUNCTION DriverInstalled: Word;
|
||||
BEGIN
|
||||
DriverInstalled := $1954; // Seems to be what it wants
|
||||
END;
|
||||
{$ENDIF}
|
||||
|
||||
BEGIN
|
||||
FossilPort := (Liner.Comport - 1);
|
||||
|
|
@ -728,6 +781,7 @@ BEGIN
|
|||
Halt;
|
||||
END
|
||||
ELSE
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Xor AL,AL
|
||||
Mov BL,Liner.MFlags
|
||||
|
|
@ -744,9 +798,14 @@ BEGIN
|
|||
PushF
|
||||
Call Interrupt14
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Com_Install'); Halt;
|
||||
{$ENDIF}
|
||||
Com_Set_Speed(Liner.InitBaud);
|
||||
END;
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
PROCEDURE CheckHangup; ASSEMBLER;
|
||||
ASM
|
||||
Cmp LocalIOOnly,1
|
||||
|
|
@ -762,6 +821,13 @@ ASM
|
|||
Mov HangUp,1
|
||||
@GetOut:
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
PROCEDURE CheckHangup;
|
||||
BEGIN
|
||||
WriteLn('REETODO COMMON4 CheckHangup'); Halt;
|
||||
END;
|
||||
{$ENDIF}
|
||||
|
||||
(*
|
||||
AH = 19h Write block (transfer from user buffer to FOSSIL)
|
||||
|
|
@ -790,6 +856,7 @@ BEGIN
|
|||
T_DI := OFS(S[1]);
|
||||
T_CX := Length(S);
|
||||
T_ES := Seg(S[1]);
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Mov AH,19h
|
||||
Mov DI,T_DI
|
||||
|
|
@ -799,6 +866,10 @@ BEGIN
|
|||
Int 14h
|
||||
Mov T_AX,AX
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 SerialOut'); Halt;
|
||||
{$ENDIF}
|
||||
Move(S[T_AX + 1],S[1],Length(S) - T_AX);
|
||||
Dec(S[0],T_AX);
|
||||
UNTIL (S = '');
|
||||
|
|
@ -834,12 +905,17 @@ BEGIN
|
|||
Empty := NOT KeyPressed;
|
||||
IF (InCom) AND (NOT KeyPressed) THEN
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Mov DX,FossilPort
|
||||
Mov AH,03h
|
||||
Int 14h
|
||||
Mov T_AH,AH
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 Empty'); Halt;
|
||||
{$ENDIF}
|
||||
Empty := NOT (T_AH AND 1 = 1);
|
||||
END;
|
||||
END;
|
||||
|
|
@ -862,12 +938,17 @@ BEGIN
|
|||
IF (NOT LocalIOOnly) THEN
|
||||
BEGIN
|
||||
T_AL := Byte(Status);
|
||||
{$IFDEF MSDOS}
|
||||
ASM
|
||||
Mov AH,06h
|
||||
Mov DX,FossilPort
|
||||
Mov AL,T_AL
|
||||
Int 14h
|
||||
END;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO COMMON4 DTR'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
END;
|
||||
|
||||
|
|
|
|||
|
|
@ -19,7 +19,11 @@ IMPLEMENTATION
|
|||
USES
|
||||
Dos,
|
||||
Common,
|
||||
TimeFunc;
|
||||
TimeFunc
|
||||
{$IFDEF WIN32}
|
||||
,Windows
|
||||
{$ENDIF}
|
||||
;
|
||||
|
||||
FUNCTION InTime(Tim,Tim1,Tim2: LongInt): Boolean;
|
||||
BEGIN
|
||||
|
|
@ -226,11 +230,19 @@ END;
|
|||
|
||||
FUNCTION SysOpAvailable: Boolean;
|
||||
VAR
|
||||
{$IFDEF MSDOS}
|
||||
A: Byte ABSOLUTE $0000:$0417;
|
||||
{$ENDIF}
|
||||
EventNum: Integer;
|
||||
ChatOk: Boolean;
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
ChatOk := ((A AND 16) = 0);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
// Availability is togged with scroll lock key
|
||||
ChatOk := (GetKeyState($91) and $ffff) <> 0;
|
||||
{$ENDIF}
|
||||
|
||||
IF (RChat IN ThisUser.Flags) THEN
|
||||
ChatOk := FALSE;
|
||||
|
|
|
|||
|
|
@ -43,10 +43,12 @@ VAR
|
|||
SaveY: Byte;
|
||||
SavCurWind: Integer;
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
{$L EXECWIN}
|
||||
|
||||
PROCEDURE SetCsInts; EXTERNAL;
|
||||
PROCEDURE NewInt21; EXTERNAL;
|
||||
{$ENDIF}
|
||||
|
||||
PROCEDURE ExecWindow(VAR Ok: Boolean;
|
||||
CONST Dir,
|
||||
|
|
@ -83,6 +85,7 @@ BEGIN
|
|||
WindLo := WindMin;
|
||||
WindHi := WindMax;
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
{Assure cursor is in Window}
|
||||
INLINE
|
||||
(
|
||||
|
|
@ -119,6 +122,7 @@ BEGIN
|
|||
GetIntVec($21,CurInt21);
|
||||
SetCsInts;
|
||||
SetIntVec($21,@NewInt21);
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF Ver70}
|
||||
{Prevent SwapVectors from undoing our int21 change}
|
||||
|
|
@ -136,8 +140,10 @@ BEGIN
|
|||
Window(1,1,MaxDisplayCols,MaxDisplayRows);
|
||||
RemoveWindow(Wind);
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
{Restore interrupt}
|
||||
SetIntVec($21,CurInt21);
|
||||
{$ENDIF}
|
||||
General.CurWindow := SaveCurWindow;
|
||||
General.WindowOn := SaveWindowOn;
|
||||
LastScreenSwap := (Timer - 5);
|
||||
|
|
|
|||
|
|
@ -74,6 +74,7 @@ BEGIN
|
|||
Delay(600)
|
||||
ELSE
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
FOR Counter1 := 300 DOWNTO 2 DO
|
||||
BEGIN
|
||||
Delay(1);
|
||||
|
|
@ -84,8 +85,12 @@ BEGIN
|
|||
Delay(1);
|
||||
Sound(Counter1 * 10);
|
||||
END;
|
||||
NoSound;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO LINECHAT RequestSysOpChat'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
NoSound;
|
||||
IF (KeyPressed) THEN
|
||||
BEGIN
|
||||
Cmd := ReadKey;
|
||||
|
|
@ -364,6 +369,7 @@ BEGIN
|
|||
CLS
|
||||
ELSE IF (S = '/PAGE') THEN
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
FOR Counter := 650 TO 700 DO
|
||||
BEGIN
|
||||
Sound(Counter);
|
||||
|
|
@ -376,6 +382,10 @@ BEGIN
|
|||
Delay(2);
|
||||
NoSound;
|
||||
UNTIL (Counter = 200);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO LINECHAT SysOpLineChat'); Halt;
|
||||
{$ENDIF}
|
||||
Prompt(^G^G);
|
||||
END
|
||||
ELSE IF (S = '/BYE') THEN
|
||||
|
|
|
|||
|
|
@ -1223,7 +1223,7 @@ VAR
|
|||
Insert_Char(Char(GKey));
|
||||
127 :
|
||||
Delete_Char;
|
||||
32..254 :
|
||||
32..46, 48..126, 128..254 :
|
||||
Insert_Char(Char(GKey));
|
||||
8 : BEGIN
|
||||
IF (CCol = 1) THEN
|
||||
|
|
|
|||
|
|
@ -28,8 +28,13 @@ CONST
|
|||
|
||||
VAR
|
||||
Wind: WindowRec;
|
||||
{$IFDEF MSDOS}
|
||||
MonitorType: Byte ABSOLUTE $0000:$0449;
|
||||
ScreenAddr: ScreenType ABSOLUTE $B800:$0000;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
MonitorType: Byte = 3; // REENOTE 3=CO80, a safe assumption I think
|
||||
{$ENDIF}
|
||||
ScreenSize: Integer;
|
||||
MaxDisplayRows,
|
||||
MaxDisplayCols,
|
||||
|
|
@ -529,12 +534,22 @@ END;
|
|||
|
||||
PROCEDURE SaveScreen(VAR Wind: WindowRec);
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Move(ScreenAddr[0],Wind[0],ScreenSize);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO MYIO SaveScreen'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
|
||||
PROCEDURE RemoveWindow(VAR Wind: WindowRec);
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Move(Wind[0],ScreenAddr[0],ScreenSize);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO MYIO RemoveWindow'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
|
||||
PROCEDURE SetWindow(VAR Wind: WindowRec; TLX,TLY,BRX,BRY,TColr,BColr,BoxType:Integer);
|
||||
|
|
@ -549,6 +564,7 @@ END;
|
|||
|
||||
PROCEDURE Update_Logo(VAR Addr1,Addr2; BlkLen: Integer);
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
INLINE (
|
||||
$1E/
|
||||
$C5/$B6/ADDR1/
|
||||
|
|
@ -603,6 +619,10 @@ BEGIN
|
|||
$49/
|
||||
$E0/$AA/
|
||||
$1F);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO MYIO Update_Logo'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
|
||||
END.
|
||||
|
|
|
|||
|
|
@ -2,7 +2,9 @@
|
|||
{$I DEFINES.INC}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
{$M 35500,0,131072}
|
||||
{$ENDIF}
|
||||
|
||||
{ R E N E G A D E }
|
||||
{ =============== }
|
||||
|
|
@ -230,7 +232,9 @@ END;
|
|||
BEGIN
|
||||
ClrScr;
|
||||
TextColor(Yellow);
|
||||
{$IFDEF MSDOS}
|
||||
GetIntVec($14,Interrupt14);
|
||||
{$ENDIF}
|
||||
FileMode := 66;
|
||||
ExitSave := ExitProc;
|
||||
ExitProc := @ErrorHandle;
|
||||
|
|
@ -266,6 +270,7 @@ BEGIN
|
|||
|
||||
ReadP;
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
OvrFileMode := 0;
|
||||
Write('Initializing RENEGADE.OVR ... ');
|
||||
OvrInit('RENEGADE.OVR');
|
||||
|
|
@ -316,6 +321,7 @@ BEGIN
|
|||
END;
|
||||
END;
|
||||
WriteLn('Initial size of the overlay buffer is '+FormatNumber(OvrGetBuf)+' bytes.');
|
||||
{$ENDIF}
|
||||
|
||||
Init;
|
||||
|
||||
|
|
|
|||
|
|
@ -36,11 +36,24 @@ FUNCTION Spawn(ProgName: STRING; Arguments: STRING; EnvSeg: Integer): Integer;
|
|||
|
||||
IMPLEMENTATION
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
{$L SPAWNTP.OBJ}
|
||||
|
||||
PROCEDURE Init_Spawno(Swap_Dirs: STRING; Swap_Types: Integer; Min_Res: Integer; Res_Stack: Integer); EXTERNAL;
|
||||
|
||||
FUNCTION Spawn(ProgName: STRING; Arguments: STRING; EnvSeg: Integer): Integer; EXTERNAL;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
PROCEDURE Init_Spawno(Swap_Dirs: STRING; Swap_Types: Integer; Min_Res: Integer; Res_Stack: Integer);
|
||||
BEGIN
|
||||
WriteLn('REETODO SPAWNO Init_Spawno'); Halt;
|
||||
END;
|
||||
|
||||
FUNCTION Spawn(ProgName: STRING; Arguments: STRING; EnvSeg: Integer): Integer;
|
||||
BEGIN
|
||||
WriteLn('REETODO SPAWNO Spawn'); Halt;
|
||||
END;
|
||||
{$ENDIF}
|
||||
|
||||
END.
|
||||
|
||||
|
|
|
|||
|
|
@ -82,10 +82,11 @@ BEGIN
|
|||
lRGLngStr(15,FALSE);
|
||||
IF (OutCom) THEN
|
||||
Com_Send(^G);
|
||||
IF (ShutUpChatCall) THEN
|
||||
IF (ShutUpChatCall) THEN
|
||||
Delay(600)
|
||||
ELSE
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
FOR Counter1 := 300 DOWNTO 2 DO
|
||||
BEGIN
|
||||
Delay(1);
|
||||
|
|
@ -96,8 +97,12 @@ BEGIN
|
|||
Delay(1);
|
||||
Sound(Counter1 * 10);
|
||||
END;
|
||||
NoSound;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO SPLITCHA RequestSysOpChat'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
NoSound;
|
||||
IF (KeyPressed) THEN
|
||||
BEGIN
|
||||
Cmd := ReadKey;
|
||||
|
|
|
|||
|
|
@ -223,7 +223,12 @@ VAR
|
|||
END;
|
||||
|
||||
BEGIN
|
||||
{$IFDEF MSDOS}
|
||||
Mark(TopHeap);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
// REETODO Prepare to leak memory...
|
||||
{$ENDIF}
|
||||
Used := NIL;
|
||||
Top := NIL;
|
||||
Bottom := NIL;
|
||||
|
|
@ -396,7 +401,12 @@ BEGIN
|
|||
Cur := NIL;
|
||||
Top := NIL;
|
||||
Bottom := NIL;
|
||||
{$IFDEF MSDOS}
|
||||
Release(TopHeap);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
// REETODO Likely going to leak memory right about now
|
||||
{$ENDIF}
|
||||
END;
|
||||
'D' : BEGIN
|
||||
I := StrToInt(Copy(S,2,9));
|
||||
|
|
@ -540,7 +550,12 @@ BEGIN
|
|||
UNTIL ((Done) OR (HangUp));
|
||||
END;
|
||||
END;
|
||||
{$IFDEF MSDOS}
|
||||
Release(TopHeap);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
// REETODO Likely going to leak memory right about now
|
||||
{$ENDIF}
|
||||
PrintingFile := FALSE;
|
||||
LastError := IOResult;
|
||||
END;
|
||||
|
|
|
|||
|
|
@ -309,7 +309,12 @@ BEGIN
|
|||
Com_Send_Str(Liner.Answer);
|
||||
|
||||
IF (SysOpOn) THEN
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(ANSWER,ScreenAddr[(3*2)+(19*160)-162],ANSWER_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO WFCMENU GetConnection'); Halt;
|
||||
{$ENDIF}
|
||||
|
||||
rl := 0;
|
||||
SaveTimer := Timer;
|
||||
|
|
@ -416,10 +421,19 @@ BEGIN
|
|||
IF (SysOpOn) THEN
|
||||
BEGIN
|
||||
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(WFC,ScreenAddr[0],WFC_LENGTH);
|
||||
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO WFCMENU WFCDraw1'); Halt;
|
||||
{$ENDIF}
|
||||
IF (General.NetworkMode) THEN
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(WFCNET,ScreenAddr[(3*2)+(19*160)-162],WFCNET_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO WFCMENU WFCDraw2'); Halt;
|
||||
{$ENDIF}
|
||||
|
||||
LoadURec(ThisUser,1);
|
||||
|
||||
|
|
@ -589,7 +603,12 @@ BEGIN
|
|||
END;
|
||||
END
|
||||
ELSE
|
||||
{$IFDEF MSDOS}
|
||||
Update_Logo(WFC0,ScreenAddr[0],WFC0_LENGTH);
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO WFCMENU WFCDraw3'); Halt;
|
||||
{$ENDIF}
|
||||
END;
|
||||
END;
|
||||
|
||||
|
|
@ -714,6 +733,7 @@ VAR
|
|||
BeepEnd := FALSE;
|
||||
rl := Timer;
|
||||
REPEAT
|
||||
{$IFDEF MSDOS}
|
||||
Sound(1500);
|
||||
Delay(20);
|
||||
Sound(1000);
|
||||
|
|
@ -721,6 +741,10 @@ VAR
|
|||
Sound(800);
|
||||
Delay(20);
|
||||
NoSound;
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
WriteLn('REETODO WFCMENU BeepHim'); Halt;
|
||||
{$ENDIF}
|
||||
rl1 := Timer;
|
||||
WHILE (ABS(rl1 - Timer) < 0.9) AND (NOT KeyPressed) DO;
|
||||
UNTIL (ABS(rl - Timer) > 30) OR (KeyPressed);
|
||||
|
|
|
|||
Loading…
Reference in New Issue