@echo off
rem	-------	Make vz???.com -------
rem	usage: mk [98,IBMJ]

if exist dummy goto init
type nul >dummy

:init
if "%1" == "" goto init2
if not "%1" == "98" goto init2
set HARD=
set MASM=/DPC%1
goto mk_vz

:init2
rem --- Default Machine set
set HARD=IBMJ
set MASM=/DIBMJ
rem set HARD=
rem set MASM=/DPC98

:mk_vz
if exist asmerr. del asmerr.

jwasm -q -Zm -omf -Cp -c %MASM% main.asm
jwasm -q -Zm -omf -Cp -c %MASM% alias.asm
jwasm -q -Zm -omf -Cp -c %MASM% char.asm
jwasm -q -Zm -omf -Cp -c %MASM% core.asm
jwasm -q -Zm -omf -Cp -c %MASM% disp.asm
jwasm -q -Zm -omf -Cp -c %MASM% dos.asm
jwasm -q -Zm -omf -Cp -c %MASM% expr.asm
jwasm -q -Zm -omf -Cp -c %MASM% filer.asm
jwasm -q -Zm -omf -Cp -c %MASM% filer2.asm
jwasm -q -Zm -omf -Cp -c %MASM% gets.asm
jwasm -q -Zm -omf -Cp -c %MASM% harderr.asm
jwasm -q -Zm -omf -Cp -c %MASM% inst.asm
jwasm -q -Zm -omf -Cp -c %MASM% key.asm
jwasm -q -Zm -omf -Cp -c %MASM% ledit.asm
jwasm -q -Zm -omf -Cp -c %MASM% macro.asm
jwasm -q -Zm -omf -Cp -c %MASM% memo.asm
jwasm -q -Zm -omf -Cp -c %MASM% menu.asm
jwasm -q -Zm -omf -Cp -c %MASM% misc.asm
jwasm -q -Zm -omf -Cp -c %MASM% open.asm
jwasm -q -Zm -omf -Cp -c %MASM% printf.asm
jwasm -q -Zm -omf -Cp -c %MASM% scrn.asm
jwasm -q -Zm -omf -Cp -c %MASM% smooth.asm
jwasm -q -Zm -omf -Cp -c %MASM% string.asm
jwasm -q -Zm -omf -Cp -c %MASM% text.asm
jwasm -q -Zm -omf -Cp -c %MASM% view.asm
jwasm -q -Zm -omf -Cp -c %MASM% wind.asm
jwasm -q -Zm -omf -Cp -c %MASM% xscr.asm
jwasm -q -Zm -omf -Cp -c %MASM% swap.asm
jwasm -q -Zm -omf -Cp -c %MASM% ems.asm
jwasm -q -Zm -omf -Cp -c %MASM% msg.asm

link /m /noi @vz.lnk,vz%HARD%;
exe2com vz%HARD%.exe vz%HARD%.com

rem --- comが出来たら以下のファイルを削除する
if exist vz%HARD%.com del vz%HARD%.exe
if exist vz%HARD%.com del *.obj
if exist vz%HARD%.com del asmerr.

if exist vz%HARD%.sym del vz%HARD%.sym
dir vz%HARD%.com

set HARD=
set MASM=