bin/fload

   1 #!/bin/bash
   2 # FORTRAN IV simple loading routine
   3
   4 if [ ! $1 ] ; then
   5     echo "Argument missing!"
   6     exit 2
   7 fi
   8
   9 objname=$1
  10 locname=`basename $1 .obj`
  11
  12 echo $locname
  13 echo $objname
  14
  15 LIBS="$H316/lib/fortran/lib/flib1.lib\
  16         $H316/lib/fortran/lib/flib2.lib\
  17         $H316/lib/fortran/lib/flib3.lib\
  18         $H316/lib/iolib/lib/io.lib\
  19 "
  20
  21
  22 cat > $locname.go <<EOF
  23 rest $H316/sys/super3.sys
  24 at ptr $objname
  25 run 36000
  26 go
  27 e p
  28 EOF
  29
  30 for library in $LIBS; do
  31     if [ ! -e "$library" ]; then
  32         echo "Error: $library not found!"
  33         exit 3;
  34     fi
  35     echo "at ptr $library" >> $locname.go
  36     echo "go" >> $locname.go
  37 done
  38
  39 cat >> $locname.go <<EOF
  40 !echo -e "\n************************"
  41 run 36002
  42 ! echo -e "\n************************"
  43 set cpu history=65536
  44 set break 0-17
  45 EOF
  46
  47 #cat $locname.go
  48 h316 $locname.go
  49 rm -f $locname.go
  50
  51 exit 0
  52
  53
  54