*** empty log message ***

diff --git a/bin/frun b/bin/frun
index 8dfcabe9a4700811578504eed038cf98006e0abc..b8675f1138254335bee8ec85e1653d8a983c4a4e 100755 (executable)
--- a/bin/frun
+++ b/bin/frun
@@ -8,23 +8,23 @@ fi
 
 name=`basename $1 .obj`
 
+LIBS= $H316/lib/fortran/fort.lib\
+      $H316/lib/iolib/io.lib\
+      $H316/lib/fortran/custom.lib
+
 echo "rest $H316/sys/super2.sys" > $name.go
 echo "at ptr $name.obj" >> $name.go
 echo "go" >> $name.go
 echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib1" >> $name.go
-echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib2" >> $name.go
-echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib3" >> $name.go
-echo "go" >> $name.go
-if [ -e $H316/lib/iolib/io.lib ]; then
-    echo "at ptr $H316/lib/iolib/io.lib" >> $name.go
-else
-    echo "io.lib nicht gefunden!"
-    exit 3
-fi
-echo "go" >> $name.go
+
+for library in $LIBS; do
+    if [ ! -e $library]; then
+       echo "Error: $library not found!"
+       exit 3;
+    fi
+    echo "at ptr $library" >> $name.go
+    echo "go" >> $name.go
+done
 echo "r" >> $name.go
 echo "! echo -e \"\\n************************\"" >> $name.go
 echo "run 1000" >> $name.go

diff --git a/docs/manual/assembler.tex b/docs/manual/assembler.tex
index 427440eda6461f61d78e3a9301e2da97185f6dba..22073e464bb4983e30ce52517fc81a17391e7b58 100644 (file)
--- a/docs/manual/assembler.tex
+++ b/docs/manual/assembler.tex
@@ -56,7 +56,7 @@ Daf
 \item nach dem ersten Durchlauf Band wieder einlegen, wieder \verb:START: drücken.
 \end{enumerate}
 \vspace{0.5cm}
-Einstellungen für's A-Register:
+Einstellungen im A-Register:
 \begin{verbatim}
 Bit  1:  Immer setzen für 2-pass-Assemblierung
 

diff --git a/lib/fortran/Makefile b/lib/fortran/Makefile
index 3ac63b1b29a3b985458d30a8b51c43d08b82d2da..aaec19e86c4a10fa811c391c316bcb7a14737fc7 100644 (file)
--- a/lib/fortran/Makefile
+++ b/lib/fortran/Makefile
@@ -33,6 +33,7 @@ clean:
        @rm -rf $(OBJ_DIR) $(LIB_DIR)  *.lst *.go 
        @rm -f $(SRC_DIR)/vpunch.asm $(SRC_DIR)/vpunch.2
        @$(MAKE) -s  -C vpunch-help clean
+       @rm -r org
 
 vpunch-help/use: vpunch-help/use.c vpunch-help/font_8x16.c
        $(MAKE) -C vpunch-help use
@@ -43,5 +44,8 @@ src/vpunch.2: vpunch-help/use
 src/vpunch.asm: src/vpunch.1 src/vpunch.2
        cat src/vpunch.1 src/vpunch.2 > src/vpunch.asm
 
-.PHONY: clean all
+org:
+       makeorg.sh
+
+.PHONY: clean all org
 

diff --git a/lib/fortran/src/vpunch.2 b/lib/fortran/src/vpunch.2
index f80814ae54dffb7db67c635c6b83acaebe56bd34..61e140cfee0559e1001bff75038c2150ea6efe5e 100644 (file)
--- a/lib/fortran/src/vpunch.2
+++ b/lib/fortran/src/vpunch.2
@@ -1,4 +1,3 @@
-       SUBR    FONT
 FONT   DEC     0,0,0,0
        DEC     0,0,0,0
        DEC     0,32385,-23167,-32323