134 lines
3.2 KiB
Bash
Executable File
134 lines
3.2 KiB
Bash
Executable File
#!/bin/sh
|
|
#
|
|
# script to set first Atari program args when it starts
|
|
#
|
|
# this is achieved by chaining breakpoints from Hatari
|
|
# startup to program startup.
|
|
|
|
# path to (2015) hatari version which debugger provides "basepage" variable
|
|
hatari=hatari
|
|
|
|
# where temporary debugger scripts will be stored
|
|
dir=/tmp/hatari-debugger.tmp
|
|
|
|
usage ()
|
|
{
|
|
name=${0##*/}
|
|
echo "usage: $name [Hatari args] -- <Atari program> <program args>"
|
|
echo
|
|
echo "Script for running Hatari so that it autostarts given Atari program"
|
|
echo "and inserts given arguments to program (to its basepage, with builtin"
|
|
echo "Hatari debugger facilities)."
|
|
echo
|
|
echo "If arguments have same (host) path prefix as given Atari program,"
|
|
echo "those prefixes are replaced with 'C:\', Unix path separators ('/')"
|
|
echo "are replaced with Atari ones ('\\') and whole filename upper-cased."
|
|
echo
|
|
echo "Other arguments are passed unmodified."
|
|
echo
|
|
echo "Example:"
|
|
echo " $name -m -- atari/sidplay.ttp atari/sids/test.sid"
|
|
echo
|
|
echo "ERROR: $1!"
|
|
exit 1
|
|
}
|
|
|
|
# --------- argument parsing --------
|
|
|
|
# generic argument checking
|
|
if [ $# -lt 3 ]; then
|
|
usage "not enough arguments"
|
|
fi
|
|
echo " $* " | grep -q ' -- '
|
|
if [ $? -ne 0 ]; then
|
|
usage "Separator missing for Hatari -- Atari options"
|
|
fi
|
|
|
|
# collect/remove hatari arguments
|
|
for arg in $*; do
|
|
shift
|
|
if [ $arg = '--' ]; then
|
|
break
|
|
fi
|
|
hatari="$hatari $arg"
|
|
done
|
|
|
|
# check atari program
|
|
prg=$1
|
|
shift
|
|
if [ \! -f $prg ]; then
|
|
usage "given Atari program doesn't exist"
|
|
fi
|
|
|
|
# builtin shell echo can be broken, so that it interprets backlashes by default,
|
|
# i.e. concatenating '\' path separator with dirname 't', produces TAB, not '\t'...
|
|
# -> use separate echo binary
|
|
echo=$(which echo)
|
|
|
|
# temporary dir
|
|
mkdir -p $dir
|
|
|
|
# collect/convert atari program arguments
|
|
args=$dir/args
|
|
rm -f $args
|
|
touch $args
|
|
prefix=""
|
|
drive="C:\\"
|
|
path="${prg%/*}/"
|
|
for arg in $*; do
|
|
if [ "${arg#$path}" != "$arg" ]; then
|
|
# file path needing conversion
|
|
if [ \! -f $arg ]; then
|
|
usage "given file name '$arg' doesn't exits"
|
|
fi
|
|
# prefix with separator & drive letter & remove host path,
|
|
# upper-case, convert path separators
|
|
$echo -n "${prefix}${drive}${arg#$path}" | tr a-z A-Z | tr '/' '\\' >> $args
|
|
else
|
|
$echo -n "${prefix}$arg" >> $args
|
|
fi
|
|
prefix=" "
|
|
shift
|
|
done
|
|
|
|
# calculate command line lenght and append zero just in case
|
|
cmdlen=$(wc -c $args | awk '{print $1}')
|
|
echo -n "\0" >> $args
|
|
if [ $cmdlen -gt 126 ]; then
|
|
usage "command line is too long, $cmdlen chars (basepage limit is 126)"
|
|
fi
|
|
|
|
# --------- debugger scripts --------
|
|
|
|
# until desktop is up and TOS opens (autostart) INF file,
|
|
# it's not possible to set program breakpoints (0x3D = Fopen())
|
|
cat > $dir/fopen.ini << EOF
|
|
b GemdosOpcode = 0x3D :once :quiet :trace :file $dir/start.ini
|
|
EOF
|
|
|
|
# real work can be done when program starts,
|
|
# i.e. PC is at TEXT section beginning
|
|
cat > $dir/start.ini << EOF
|
|
b pc = text :once :trace :quiet :file $dir/basepage.ini
|
|
EOF
|
|
|
|
# add command line args args to program basepage
|
|
cat > $dir/basepage.ini << EOF
|
|
setopt dec
|
|
w "basepage+0x80" $cmdlen
|
|
l $args "basepage+0x81"
|
|
info basepage
|
|
EOF
|
|
|
|
# --------- ready, run ----------
|
|
|
|
# show args & debugger scripts
|
|
head $dir/*
|
|
|
|
# run Hatari
|
|
echo $hatari --parse $dir/fopen.ini $prg
|
|
$hatari --parse $dir/fopen.ini $prg
|
|
|
|
# cleanup
|
|
rm -r $dir
|