Skip to content

Commit

Permalink
Add help to fparts.bat and change .mlc to uppercase in various .bat f…
Browse files Browse the repository at this point in the history
…iles
  • Loading branch information
abekornelis committed Nov 26, 2024
1 parent 034fc5e commit bce36b2
Show file tree
Hide file tree
Showing 8 changed files with 28 additions and 26 deletions.
8 changes: 4 additions & 4 deletions bat/ASM.BAT
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
@if /I "%1" == "tron" (echo on) else (echo off)
rem asm run macro assembly to generate relocatable obj from mlc source
rem asm run macro assembly to generate relocatable obj from MLC source

setlocal
if /I "%1" == "tron" (set z_TraceMode=tron
Expand All @@ -11,7 +11,7 @@ if /I "%1" == "tron" (set z_TraceMode=tron
set /A z_NestLevel=%z_NestLevel%+1
rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9

if /I %1. == . (set /P z_file=Hit Enter for help or supply name of mlc file to assemble:
if /I %1. == . (set /P z_file=Hit Enter for help or supply name of MLC file to assemble:
) else (set z_file=%1)
if /I %z_file%. == . goto help
:chkfile
Expand All @@ -22,8 +22,8 @@ set z_file=%z_fdrv%%z_fpath%%z_fname%
if exist %z_file%%z_fext% goto file_ok
rem if extension specified: error because no default applies
if /I %z_fext%. NEQ . goto notfound
rem try with default extension of mlc
set z_fext=.mlc
rem try with default extension of MLC
set z_fext=.MLC
if exist %z_file%%z_fext% goto file_ok
:notfound
echo Error: Source file %z_file%%z_fext% does not exist
Expand Down
10 changes: 5 additions & 5 deletions bat/ASML.BAT
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
@if /I "%1" == "tron" (echo on) else (echo off)
rem asml assemble and link to generate load module 390 from mlc
rem asml assemble and link to generate load module 390 from MLC

setlocal
if /I "%1" == "tron" (set z_TraceMode=tron
Expand All @@ -11,7 +11,7 @@ if /I "%1" == "tron" (set z_TraceMode=tron
set /A z_NestLevel=%z_NestLevel%+1
rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9

if /I %1. == . (set /P z_file=Hit Enter for help or supply name of mlc file to assemble and link:
if /I %1. == . (set /P z_file=Hit Enter for help or supply name of MLC file to assemble and link:
) else (set z_file=%1)
if /I %z_file%. == . goto help
:chkfile
Expand All @@ -22,8 +22,8 @@ set z_file=%z_fdrv%%z_fpath%%z_fname%
if exist %z_file%%z_fext% goto file_ok
rem if extension specified: error because no default applies
if /I %z_fext%. NEQ . goto notfound
rem try with default extension of mlc
set z_fext=.mlc
rem try with default extension of MLC
set z_fext=.MLC
if exist %z_file%%z_fext% goto file_ok
:notfound
echo Error: Source file %z_file%%z_fext% does not exist
Expand Down Expand Up @@ -66,7 +66,7 @@ echo the ASML.BAT procedure is intended to assemble and link a single assembler
echo .
:retry
set z_file=
set /P z_file=Hit Enter for more help or supply name of mlc file to assemble and link:
set /P z_file=Hit Enter for more help or supply name of MLC file to assemble and link:
if /I %z_file%. NEQ . goto chkfile

call %~dps0help %z_TraceMode%
Expand Down
10 changes: 5 additions & 5 deletions bat/ASMLG.BAT
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
@if /I "%1" == "tron" (echo on) else (echo off)
rem asmlg assemble, link, and go from mlc to 390 execution
rem asmlg assemble, link, and go from MLC to 390 execution

setlocal
if /I "%1" == "tron" (set z_TraceMode=tron
Expand All @@ -11,7 +11,7 @@ if /I "%1" == "tron" (set z_TraceMode=tron
set /A z_NestLevel=%z_NestLevel%+1
rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9

if /I %1. == . (set /P z_file=Hit Enter for help or supply name of mlc file to assemble, link, and execute:
if /I %1. == . (set /P z_file=Hit Enter for help or supply name of MLC file to assemble, link, and execute:
) else (set z_file=%1)
if /I %z_file%. == . goto help
:chkfile
Expand All @@ -22,8 +22,8 @@ set z_file=%z_fdrv%%z_fpath%%z_fname%
if exist %z_file%%z_fext% goto file_ok
rem if extension specified: error because no default applies
if /I %z_fext%. NEQ . goto notfound
rem try with default extension of mlc
set z_fext=.mlc
rem try with default extension of MLC
set z_fext=.MLC
if exist %z_file%%z_fext% goto file_ok
:notfound
echo Error: Source file %z_file%%z_fext% does not exist
Expand Down Expand Up @@ -70,7 +70,7 @@ echo the ASMLG.BAT procedure is intended to assemble, link, and execute a single
echo .
:retry
set z_file=
set /P z_file=Hit Enter for more help or supply name of mlc file to assemble, link, and execute:
set /P z_file=Hit Enter for more help or supply name of MLC file to assemble, link, and execute:
if /I %z_file%. NEQ . goto chkfile

call %~dps0help %z_TraceMode%
Expand Down
8 changes: 4 additions & 4 deletions bat/ASSIST.BAT
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ if /I "%1" == "tron" (set z_TraceMode=tron
set /A z_NestLevel=%z_NestLevel%+1
rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9

if /I %1. == . (set /P z_file=Hit Enter for help or supply name of mlc file to assemble, link, and execute:
if /I %1. == . (set /P z_file=Hit Enter for help or supply name of MLC file to assemble, link, and execute:
) else (set z_file=%1)
if /I %z_file%. == . goto help
:chkfile
Expand All @@ -22,8 +22,8 @@ set z_file=%z_fdrv%%z_fpath%%z_fname%
if exist %z_file%%z_fext% goto file_ok
rem if extension specified: error because no default applies
if /I %z_fext%. NEQ . goto notfound
rem try with default extension of mlc
set z_fext=.mlc
rem try with default extension of MLC
set z_fext=.MLC
if exist %z_file%%z_fext% goto file_ok
:notfound
echo Error: Source file %z_file%%z_fext% does not exist
Expand All @@ -49,7 +49,7 @@ echo the ASSIST.BAT procedure is intended to assemble, link, and execute a singl
echo .
:retry
set z_file=
set /P z_file=Hit Enter for more help or supply name of mlc file to assemble, link, and execute:
set /P z_file=Hit Enter for more help or supply name of MLC file to assemble, link, and execute:
if /I %z_file%. NEQ . goto chkfile

call %~dps0help %z_TraceMode%
Expand Down
2 changes: 2 additions & 0 deletions bat/FPARTS.BAT
Original file line number Diff line number Diff line change
Expand Up @@ -12,6 +12,8 @@ set /A z_NestLevel=%z_NestLevel%+1
rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9

set z_ReturnCode=0
if "%1" == "/?" goto help
if "%1" == "?" goto help
if not exist %1 set z_ReturnCode=8

set z_fdrv=%~d1
Expand Down
10 changes: 5 additions & 5 deletions bat/MAC.BAT
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
@if /I "%1" == "tron" (echo on) else (echo off)
rem mac run mz390 macro processor to expand mlc to bal with nomlc
rem mac run mz390 macro processor to expand MLC to BAL using option nomlc

setlocal
if /I "%1" == "tron" (set z_TraceMode=tron
Expand All @@ -11,7 +11,7 @@ if /I "%1" == "tron" (set z_TraceMode=tron
set /A z_NestLevel=%z_NestLevel%+1
rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9

if /I %1. == . (set /P z_file=Hit Enter for help or supply name of mlc file to expand:
if /I %1. == . (set /P z_file=Hit Enter for help or supply name of MLC file to expand:
) else (set z_file=%1)
if /I %z_file%. == . goto help
:chkfile
Expand All @@ -22,8 +22,8 @@ set z_file=%z_fdrv%%z_fpath%%z_fname%
if exist %z_file%%z_fext% goto file_ok
rem if extension specified: error because no default applies
if /I %z_fext%. NEQ . goto notfound
rem try with default extension of mlc
set z_fext=.mlc
rem try with default extension of MLC
set z_fext=.MLC
if exist %z_file%%z_fext% goto file_ok
:notfound
echo Error: Source file %z_file%%z_fext% does not exist
Expand All @@ -50,7 +50,7 @@ echo the MAC.BAT procedure is intended to expand a single assembler program by r
echo .
:retry
set z_file=
set /P z_file=Hit Enter for more help or supply name of mlc file to expand:
set /P z_file=Hit Enter for more help or supply name of MLC file to expand:
if /I %z_file%. NEQ . goto chkfile

call %~dps0help %z_TraceMode%
Expand Down
2 changes: 1 addition & 1 deletion bat/RUNZSTRMACTEST.BAT
Original file line number Diff line number Diff line change
Expand Up @@ -43,7 +43,7 @@ if %z_ReturnCode% GTR 0 (set z_ReturnCode=8
goto return
)

echo Regen ZSTRMAC2 using mz390 support to ver zstrmac2.txt = mlc
echo Regen ZSTRMAC2 using mz390 support to ver ZSTRMAC2.TXT = MLC
set SYSUT1=rt\test\ZSTRMAC2.ZSM
set SYSUT2=rt\test\ZSTRMAC2.MLC
call bat\MZ390 %z_TraceMode% rt\test\ZSTRMAC2.ZSM NOASM NOTIMING STATS || goto error
Expand Down
4 changes: 2 additions & 2 deletions bat/ZC390.BAT
Original file line number Diff line number Diff line change
Expand Up @@ -25,11 +25,11 @@ java -classpath %~dps0..\z390.jar -Xrs zc390 %1 %2 %3 %4 %5 %6 %7 %8 %9

set z_ReturnCode=%ERRORLEVEL%
if %z_ReturnCode% EQU 0 goto return
if %z_ReturnCode% EQU 4 (echo %0 WARNING: See warnings on zc390 generated mlc file and console
if %z_ReturnCode% EQU 4 (echo %0 WARNING: See warnings on zc390 generated MLC file and console
goto return
)
rem ErrorLevel 1 for Java issues or ErrorLevel 8 / 12 for assembly issues
echo %0 ERROR: See errors on zc390 generated mlc file and console
echo %0 ERROR: See errors on zc390 generated MLC file and console

:return
rem ----- Lvl(%z_NestLevel%) End %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
Expand Down

0 comments on commit bce36b2

Please sign in to comment.