bin/fboot

   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
  10 if [ ! "$H316" ]; then
  11     echo "H316 variable not set!"
  12     exit 2
  13 fi
  14
  15 if [ ! -e "$H316/config/libs.config" ]; then
  16     echo "H316/config/libs.config not found!"
  17     exit 2
  18 else
  19     source "$H316/config/libs.config"
  20 fi
  21
  22 objname=$1
  23 locname=`basename $1 .obj`
  24
  25 echo $locname
  26 echo $objname
  27
  28 cat > $locname.go <<EOF
  29 rest $H316/sys/super3.sys
  30 at ptr $objname
  31 run 36000
  32 go
  33 e p
  34 EOF
  35
  36 for library in $LOAD_LIBS; do
  37     if [ ! -e "$library" ]; then
  38         echo "Error: $library not found!"
  39         exit 3;
  40     fi
  41     echo "at ptr $library" >> $locname.go
  42     echo "go" >> $locname.go
  43 done
  44
  45 cat >> $locname.go <<EOF
  46 !echo -e "\n************************"
  47 run 36002
  48 ! echo -e "\n************************"
  49
  50 r
  51 at ptp /dev/lp0
  52 d p 37000
  53 d a 1000
  54 go
  55 d a 100
  56 go
  57 d a 37577
  58 go
  59 quit
  60 EOF
  61
  62 #cat $locname.go
  63 h316 $locname.go
  64 rm -f $locname.go
  65
  66
  67 exit 0
  68
  69
  70