@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.

tasm32 -t -q -ml %MASM% main.asm >>asmerr.
tasm32 -t -q -ml %MASM% alias.asm >>asmerr.
tasm32 -t -q -ml %MASM% char.asm >>asmerr.
tasm32 -t -q -ml %MASM% core.asm >>asmerr.
tasm32 -t -q -ml %MASM% disp.asm >>asmerr.
tasm32 -t -q -ml %MASM% dos.asm >>asmerr.
tasm32 -t -q -ml %MASM% expr.asm >>asmerr.
tasm32 -t -q -ml %MASM% filer.asm >>asmerr.
tasm32 -t -q -ml %MASM% filer2.asm >>asmerr.
tasm32 -t -q -ml %MASM% gets.asm >>asmerr.
tasm32 -t -q -ml %MASM% harderr.asm >>asmerr.
tasm32 -t -q -ml %MASM% inst.asm >>asmerr.
tasm32 -t -q -ml %MASM% key.asm >>asmerr.
tasm32 -t -q -ml %MASM% ledit.asm >>asmerr.
tasm32 -t -q -ml %MASM% macro.asm >>asmerr.
tasm32 -t -q -ml %MASM% memo.asm >>asmerr.
tasm32 -t -q -ml %MASM% menu.asm >>asmerr.
tasm32 -t -q -ml %MASM% misc.asm >>asmerr.
tasm32 -t -q -ml %MASM% open.asm >>asmerr.
tasm32 -t -q -ml %MASM% printf.asm >>asmerr.
tasm32 -t -q -ml -jJUMPS %MASM% scrn.asm >>asmerr.
tasm32 -t -q -ml %MASM% smooth.asm >>asmerr.
tasm32 -t -q -ml %MASM% string.asm >>asmerr.
tasm32 -t -q -ml %MASM% text.asm >>asmerr.
tasm32 -t -q -ml %MASM% view.asm >>asmerr.
tasm32 -t -q -ml %MASM% wind.asm >>asmerr.
tasm32 -t -q -ml %MASM% xscr.asm >>asmerr.
tasm32 -t -q -ml %MASM% swap.asm >>asmerr.
tasm32 -t -q -ml %MASM% ems.asm >>asmerr.
tasm32 -t -q -ml %MASM% msg.asm >>asmerr.

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=