@echo off
REM *****************************************************************
REM *                                                               *
REM * File: PASM.BAT (for Borlandc products                         *
REM *                                                               *
REM * Description:                                                  *
REM * Driver for assembling PROT programs                           *
REM *                                                               *
REM * Requires DOS 3.3 for higher                                   *
REM *                                                               *
REM *****************************************************************

if %1.==. goto help
if exist !!PROT.LNK erase !!PROT.LNK
SET PROTERR=
if %1.==. goto linkit
if EXIST %1.asm goto asmit
echo %1.ASM does not exit
goto err
:asmit
call _PASM %1 PASSWORD
if NOT %PROTERR%.==. goto err
shift
REM goto top
:linkit
REM Make sure PROT files are up to date

REM **************************************************************
REM Use one and only one MAKE line
REM This one is for microsoft
rem make /s prot.mak
rem This one is for Microsoft NAMKE
rem nmake /s /f prot.mak prot
rem This one is for Borlandc
make -s -f prot.mak prot
if errorlevel 1 goto err

echo prot code16 int386 tss gdt stacks /3;>>!!PROT.LNK
rem ****************************************************************
REM Use one link line
REM for Microsoft
rem link @!!PROT.LNK
REM for Borland
tlink @!!PROT.LNK

if ERRORLEVEL 1 goto err
goto end
:help
echo PASM - An assembly driver for the prot 386 DOS extender
echo usage: PASM progname
echo        Assembles the file(s) progname.asm into proname.exe
echo        The PROT system is copyright (C),1989,1990
echo        by Ai Williams. Please see the file "PROT.ASM" for
echo        more details.
:err
ECHO Assembly failed
:end
if exist !!PROT.LNK erase !!PROT.LNK
set PROTERR=