daily_automated
This commit is contained in:
paolo.iocco
50
trunk/workspace/SharpTools/Scripts.win/Dasc2Wav.cmd
Normal file
50
trunk/workspace/SharpTools/Scripts.win/Dasc2Wav.cmd
Normal file
@@ -0,0 +1,50 @@
|
||||
@rem This file is only usable for Ascii DATA, NOT for Basic sources
|
||||
@echo Dasc2Wav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "asc2wav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.ASC
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.IMG;*.BAS;*.DAT" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,8%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
rem @echo on
|
||||
bin2wav --type=asc --pc=%SHARPC% --name=%fnamenS% %fnamef% %WAVDIR%\%fnamen%.wav -l 0x40 %2 %3
|
||||
@echo off
|
||||
Rem -l 0x40 convert stings -l 0x50 --sync=3
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Switch to Run Mode and start INPUT# (device CAS:) and press a key...
|
||||
pause
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
64
trunk/workspace/SharpTools/Scripts.win/Dat2Tap.cmd
Normal file
64
trunk/workspace/SharpTools/Scripts.win/Dat2Tap.cmd
Normal file
@@ -0,0 +1,64 @@
|
||||
@echo Dat2Tav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "dat2tap FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.DAT
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
set tapex=.tap
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.IMG" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "15" (
|
||||
set fnamenS=%fnamen:~0,8%
|
||||
set tapex=_D.tap
|
||||
Rem bin: _LM.tap, dat: _D.tap, bas: _B.tap
|
||||
)
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
setlocal enabledelayedexpansion
|
||||
for %%a in ("a=A" "b=B" "c=C" "d=D" "e=E" "f=F" "g=G" "h=H" "i=I" "j=J" "k=K" "l=L" "m=M" "n=N" "o=O" "p=P" "q=Q" "r=R" "s=S" "t=T" "u=U" "v=V" "w=W" "x=X" "y=Y" "z=Z") do (
|
||||
set "fnamenS=!fnamenS:%%~a!"
|
||||
)
|
||||
rem @echo on
|
||||
bin2wav --type=dat --pc=%SHARPC% --tap --name=%fnamenS% %fnamef% %TAPDIR%\%fnamenS%%tapex% -l 0x40 %2 %3
|
||||
@echo off
|
||||
Rem -l 0x40 convert stings -l 0x50
|
||||
if errorlevel 1 goto end
|
||||
|
||||
copy %TAPDIR%\%fnameS%%tapex% %ANDDIR%\
|
||||
echo Copy %TAPDIR%\%fnamenS%%tapex% to your Android device into the app
|
||||
echo directory %ANDDIR% and import it!
|
||||
endlocal
|
||||
echo.
|
||||
echo NOTE:
|
||||
echo 1. Import %fnamenS%%tapex% from %ANDDIR%
|
||||
echo (%TAPDIR%),
|
||||
echo use the menu inside of your emulator application
|
||||
echo 2. Start INPUT # "%fnamenS%;..." inside the emulated BASIC Interpreter
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
49
trunk/workspace/SharpTools/Scripts.win/Dat2Wav.cmd
Normal file
49
trunk/workspace/SharpTools/Scripts.win/Dat2Wav.cmd
Normal file
@@ -0,0 +1,49 @@
|
||||
@echo Dat2Wav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "dat2wav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.DAT
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.IMG" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
rem @echo on
|
||||
bin2wav --type=dat --pc=%SHARPC% --name=%fnamenS% %fnamef% %WAVDIR%\%fnamen%.wav --sync=0.5 -s2 -l 0x40 %2 %3
|
||||
@echo off
|
||||
Rem -l 0x40 convert stings -l 0x50
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Start INPUT# and press a key ....
|
||||
pause
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
@@ -0,0 +1,5 @@
|
||||
[{000214A0-0000-0000-C000-000000000046}]
|
||||
Prop3=19,2
|
||||
[InternetShortcut]
|
||||
URL=http://www.horstmuc.de/win/wfile.zip
|
||||
IDList=
|
||||
49
trunk/workspace/SharpTools/Scripts.win/Img2Wav.cmd
Normal file
49
trunk/workspace/SharpTools/Scripts.win/Img2Wav.cmd
Normal file
@@ -0,0 +1,49 @@
|
||||
@echo Img2Wav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "img2wav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.IMG
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
rem @echo on
|
||||
bin2wav --type=img --pc=%SHARPC% --name=%fnamenS% %fnamef% %WAVDIR%\%fnamen%.wav -l 0xC0 %2 %3
|
||||
@echo off
|
||||
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Start CLOAD and press a key ....
|
||||
pause
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
72
trunk/workspace/SharpTools/Scripts.win/MC2Wav.cmd
Normal file
72
trunk/workspace/SharpTools/Scripts.win/MC2Wav.cmd
Normal file
@@ -0,0 +1,72 @@
|
||||
@echo MC2Wav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "MC2wav FILENAM"
|
||||
@rem if exist "FILENAM.ADR" the content is used for start address
|
||||
@rem if exist "FILENAM.CAL" the content is used for entry address
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.BIN
|
||||
set fnamedp=%BINDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
rem @echo on
|
||||
Rem if exist %fnamedp%%fnamen%.CMD CALL %fnamedp%%fnamen%.CMD
|
||||
if exist %fnamedp%%fnamen%.ADR (
|
||||
set /p ADDR=<%fnamedp%%fnamen%.ADR
|
||||
) else (
|
||||
if not "%ORG%"=="" (
|
||||
set ADDR=%ORG%
|
||||
) else (
|
||||
set ADDR=
|
||||
))
|
||||
if not "%ADDR%"=="" set ADDR=--addr=%ADDR%
|
||||
|
||||
REM PC-1500/1600 or newer Entry Address
|
||||
if exist %fnamedp%%fnamen%.CAL (
|
||||
set /p ADDR2=<%fnamedp%%fnamen%.CAL
|
||||
)
|
||||
if not "%ADDR2%"=="" (
|
||||
if not "%ADDR%"=="" set ADDR=%ADDR% --addr=%ADDR2%
|
||||
)
|
||||
set ADDR2=
|
||||
|
||||
rem @echo on
|
||||
bin2wav --type=bin --pc=%SHARPC% -d%SHARPDEV% --name=%fnamenS% %ADDR% %fnamef% %WAVDIR%\%fnamen%.wav -l 0xC0 %2 %3
|
||||
@echo off
|
||||
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Start CLOAD M and press a key ....
|
||||
pause
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
49
trunk/workspace/SharpTools/Scripts.win/Rsv2Wav.cmd
Normal file
49
trunk/workspace/SharpTools/Scripts.win/Rsv2Wav.cmd
Normal file
@@ -0,0 +1,49 @@
|
||||
@echo Rsv2Wav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "rsv2wav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.IMG
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.RSV" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
rem @echo on
|
||||
bin2wav --type=rsv --pc=%SHARPC% --name=%fnamenS% %fnamef% %WAVDIR%\%fnamen%.wav -l 0x40 %2 %3
|
||||
@echo off
|
||||
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Switch to Mode RSV, start CLOAD and press a key ....
|
||||
pause
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
50
trunk/workspace/SharpTools/Scripts.win/Shc2Wav.cmd
Normal file
50
trunk/workspace/SharpTools/Scripts.win/Shc2Wav.cmd
Normal file
@@ -0,0 +1,50 @@
|
||||
@echo Shc2Wav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "shc2wav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.SHC
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.IMG" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
rem
|
||||
@echo on
|
||||
bin2wav --type=shc --pc=%SHARPC% --name=%fnamenS% %fnamef% %WAVDIR%\%fnamen%.wav -l 0xC0 %2 %3
|
||||
@echo off
|
||||
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Start CLOAD (M) or INPUT# and press a key ....
|
||||
pause
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
39
trunk/workspace/SharpTools/Scripts.win/Tap2img.cmd
Normal file
39
trunk/workspace/SharpTools/Scripts.win/Tap2img.cmd
Normal file
@@ -0,0 +1,39 @@
|
||||
@echo Tap2Img is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "tap2img FILENAM" (without .tap)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.tap
|
||||
set fnamedp=%TAPDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
rem echo Input: %fnamef%
|
||||
rem @echo on
|
||||
wav2bin --pc=%SHARPC% --type=img --tap %fnamef% %BASDIR%\%fnamen%.IMG -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 --type=rsv
|
||||
if errorlevel 9 goto skip1
|
||||
if errorlevel 1 goto end
|
||||
:skip1
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
|
||||
start %HEDITOR% %BASDIR%\%fnamen%.IMG
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
42
trunk/workspace/SharpTools/Scripts.win/Tap2shc.cmd
Normal file
42
trunk/workspace/SharpTools/Scripts.win/Tap2shc.cmd
Normal file
@@ -0,0 +1,42 @@
|
||||
@echo Tap2Shc is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "Tap2shc FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.tap
|
||||
set fnamedp=%TAPDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
if errorlevel 1 goto end
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
rem @echo on
|
||||
wav2bin --type=shc --tap --pc=%SHARPC% %fnamef% %BASDIR%\%fnamen%.SHC -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 --type=rsv
|
||||
if errorlevel 9 goto skip1
|
||||
if errorlevel 1 goto end
|
||||
:skip1
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
|
||||
start %HEDITOR% %BASDIR%\%fnamen%.SHC
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
50
trunk/workspace/SharpTools/Scripts.win/Txt2Wav.cmd
Normal file
50
trunk/workspace/SharpTools/Scripts.win/Txt2Wav.cmd
Normal file
@@ -0,0 +1,50 @@
|
||||
@echo Txt2Wav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "txt2wav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.IMG
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
rem
|
||||
@echo on
|
||||
bin2wav --type=txt --pc=%SHARPC% --name=%fnamenS% %fnamef% %WAVDIR%\%fnamen%.wav -l 0xC0 %2 %3
|
||||
@echo off
|
||||
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Switch to TEXT mode, start CLOAD and press a key ....
|
||||
pause
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
47
trunk/workspace/SharpTools/Scripts.win/Wav2Dasc.cmd
Normal file
47
trunk/workspace/SharpTools/Scripts.win/Wav2Dasc.cmd
Normal file
@@ -0,0 +1,47 @@
|
||||
@rem This file is only usable for Ascii DATA, NOT for Basic sources
|
||||
@echo Wav2Dasc is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "wav2asc FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@rem Convert wave with SoX http://sox.sourceforge.net/
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.WAV
|
||||
set fnamedp=%WAVDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.tap" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
rem %WAVCNV% %fnamef% --norm=-1 %temp%\%fnamen%%fnamex%
|
||||
rem --bits 8
|
||||
if errorlevel 1 goto end
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
@echo on
|
||||
wav2bin --pc=%SHARPC% --type=asc %fnamef% %BASDIR%\%fnamen%.ASC -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem -l 0x40/0x400 ByteSum 0x80 TEXT 0x100 sync 0x200 BinEnd 0x8000 counter 1=Trans 2=SyncBits 4 ReadBits 8 SkipBits 0x10 Nibble 0x20 Byte
|
||||
if errorlevel 1 goto end
|
||||
|
||||
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
rem del %temp%\%fnamen%%fnamex%
|
||||
|
||||
start %EDITOR% %BASDIR%\%fnamen%.ASC
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
46
trunk/workspace/SharpTools/Scripts.win/Wav2dat.cmd
Normal file
46
trunk/workspace/SharpTools/Scripts.win/Wav2dat.cmd
Normal file
@@ -0,0 +1,46 @@
|
||||
@echo Wav2dat is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "wav2dat FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@rem Convert wave with SoX http://sox.sourceforge.net/
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.WAV
|
||||
set fnamedp=%WAVDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.tap" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
rem %WAVCNV% %fnamef% --norm=-1 %temp%\%fnamen%%fnamex%
|
||||
rem --bits 8
|
||||
if errorlevel 1 goto end
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
rem @echo on
|
||||
wav2bin --pc=%SHARPC% --type=dat %fnamef% %BASDIR%\%fnamen%.DAT -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem -l 0x40/0x400 ByteSum 0x80 TEXT 0x100 sync 0x200 BinEnd 0x8000 counter 1=Trans 2=SyncBits 4 ReadBits 8 SkipBits 0x10 Nibble 0x20 Byte
|
||||
if errorlevel 1 goto end
|
||||
|
||||
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
rem del %temp%\%fnamen%%fnamex%
|
||||
|
||||
start %HEDITOR% %BASDIR%\%fnamen%.DAT
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
46
trunk/workspace/SharpTools/Scripts.win/Wav2img.cmd
Normal file
46
trunk/workspace/SharpTools/Scripts.win/Wav2img.cmd
Normal file
@@ -0,0 +1,46 @@
|
||||
@echo Wav2Img is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "wav2img FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@rem Convert wave with SoX http://sox.sourceforge.net/
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.WAV
|
||||
set fnamedp=%WAVDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.tap" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
rem copy %fnamef% %temp%\%fnamen%%fnamex%
|
||||
rem %WAVCNV% %fnamef% --norm=-1 %temp%\%fnamen%%fnamex%
|
||||
rem %WAVCNV% %fnamef% --norm=-1 --bits 8 %temp%\%fnamen%%fnamex%
|
||||
if errorlevel 1 goto end
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
rem @echo on
|
||||
wav2bin --pc=%SHARPC% --type=img %fnamef% %BASDIR%\%fnamen%.IMG -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 --type=rsv
|
||||
if errorlevel 9 goto skip1
|
||||
if errorlevel 1 goto end
|
||||
:skip1
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
rem del %temp%\%fnamen%%fnamex%
|
||||
|
||||
start %HEDITOR% %BASDIR%\%fnamen%.IMG
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
46
trunk/workspace/SharpTools/Scripts.win/Wav2mc.cmd
Normal file
46
trunk/workspace/SharpTools/Scripts.win/Wav2mc.cmd
Normal file
@@ -0,0 +1,46 @@
|
||||
@echo Wav2MC is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "wav2MC FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@rem Convert wave with SoX http://sox.sourceforge.net/
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.WAV
|
||||
set fnamedp=%WAVDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.tap" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
rem copy %fnamef% %temp%\%fnamen%%fnamex%
|
||||
rem %WAVCNV% %fnamef% --norm=-1 %temp%\%fnamen%%fnamex%
|
||||
rem %WAVCNV% %fnamef% --norm=-1 --bits 8 %temp%\%fnamen%%fnamex%
|
||||
if errorlevel 1 goto end
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
rem @echo on
|
||||
wav2bin --pc=%SHARPC% --type=bin %fnamef% %BINDIR%\%fnamen%.BIN -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 --type=rsv
|
||||
if errorlevel 9 goto skip1
|
||||
if errorlevel 1 goto end
|
||||
:skip1
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Note the start address, please read the messages above!
|
||||
pause
|
||||
rem del %temp%\%fnamen%%fnamex%
|
||||
|
||||
start %HEDITOR% %BINDIR%\%fnamen%.BIN
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
97
trunk/workspace/SharpTools/Scripts.win/Wav2rsv.cmd
Normal file
97
trunk/workspace/SharpTools/Scripts.win/Wav2rsv.cmd
Normal file
@@ -0,0 +1,97 @@
|
||||
@echo Wav2Rsv is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "wav2rsv FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@rem Convert wave with SoX http://sox.sourceforge.net/
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.WAV
|
||||
set fnamedp=%WAVDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.tap" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamex2=.IMG
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc2%" == "15" set fnamex2=.RSV
|
||||
if "%sharpc2%" == "16" set fnamex2=.RSV
|
||||
set sharpc2=
|
||||
|
||||
rem %WAVCNV% %fnamef% --norm=-1 %temp%\%fnamen%%fnamex%
|
||||
if errorlevel 1 goto error
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
rem @echo on
|
||||
wav2bin --type=rsv %fnamef% %BASDIR%\%fnamen%%fnamex2% --pc=%SHARPC% -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem %temp%\%fnamen%%fnamex% -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 --type=rsv
|
||||
rem if errorlevel 9 goto skip1
|
||||
if errorlevel 1 goto end
|
||||
:skip1
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
rem del %temp%\%fnamen%%fnamex%
|
||||
|
||||
start %HEDITOR% %BASDIR%\%fnamen%%fnamex2%
|
||||
goto :EOF
|
||||
|
||||
:error
|
||||
if errorlevel 10 goto E10
|
||||
if errorlevel 9 goto E9
|
||||
if errorlevel 8 goto E8
|
||||
if errorlevel 7 goto E7
|
||||
if errorlevel 6 goto E6
|
||||
if errorlevel 5 goto E5
|
||||
if errorlevel 4 goto E4
|
||||
if errorlevel 3 goto E3
|
||||
if errorlevel 2 goto E2
|
||||
if errorlevel 1 goto E1
|
||||
echo bad error value
|
||||
goto end
|
||||
|
||||
:E10
|
||||
echo To many minor errors found in the wave file!
|
||||
echo Last error: %ERRORLEVEL%
|
||||
goto end
|
||||
:E9
|
||||
echo Synchronisation not found or lost inside wave file!
|
||||
goto end
|
||||
:E8
|
||||
echo Checksum error or unexpected end of file!
|
||||
goto end
|
||||
:E7
|
||||
echo Format of the wave file or SHARP data is illegal!
|
||||
goto end
|
||||
:E6
|
||||
echo Buffer/Memory overflow or to long lines!
|
||||
goto end
|
||||
:E5
|
||||
echo File I/O-Error!
|
||||
goto end
|
||||
:E4
|
||||
echo Invalid BASIC line numbers!
|
||||
goto end
|
||||
:E3
|
||||
echo Invalid argument or unsupported device!
|
||||
goto end
|
||||
:E2
|
||||
echo Invalid bit structure of a byte !
|
||||
goto end
|
||||
:E1
|
||||
echo Argument Syntax Error!
|
||||
|
||||
:end
|
||||
pause
|
||||
46
trunk/workspace/SharpTools/Scripts.win/Wav2shc.cmd
Normal file
46
trunk/workspace/SharpTools/Scripts.win/Wav2shc.cmd
Normal file
@@ -0,0 +1,46 @@
|
||||
@echo Wav2Shc is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "wav2shc FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@rem Convert wave with SoX http://sox.sourceforge.net/
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.WAV
|
||||
set fnamedp=%WAVDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.tap" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
rem copy %fnamef% %temp%\%fnamen%%fnamex%
|
||||
rem %WAVCNV% %fnamef% --norm=-1 %temp%\%fnamen%%fnamex%
|
||||
rem %WAVCNV% %fnamef% --norm=-1 --bits 8 %temp%\%fnamen%%fnamex%
|
||||
if errorlevel 1 goto end
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
rem @echo on
|
||||
wav2bin --pc=%SHARPC% --type=shc %fnamef% %BASDIR%\%fnamen%.SHC -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 --type=rsv
|
||||
if errorlevel 9 goto skip1
|
||||
if errorlevel 1 goto end
|
||||
:skip1
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
rem del %temp%\%fnamen%%fnamex%
|
||||
|
||||
start %HEDITOR% %BASDIR%\%fnamen%.SHC
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
65
trunk/workspace/SharpTools/Scripts.win/Wav2tap.cmd
Normal file
65
trunk/workspace/SharpTools/Scripts.win/Wav2tap.cmd
Normal file
@@ -0,0 +1,65 @@
|
||||
@echo Wav2Tap is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "wav2tap FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@rem Convert wave with SoX http://sox.sourceforge.net/
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.WAV
|
||||
set fnamedp=%WAVDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
set tapex=.tap
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc2%" == "15" (
|
||||
set tapex=_B.tap
|
||||
Rem bin: _LM.tap, dat: _D.tap, bas: _B.tap
|
||||
)
|
||||
set sharpc2=
|
||||
|
||||
rem %WAVCNV% %fnamef% --norm=-1 %temp%\%fnamen%%fnamex%
|
||||
rem --bits 8
|
||||
if errorlevel 1 goto end
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
@echo on
|
||||
wav2bin --pc=%SHARPC% --type=tap %fnamef% %TAPDIR%\%fnamen%%tapex% -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem -l 0x40/0x400 ByteSum 0x80 TEXT 0x100 sync 0x200 BinEnd 0x8000 counter 1=Trans 2=SyncBits 4 ReadBits 8 SkipBits 0x10 Nibble 0x20 Byte
|
||||
if errorlevel 1 goto end
|
||||
|
||||
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
del %temp%\%fnamen%%fnamex%
|
||||
copy %TAPDIR%\%fnamen%%tapex% %ANDDIR%\
|
||||
Rem pause
|
||||
echo Rename %TAPDIR%\%fnamen%%tapex% to CSAVENAME%tapex%
|
||||
echo Copy %TAPDIR%\%fnamen%%tapex% to your Android device into the app
|
||||
echo directory %ANDDIR% and import it!
|
||||
echo.
|
||||
echo NOTE:
|
||||
echo 1. Import %fnamen%%tapex% from %ANDDIR%
|
||||
echo (%TAPDIR%),
|
||||
echo use the menu inside of your emulator application
|
||||
echo 2. Start CLOAD "%fnamen%" inside the emulated BASIC Interpreter
|
||||
echo.
|
||||
pause
|
||||
start %HEDITOR% %TAPDIR%\%fnamen%%tapex%
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
74
trunk/workspace/SharpTools/Scripts.win/bas2tap.cmd
Normal file
74
trunk/workspace/SharpTools/Scripts.win/bas2tap.cmd
Normal file
@@ -0,0 +1,74 @@
|
||||
@echo Bas2Tap is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "bas2tap FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.BAS
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
set tapex=.tap
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.PRG;*.ASC;*.SPP;*.SHA" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" (
|
||||
set fnamenS=%fnamen:~0,8%
|
||||
set tapex=_B.tap
|
||||
Rem bin: _LM.tap, dat: _D.tap, bas: _B.tap
|
||||
)
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
|
||||
bas2img --pc=%SHARPC% %fnamef%
|
||||
if errorlevel 1 goto end
|
||||
rem -l 0x80 0xA0
|
||||
rem pause
|
||||
|
||||
echo.
|
||||
setlocal enabledelayedexpansion
|
||||
for %%a in ("a=A" "b=B" "c=C" "d=D" "e=E" "f=F" "g=G" "h=H" "i=I" "j=J" "k=K" "l=L" "m=M" "n=N" "o=O" "p=P" "q=Q" "r=R" "s=S" "t=T" "u=U" "v=V" "w=W" "x=X" "y=Y" "z=Z") do (
|
||||
set "fnamenS=!fnamenS:%%~a!"
|
||||
)
|
||||
rem @echo on
|
||||
bin2wav --type=img --pc=%SHARPC% --tap --name=%fnamenS% %fnamedp%%fnamen%.img %TAPDIR%\%fnamenS%%tapex% -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem pause
|
||||
if errorlevel 1 goto end
|
||||
|
||||
del %fnamedp%%fnamen%.img
|
||||
copy %TAPDIR%\%fnamenS%%tapex% %ANDDIR%\
|
||||
pause
|
||||
echo Copy %TAPDIR%\%fnamenS%%tapex% to your Android device into the app
|
||||
echo directory %ANDDIR% and import it!
|
||||
endlocal
|
||||
echo.
|
||||
echo NOTE:
|
||||
echo 1. Import %fnamenS%%tapex% from %ANDDIR%
|
||||
echo (%TAPDIR%),
|
||||
echo use the menu inside of your emulator application
|
||||
echo 2. Start CLOAD "%fnamenS%" inside the emulated BASIC Interpreter
|
||||
pause
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
57
trunk/workspace/SharpTools/Scripts.win/bas2wav.cmd
Normal file
57
trunk/workspace/SharpTools/Scripts.win/bas2wav.cmd
Normal file
@@ -0,0 +1,57 @@
|
||||
@echo Bas2Wav is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "bas2wav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.BAS
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.PRG;*.ASC;*.SPP;*.SHA" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
|
||||
bas2img --pc=%SHARPC% %fnamef% -l 0xC0
|
||||
if errorlevel 1 goto end
|
||||
rem -l 0x80 0xA0
|
||||
rem pause
|
||||
|
||||
echo.
|
||||
@echo on
|
||||
bin2wav --type=img --pc=%SHARPC% --name=%fnamenS% %fnamedp%%fnamen%.img %WAVDIR%\%fnamen%.wav -l 0x40 %2 %3
|
||||
@echo off
|
||||
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Start CLOAD and press a key ....
|
||||
pause
|
||||
del %fnamedp%%fnamen%.img
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
60
trunk/workspace/SharpTools/Scripts.win/basAwav.cmd
Normal file
60
trunk/workspace/SharpTools/Scripts.win/basAwav.cmd
Normal file
@@ -0,0 +1,60 @@
|
||||
@echo Bas2Wav over ASCII is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "basAwav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.BAS
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.PRG;*.ASC;*.SPP;*.SHA" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,8%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
|
||||
bas2img --type=asc --pc=%SHARPC% %fnamef% -l 0xC0
|
||||
if errorlevel 1 goto end
|
||||
rem -l 0x80 0xA0
|
||||
rem pause
|
||||
|
||||
echo.
|
||||
@echo on
|
||||
bin2wav --type=bas --pc=%SHARPC% -d%SHARPDEV% --name=%fnamenS% %fnamedp%%fnamen%.asc %WAVDIR%\%fnamen%.wav -l 0x40 %2 %3
|
||||
@echo off
|
||||
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
if "%sharpc2%" == "G8" echo Switch to Text Editor Menu Cmt, start Load %fnamenS% and press a key ....
|
||||
if "%sharpc2%" == "E2" echo Switch to Text Editor Menu Cmt, start Load %fnamenS% and press a key ....
|
||||
if "%sharpc2%" == "E5" echo Start LOAD "CAS:%fnamenS%" and press a key ....
|
||||
if "%sharpc2%" == "16" echo Start LOAD "CAS:%fnamenS%.BAS" and press a key ....
|
||||
set sharpc2=
|
||||
pause
|
||||
del %fnamedp%%fnamen%.asc
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
57
trunk/workspace/SharpTools/Scripts.win/basTwav.cmd
Normal file
57
trunk/workspace/SharpTools/Scripts.win/basTwav.cmd
Normal file
@@ -0,0 +1,57 @@
|
||||
@echo Bas2Wav over TEXT Mode is running...
|
||||
@rem open console,
|
||||
@rem change to directory and start batch with "basTwav FILENAM"
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.BAS
|
||||
set fnamedp=%BASDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.PRG;*.ASC;*.SPP;*.SHA" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
set fnamenS=%fnamen:~0,7%
|
||||
set sharpc1=%SHARPC:~0,1%
|
||||
set sharpc2=%SHARPC:~0,2%
|
||||
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
||||
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,16%
|
||||
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,16%
|
||||
if not "%fnamenS%" == "%fnamen%" (
|
||||
echo Note: Filename with less characters is recommended!
|
||||
rem goto end
|
||||
)
|
||||
set sharpc1=
|
||||
set sharpc2=
|
||||
|
||||
bas2img --type=txt --pc=%SHARPC% %fnamef% -l 0xC0
|
||||
if errorlevel 1 goto end
|
||||
rem -l 0x80 0xA0
|
||||
rem pause
|
||||
|
||||
echo.
|
||||
@echo on
|
||||
bin2wav --type=txt --pc=%SHARPC% --name=%fnamenS% %fnamedp%%fnamen%.img %WAVDIR%\%fnamen%.wav -l 0x40 %2 %3
|
||||
@echo off
|
||||
|
||||
if errorlevel 1 goto end
|
||||
|
||||
echo.
|
||||
echo Switch to TEXT mode, start CLOAD and press a key ....
|
||||
pause
|
||||
del %fnamedp%%fnamen%.img
|
||||
start %WAVDIR%\%fnamen%.wav
|
||||
goto :EOF
|
||||
:end
|
||||
pause
|
||||
89
trunk/workspace/SharpTools/Scripts.win/tap2bas.cmd
Normal file
89
trunk/workspace/SharpTools/Scripts.win/tap2bas.cmd
Normal file
@@ -0,0 +1,89 @@
|
||||
@echo Tap2Bas is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "tap2bas FILENAM" (without .tap)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.tap
|
||||
set fnamedp=%TAPDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
if errorlevel 1 goto error
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
rem @echo on
|
||||
wav2bin --type=bas --utf8=no --tap %fnamef% %BASDIR%\%fnamen%.BAS --pc=%SHARPC% -l 0x40 %2 %3
|
||||
@echo off
|
||||
rem --utf8=no 2asc %temp%\%fnamen%%fnamex% -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 -c 1.778 --pc=%SHARPC%
|
||||
|
||||
if errorlevel 1 goto error
|
||||
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
|
||||
|
||||
start %EDITOR% %BASDIR%\%fnamen%.BAS
|
||||
goto :EOF
|
||||
|
||||
:error
|
||||
if errorlevel 10 goto E10
|
||||
if errorlevel 9 goto E9
|
||||
if errorlevel 8 goto E8
|
||||
if errorlevel 7 goto E7
|
||||
if errorlevel 6 goto E6
|
||||
if errorlevel 5 goto E5
|
||||
if errorlevel 4 goto E4
|
||||
if errorlevel 3 goto E3
|
||||
if errorlevel 2 goto E2
|
||||
if errorlevel 1 goto E1
|
||||
echo bad error value
|
||||
goto end
|
||||
|
||||
:E10
|
||||
echo To many minor errors found in the wave file!
|
||||
echo Last error: %ERRORLEVEL%
|
||||
goto end
|
||||
:E9
|
||||
echo Synchronisation not found or lost inside wave file!
|
||||
goto end
|
||||
:E8
|
||||
echo Checksum error or unexpected end of file!
|
||||
goto end
|
||||
:E7
|
||||
echo Format of the wave file or SHARP data is illegal!
|
||||
goto end
|
||||
:E6
|
||||
echo Buffer/Memory overflow or to long lines!
|
||||
goto end
|
||||
:E5
|
||||
echo File I/O-Error!
|
||||
goto end
|
||||
:E4
|
||||
echo Invalid BASIC line numbers!
|
||||
goto end
|
||||
:E3
|
||||
echo Invalid argument or unsupported device!
|
||||
goto end
|
||||
:E2
|
||||
echo Invalid bit structure of a byte !
|
||||
goto end
|
||||
:E1
|
||||
echo Argument Syntax Error!
|
||||
|
||||
:end
|
||||
pause
|
||||
92
trunk/workspace/SharpTools/Scripts.win/wav2bas.cmd
Normal file
92
trunk/workspace/SharpTools/Scripts.win/wav2bas.cmd
Normal file
@@ -0,0 +1,92 @@
|
||||
@echo Wav2Bas is running...
|
||||
@rem open console, change to directory
|
||||
@rem and start batch with "wav2bas FILENAM" (without .wav)
|
||||
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||||
@rem Convert wave with SoX http://sox.sourceforge.net/
|
||||
@echo off
|
||||
if not exist GetFName.cmd (
|
||||
%~d0
|
||||
cd %~dp0
|
||||
)
|
||||
call SHARPSET
|
||||
set fnamex=.WAV
|
||||
set fnamedp=%WAVDIR%\
|
||||
set fnamen=%1
|
||||
set fnamef=%fnamedp%%fnamen%%fnamex%
|
||||
|
||||
Rem Note: Filenames with 1-7 characters are recommended!
|
||||
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.tap" "%1"
|
||||
if not exist %fnamef% (
|
||||
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||||
goto end
|
||||
)
|
||||
|
||||
rem %WAVCNV% %fnamef% --norm=-1 %temp%\%fnamen%%fnamex%
|
||||
if errorlevel 1 goto error
|
||||
rem pause
|
||||
echo.
|
||||
|
||||
rem @echo on
|
||||
wav2bin --utf8=no %fnamef% %BASDIR%\%fnamen%.BAS --pc=%SHARPC% -l 0x40 %2 %3
|
||||
Rem Pockemul --cspeed=1.125
|
||||
@echo off
|
||||
rem --type=bas --utf8=no 2asc %temp%\%fnamen%%fnamex% -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 -c 1.778 --pc=%SHARPC%
|
||||
|
||||
if errorlevel 1 goto error
|
||||
|
||||
echo ---------------------------------------------
|
||||
echo.
|
||||
echo Please read the messages above!
|
||||
pause
|
||||
rem del %temp%\%fnamen%%fnamex%
|
||||
|
||||
start %EDITOR% %BASDIR%\%fnamen%.BAS
|
||||
goto :EOF
|
||||
|
||||
:error
|
||||
if errorlevel 10 goto E10
|
||||
if errorlevel 9 goto E9
|
||||
if errorlevel 8 goto E8
|
||||
if errorlevel 7 goto E7
|
||||
if errorlevel 6 goto E6
|
||||
if errorlevel 5 goto E5
|
||||
if errorlevel 4 goto E4
|
||||
if errorlevel 3 goto E3
|
||||
if errorlevel 2 goto E2
|
||||
if errorlevel 1 goto E1
|
||||
echo bad error value
|
||||
goto end
|
||||
|
||||
:E10
|
||||
echo To many minor errors found in the wave file!
|
||||
echo Last error: %ERRORLEVEL%
|
||||
goto end
|
||||
:E9
|
||||
echo Synchronisation not found or lost inside wave file!
|
||||
goto end
|
||||
:E8
|
||||
echo Checksum error or unexpected end of file!
|
||||
goto end
|
||||
:E7
|
||||
echo Format of the wave file or SHARP data is illegal!
|
||||
goto end
|
||||
:E6
|
||||
echo Buffer/Memory overflow or to long lines!
|
||||
goto end
|
||||
:E5
|
||||
echo File I/O-Error!
|
||||
goto end
|
||||
:E4
|
||||
echo Invalid BASIC line numbers!
|
||||
goto end
|
||||
:E3
|
||||
echo Invalid argument or unsupported device!
|
||||
goto end
|
||||
:E2
|
||||
echo Invalid bit structure of a byte !
|
||||
goto end
|
||||
:E1
|
||||
echo Argument Syntax Error!
|
||||
|
||||
:end
|
||||
pause
|
||||
Reference in New Issue
Block a user