Changed everything towards LDC2 use.

[h316.git] / bin / fboot

#!/bin/bash
# FORTRAN IV simple loading routine

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

objname=$1
locname=`basename $1 .obj`

echo $locname
echo $objname

LIBS="$H316/lib/fortran/lib/flib1.lib\
	$H316/lib/fortran/lib/flib2.lib\
	$H316/lib/fortran/lib/flib3.lib\
	$H316/lib/iolib/lib/io.lib
"


cat > $locname.go <<EOF
rest $H316/sys/super3.sys
at ptr $objname
run 36000
go
e p
EOF

for library in $LIBS; do
    if [ ! -e "$library" ]; then
	echo "Error: $library not found!"
	exit 3;
    fi
    echo "at ptr $library" >> $locname.go
    echo "go" >> $locname.go
done

cat >> $locname.go <<EOF
!echo -e "\n************************"
run 36002
! echo -e "\n************************"

r
at ptp /dev/lp0
d p 37000
d a 1000
go
d a 100
go
d a 37577
go
quit
EOF
    
#cat $locname.go
h316 $locname.go 
rm -f $locname.go


exit 0