Added start address thing.

[h316.git] / bin / asm

#!/bin/sh
# Assembler wrapper for simh h316

if [ ! $1 ] ; then
    echo "Argument missing!"
    exit 2
fi

for n in $*; do
  if [ $n == "/v" ]; then
    VERBOSE=yes
  fi
done

name=`basename $1 .asm`
listfile=$name.lst

cat $1 | tab | paron > $name.par

rm  -f $name.lst
rm  -f $name.obj

cat > $name.go <<EOF
rest  $H316/sys/dap.sys
r
d a 120420
d p 1000 
at ptr $name.par 
at ptp $name.obj 
at tty3 $listfile 
set tty3 uascii 
set tty3 start 
go 
d ptr pos 0 
go 
quit 
EOF

if [ "$VERBOSE" == "yes" ]; then
  h316 $name.go 
else
  h316 $name.go > /dev/null
fi

rm -f $name.par
rm -f $name.go

if cat $name.lst | grep "NO ERRORS IN ABOVE ASSEMBLY">/dev/null 2>&1; then
	if [ !  $2  ]; then
		rm $name.lst
	fi
	echo "DAP-16 assembly successfull :-)"
	exit 0
fi
cat $name.lst
echo -e "\nDAP-16 assembly FAILED!"
rm -f $name.obj
exit 77