1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
#!/bin/sh
#
# script to set Atari program args after TOS starts it.
#
# this is achieved by chaining breakpoints from Hatari startup
# to program startup, and finally writing the arguments to
# the program basepage.
set -e
# name (including path if necessary) of the hatari executable
hatari=hatari
usage ()
{
name=${0##*/}
echo "usage: $name [-q] [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 "Options:"
echo " -q Quit Hatari after Atari program exits"
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 "Examples:"
echo
echo "* program in host folder and input files in same folder:"
echo " $name -m -- atari/sidplay.ttp atari/sids/test.sid"
echo
echo "* program on a disk image:"
echo " $name -m -- 'A:\\SIDPLAY.TTP' 'SIDS\\TEST.SID'"
echo
echo "Note: argument quoting is needed with '\\' chars."
echo
echo "ERROR: $1!"
exit 1
}
# --------- argument parsing --------
# generic argument checking
if [ $# -lt 3 ]; then
usage "not enough arguments"
fi
if ! echo " $* " | grep -q ' -- '; then
usage "Separator missing for Hatari -- Atari options"
fi
# quiet option comes first
quit=0
if [ "$1" = "-q" ]; then
quit=1
shift
fi
# collect/remove hatari arguments
hargs=""
for arg in "$@"; do
shift
if [ "$arg" = '--' ]; then
break
fi
hargs="$hargs $arg"
done
# check atari program
prg=$1
shift
if [ ! -f "$prg" ]; then
if [ "${prg#[A-Z]:}" != "$prg" ]; then
# program path inside disk image
hargs="--auto $prg $hargs"
prg=""
else
# non-existing *non-Atari* path given
usage "given Atari program '$prg' does not exist"
fi
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 for debugger scripts
dir=$(mktemp -d)
# 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' does not exist"
fi
# prefix with separator & drive letter & remove host path,
# upper-case, convert path separators
#
# it gets 3 things wrong on same line:
# shellcheck disable=SC2018
# shellcheck disable=SC2019
# shellcheck disable=SC1003
$echo -n "${prefix}${drive}${arg#$path}" | tr a-z A-Z | tr '/' '\\' >> "$args"
else
$echo -n "${prefix}$arg" >> "$args"
fi
prefix=" "
done
# calculate command line length and append zero just in case
cmdlen=$(wc -c "$args" | awk '{print $1}')
printf "\0" >> "$args"
if [ "$cmdlen" -gt 126 ]; then
usage "command line is too long, $cmdlen chars (basepage limit is 126)"
fi
# --------- debugger scripts --------
# until TOS has started, it's not possible to set breakpoint
# to program startup, there's no valid basepage and therefore
# no valid TEXT variable. So set breakpoint on Pexec(0,...)
cat > "$dir/pexec.ini" << EOF
b GemdosOpcode = 0x4B && OsCallParam = 0x0 :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
# quit Hatari after program exits
if [ $quit -eq 1 ]; then
# catch Pterm0() & Pterm()
cat >> "$dir/basepage.ini" << EOF
b GemdosOpcode = 0x00 :quiet :trace :file $dir/quit.ini
b GemdosOpcode = 0x4C :quiet :trace :file $dir/quit.ini
EOF
echo "quit" > "$dir/quit.ini"
fi
# --------- ready, run ----------
# show args & debugger scripts
head "$dir"/*
# run Hatari
echo "$hatari --parse $dir/pexec.ini $hargs $prg"
# shellcheck disable=SC2086 # options must be split to work
$hatari --parse "$dir/pexec.ini" $hargs "$prg"
# cleanup
rm -r "$dir"
|
