global: Small fixes to asm scripts ("==" problem)
[h316.git] / bin / asm_original
CommitLineData
fa105a9b 1#!/bin/sh
2# Assembler wrapper for simh h316
3
4if [ ! $1 ] ; then
d6a1a234 5 echo "Assembler (Original): Input file missing!"
fa105a9b 6 exit 2
7fi
8
d6a1a234 9echo -en "Assembler (Original): Translating \"$1\":"
fa105a9b 10
11for n in $*; do
2a870fd8 12 if [ $n = "/v" ]; then
fa105a9b 13 VERBOSE=yes
14 fi
15done
16
17name=`basename $1 .asm`
18listfile=$name.lst
19
20cat $1 | tab | paron > $name.par
21
22rm -f $name.lst
23rm -f $name.obj
24
25cat > $name.go <<EOF
26at ptr $H316/honeywell/slst/dap_8k.slst
27boot ptr
28r
29d a 120420
30d p 1000
31at ptr $name.par
32at ptp $name.obj
33at tty3 $listfile
34set tty3 uascii
35set tty3 start
36go
37d ptr pos 0
38go
39quit
40EOF
41
2a870fd8 42if [ "$VERBOSE" = "yes" ]; then
fa105a9b 43 h316 $name.go
44else
45 h316 $name.go > /dev/null
46fi
47
48
49if cat $name.lst | grep "NO ERRORS IN ABOVE ASSEMBLY">/dev/null 2>&1; then
50 if [ ! $2 ]; then
51 rm $name.lst
52 rm -f $name.par
53 rm -f $name.go
54 fi
d6a1a234 55 echo " Success."
fa105a9b 56 exit 0
57fi
58cat $name.lst
d6a1a234 59echo -e " Failed."
fa105a9b 60rm -f $name.obj
61exit 77
62