diff --git a/Microsoft COBOL v45/BINB/m.bat b/Microsoft COBOL v45/BINB/m.bat index 88bb00c..4cf1b10 100644 --- a/Microsoft COBOL v45/BINB/m.bat +++ b/Microsoft COBOL v45/BINB/m.bat @@ -1,7 +1,7 @@ del %1.obj del %1.exe -ntvdm -r:.. -m -c -d -e:path=c:\binb;c:\binr cobol %1,%1,%1,%1 +ntvdm -r:.. -c -e:path=c:\binb;c:\binr cobol %1,%1,%1,%1 ntvdm -h -c -r:.. -e:lib=c:\lib link %1,,%1,,nul.def diff --git a/Microsoft COBOL v45/BINB/m.sh b/Microsoft COBOL v45/BINB/m.sh new file mode 100644 index 0000000..47cb400 --- /dev/null +++ b/Microsoft COBOL v45/BINB/m.sh @@ -0,0 +1,19 @@ +str=$(tr '[a-z]' '[A-Z]' <<< $1) + +rm $str.EXE 2>/dev/null +rm $str.LST 2>/dev/null +rm $str.GRP 2>/dev/null +rm $str.MAP 2>/dev/null +rm $str.OBJ 2>/dev/null + +ntvdm -u -r:.. -c -e:path=c:\\binb\;c:\\binr COBOL $str,$str,$str,$str + +ntvdm -u -h -c -r:.. -e:lib=c:\\lib LINK $str,,$str,,nul.def + +rm $str.LST 2>/dev/null +rm $str.GRP 2>/dev/null +rm $str.MAP 2>/dev/null +rm $str.OBJ 2>/dev/null + +ntvdm -u -c -m -r:.. -e:path=c:\\binb\;c:\\binr $str +