*** empty log message ***
[h316.git] / bin / asm
CommitLineData
b0031f2a 1#!/bin/sh
c08e22bb 2# Assembler wrapper for simh h316
3
4if [ ! $1 ] ; then
e5c436a2 5 echo "Argument missing!"
c08e22bb 6 exit 2
7fi
8
e5c436a2 9for n in $*; do
10 if [ $n == "/v" ]; then
11 VERBOSE=yes
12 fi
13done
14
c08e22bb 15name=`basename $1 .asm`
16listfile=$name.lst
17
18cat $1 | tab | paron > $name.par
b0031f2a 19
c08e22bb 20rm -f $name.lst
21rm -f $name.obj
22
b0031f2a 23cat > $name.go <<EOF
24rest $H316/sys/dap.sys
e5c436a2 25d a 120420
26d p 1000
b0031f2a 27at ptr $name.par
28at ptp $name.obj
29at tty3 $listfile
30set tty3 uascii
31set tty3 start
32go
33d ptr pos 0
34go
35quit
36EOF
37
e5c436a2 38if [ "$VERBOSE" == "yes" ]; then
39 h316 $name.go
40else
41 h316 $name.go > /dev/null
42fi
c08e22bb 43
44rm -f $name.par
45rm -f $name.go
46
47if cat $name.lst | grep "NO ERRORS IN ABOVE ASSEMBLY">/dev/null 2>&1; then
48 if [ ! $2 ]; then
49 rm $name.lst
50 fi
51 echo "DAP-16 assembly successfull :-)"
52 exit 0
53fi
54cat $name.lst
55echo -e "\nDAP-16 assembly FAILED!"
56rm -f $name.obj
57exit 77
58