/ DosDev: supported calling Turbo C under Win64.

.gitignore

@@ -1,6 +1,6 @@
 Bin/graphviz/
 Bin/proguard/
-DosDev/Obj/*.OBJ
+DosDev/Obj/*.obj
 DosDev2/
 DroNDK/
 DroSDK/

DosDev/Bin/bu.bat

@@ -0,0 +1,13 @@
+@ECHO OFF
+CLS
+CD Obj
+SET PATH=..\BIN\TC201\BIN
+SET Lib=..\Lib
+SET Mod=%%Mod%%
+tcc.exe -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -I..\LIB\C -L..\BIN\TC201\LIB -IOBJ -I%Lib% %Lib%\DOSDEV.LIB %Mod%.c
+IF errorlevel 1 PAUSE
+IF EXIST %Mod%.exe MOVE %Mod%.exe ..\%Mod%.exe
+CLS
+..\%Mod%.exe
+PAUSE
+EXIT

DosDev/Bin/build.bat

@@ -1,17 +1,18 @@
-@FOR /F "tokens=*" %%f IN (..\Bin\config.cfg) DO %%f
-@SET PATH=..\BIN\TC201\BIN
-@SET Lib=..\Lib
-@SET This=%CD:~-3%
-@SET DOSBoxOpt=%DOSBoxOpt:~1,-1%
-
-IF /%DOSBox%==/  GOTO :nodosbox
-%DOSBox% %DOSBoxOpt% -c "mount c .."  -c "c:"  -c "cd %This%" -c "path %PATH%" -c "tcc -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -L..\BIN\TC201\LIB -IOBJ -I%Lib% %Lib%\DOSDEV.LIB %1.c" -c "@IF errorlevel 1 PAUSE" -c "@IF EXIST %1.exe REN %1.exe ..\%1.exe" -c "CLS" -c "@..\%1.exe" -c PAUSE -c EXIT
-@EXIT
-
-:nodosbox
-tcc -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -L..\BIN\TC201\LIB -IOBJ -I%Lib% %Lib%\DOSDEV.LIB %1.c
-@IF errorlevel 1 PAUSE
-@IF EXIST %1.exe MOVE %1.exe ..
-@CLS
-@..\%1.exe
-@PAUSE
+@ECHO OFF
+IF EXIST "%ProgramFiles(x86)%" GOTO vDos
+
+SET PATH=..\BIN\TC201\BIN
+SET Lib=..\Lib
+tcc.exe -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -L..\BIN\TC201\LIB -IOBJ -I%Lib% %Lib%\DOSDEV.LIB %1.c
+IF errorlevel 1 PAUSE
+IF EXIST %1.exe MOVE %1.exe ..
+CLS
+..\%1.exe
+PAUSE
+EXIT
+
+:vDos
+
+CD ..
+SET Mod=%1
+START vDosPlus.exe /set frame=on;window=50;autoexec=Bin\bu.bat

DosDev/Bin/cc.bat

@@ -0,0 +1,9 @@
+@ECHO OFF
+CLS
+CD Obj
+SET PATH=..\BIN\TC201\BIN
+SET Lib=..\Lib
+SET Mod=%%Mod%%
+tcc.exe -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -I..\LIB\C -IOBJ -L..\BIN\TC201\LIB -I%Lib% -c %Mod%.c
+IF errorlevel 1 PAUSE
+EXIT

DosDev/Bin/compile.bat

@@ -1,13 +1,14 @@
-@FOR /F "tokens=*" %%f IN (..\Bin\config.cfg) DO %%f
-@SET PATH=..\BIN\TC201\BIN
-@SET Lib=..\Lib
-@SET This=%CD:~-3%
-@SET DOSBoxOpt=%DOSBoxOpt:~1,-1%
-
-IF /%DOSBox%==/ GOTO :nodosbox
-%DOSBox% %DOSBoxOpt% -c "mount c .." -c "c:" -c "cd %This%" -c "path %PATH%" -c "tcc -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -IOBJ -L..\BIN\TC201\LIB -I%Lib% -c %1.c" -c "@IF errorlevel 1 PAUSE" -c EXIT
-@EXIT
-
-:nodosbox
-tcc -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -IOBJ -L..\BIN\TC201\LIB -I%Lib% -c %1.c
-@IF errorlevel 1 PAUSE
+@ECHO OFF
+IF EXIST "%ProgramFiles(x86)%" GOTO vDos
+
+SET PATH=..\BIN\TC201\BIN
+SET Lib=..\Lib
+tcc.exe -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -IOBJ -L..\BIN\TC201\LIB -I%Lib% -c %1.c
+@IF errorlevel 1 PAUSE
+EXIT
+
+:vDos
+
+CD ..
+SET Mod=%1
+START vDosPlus.exe /set frame=on;window=50;autoexec=Bin\cc.bat

DosDev/Docu/1.txt

@@ -0,0 +1,12 @@
+����������� �������
+
+����������� ������������, ��������� ������ (� ������������ ���������)
+����� ������ � ����� ������, ��������� � ��������
+
+PutSpr (x, y: INTEGER; spr: Sprite)
+
+������ �������
+
+������ (� ��������)
+������ (� ��������)
+������ �������

DosDev/Docu/ReadMe.txt

@@ -0,0 +1,5 @@
+To launch Turbo C under Win64, just install vDosPlus - www.vdosplus.org
+
+http://vdosplus.org/files/vDosPlus-201708-Ed2018.zip
+
+Add a path to the installed vDosPlus to system variable Path

DosDev/Lib/Bin/bu.bat

@@ -0,0 +1,8 @@
+@ECHO OFF
+CLS
+CD Lib\Obj
+SET PATH=..\..\BIN\TC201\BIN
+SET Mod=%%Mod%%
+tcc.exe -1 -O -d -f87 -Z -I..\..\BIN\TC201\INCLUDE -I..\C -I.. -L..\..\BIN\TC201\LIB -c %Mod%
+IF errorlevel 1 PAUSE
+EXIT

DosDev/Lib/Bin/build.bat

@@ -1,22 +1,13 @@
-@CD ..
-@SET path=..\BIN\TC201\BIN
-@SET RootBin=..\..\Bin
-@IF EXIST %1.lib DEL %1.lib
+@ECHO OFF
+CD ..\..
+SET PATH=..\BIN\TC201\BIN
+SET RootBin=..\..\Bin
+IF EXIST %1.lib DEL %1.lib
 %RootBin%\smartlib %1.c %1
-@FOR %%i IN (%1???.c) DO (
-  tcc -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -IOBJ -L..\BIN\TC201\LIB -c %%i
-  @IF errorlevel 1 PAUSE
+FOR %%i IN (%1???.c) DO (
+  SET Mod=%%i
+  START vDosPlus.exe /set frame=on;window=50;autoexec=Lib\Bin\bu.bat
 )
-@FOR %%i IN (%1???.o) DO TLIB /C %1 +%%i
-@PAUSE
-@Bin\clear
-
-
-
-
-
-
-
-
-
-
+FOR %%i IN (%1???.o) DO TLIB /C %1 +%%i
+PAUSE
+Bin\clear.bat

DosDev/Lib/Bin/buildxdv.bat

@@ -1,11 +1,30 @@
-@CD ..
-@SET path=..\BIN\TC201\BIN
-@SET RootBin=..\..\Bin
-%RootBin%\smartlib %1.c %2
-@FOR %%i IN (%2???.c) DO (
-  tcc -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -IOBJ -L..\BIN\TC201\LIB -c %%i
-  @IF errorlevel 1 PAUSE
+@ECHO OFF
+SET SmartLib=..\..\..\Bin\smartlib.exe
+IF EXIST ..\C\%1.c GOTO c_lib
+
+:o_lib
+
+%SmartLib% %1.c %2
+GOTO compile
+
+:c_lib
+
+IF EXIST ..\Obj\%1.oh DEL %1.oh
+IF EXIST ..\Obj\%1.c DEL %1.c
+%SmartLib% ..\C\%1.c %2
+
+:compile
+
+FOR %%i IN (%2???.c) DO (
+  SET Mod=%%i
+  CD ..\..
+  vDosPlus.exe /set frame=on;window=50;autoexec=Lib\Bin\bu.bat
+  CD Lib\Obj
 )
-@FOR %%i IN (%2???.OBJ) DO TLIB /C dosdev +%%i
-@CALL Bin\clear
-@CD OBJ
+FOR %%i IN (%2???.OBJ) DO (
+  SET Mod=%%i
+  CD ..\..
+  vDosPlus.exe /set frame=on;window=50;autoexec=Lib\Bin\lib.bat
+  CD Lib\Obj
+)
+..\Bin\clear.bat

DosDev/Lib/Bin/cc.bat

@@ -0,0 +1,22 @@
+@ECHO OFF
+CLS
+CD Lib\Obj
+SET PATH=..\..\BIN\TC201\BIN
+SET Mod=%%Mod%%
+
+IF EXIST ..\C\%Mod%.c GOTO c_lib
+
+:o_lib_obj
+
+tcc.exe -1 -O -d -f87 -Z -I..\..\BIN\TC201\INCLUDE -L..\..\BIN\TC201\LIB -I.. -c %Mod%.c
+GOTO exit
+
+:c_lib
+
+IF EXIST ..\C\%Mod%.oh DEL %Mod%.oh >NUL
+IF EXIST ..\C\%Mod%.c DEL %Mod%.c >NUL
+tcc.exe -1 -O -d -f87 -Z -I..\..\BIN\TC201\INCLUDE -I..\C -L..\..\BIN\TC201\LIB -I.. -c ..\C\%Mod%.c
+
+:exit
+IF errorlevel 1 PAUSE
+EXIT

DosDev/Lib/Bin/clear.bat

@@ -1,3 +1,2 @@
-@DEL *.OBJ
-@DEL *_0??.c
-@DEL *.sbm
+@DEL *.OBJ >NUL
+@DEL *_0??.c >NUL

DosDev/Lib/Bin/compile.bat

@@ -1,4 +1,13 @@
-@CD ..
-@SET path=..\BIN\TC201\BIN
-tcc -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -IOBJ -L..\BIN\TC201\LIB -c %1.c
-@IF errorlevel 1 PAUSE
+@ECHO OFF
+IF EXIST "%ProgramFiles(x86)%" GOTO vDos
+
+SET PATH=..\BIN\TC201\BIN
+tcc.exe -1 -O -d -f87 -Z -I..\BIN\TC201\INCLUDE -IOBJ -L..\BIN\TC201\LIB -c %1.c
+IF errorlevel 1 PAUSE
+EXIT
+
+:vDos
+
+CD ..\..
+SET Mod=%1
+START vDosPlus.exe /set frame=on;window=50;autoexec=Lib\Bin\cc.bat

DosDev/Lib/Bin/lib.bat

@@ -0,0 +1,6 @@
+@ECHO OFF
+CD Lib\Obj
+SET PATH=..\..\BIN\TC201\BIN
+SET Mod=%%Mod%%
+TLIB.exe /C ..\DOSDEV +%Mod%
+EXIT

DosDev/Lib/C/CmdLine.c

@@ -1,6 +1,5 @@
-/*  Ofront 1.2 -xtspkae */
-#include "SYSTEM.h"
-#include "CmdLine.h"
+#include "SYSTEM.oh"
+#include "CmdLine.oh"
 
 typedef
 	CHAR (*CmdLine_ArgPtr)[128];
@@ -11,21 +10,21 @@ typedef
 /*typedef
 	CHAR CmdLine_String[128];*/
 
-export void CmdLine_GetParam (INTEGER n, CHAR *param, LONGINT param__len);
+export void CmdLine_GetParam (SHORTINT n, CHAR *param, SHORTINT param__len);
 
 /*================================== Header ==================================*/
-export INTEGER CmdLine_paramCount;
+export SHORTINT CmdLine_paramCount;
 
 /*--------------------------------- Cut here ---------------------------------*/
 #define CmdLine_argc()	SYSTEM_argc
 #define CmdLine_argv()	(long)SYSTEM_argv
 
-void CmdLine_GetParam (INTEGER n, CHAR *param, LONGINT param__len)
+void CmdLine_GetParam (SHORTINT n, CHAR *param, SHORTINT param__len)
 {
 	CmdLine_ArgVec av = NIL;
 	if (n <= CmdLine_paramCount) {
 		av = (CmdLine_ArgVec)CmdLine_argv();
-		__COPY(*(*av)[__X(n, 128)], param, param__len);
+		__COPY(*(*av)[n], param, param__len);
 	} else {
 		__COPY("", param, param__len);
 	}

DosDev/Lib/C/CmdLine.oh

@@ -0,0 +1,17 @@
+#ifndef CmdLine__oh
+#define CmdLine__oh
+
+#include "SYSTEM.oh"
+
+typedef
+	CHAR CmdLine_String[128];
+
+
+import SHORTINT CmdLine_paramCount;
+
+
+import void CmdLine_GetParam (SHORTINT n, CHAR *param, SHORTINT param__len);
+#define CmdLine__init() { CmdLine_paramCount = SYSTEM_argc - 1; }
+
+
+#endif