bin/asm

   1 #!/bin/sh
   2 # Assembler wrapper for simh h316
   3
   4 if [ ! $1 ] ; then
   5     echo "Argument mising!"
   6     exit 2
   7 fi
   8
   9 name=`basename $1 .asm`
  10 listfile=$name.lst
  11
  12 cat $1 | tab | paron > $name.par
  13
  14 rm  -f $name.lst
  15 rm  -f $name.obj
  16
  17 cat > $name.go <<EOF
  18 rest  $H316/sys/dap.sys
  19 d a 120420
  20 at ptr $name.par
  21 at ptp $name.obj
  22 at tty3 $listfile
  23 set tty3 uascii
  24 set tty3 start
  25 go
  26 d ptr pos 0
  27 go
  28 quit
  29 EOF
  30
  31 h316 $name.go > /dev/null
  32
  33 rm -f $name.par
  34 rm -f $name.go
  35
  36 if cat $name.lst | grep "NO ERRORS IN ABOVE ASSEMBLY">/dev/null 2>&1; then
  37         if [ !  $2  ]; then
  38                 rm $name.lst
  39         fi
  40         echo "DAP-16 assembly successfull :-)"
  41         exit 0
  42 fi
  43 cat $name.lst
  44 echo -e "\nDAP-16 assembly FAILED!"
  45 rm -f $name.obj
  46 exit 77
  47