*** empty log message ***

diff --git a/bin/super3 b/bin/super3
index f2ec8f17c2cbc392bfc7f1effdcfd34e0252d9d9..3ceccbff034e35ef99375d982469ff484ff6397c 100755 (executable)
--- a/bin/super3
+++ b/bin/super3
@@ -4,6 +4,11 @@ rest $H316/sys/super3.sys
 echo Super 3 loaded.
 EOF
 
+if [ -e "$1" ]; then
+    echo "echo Running $1." >> super3.do
+    echo "do $1" >> super3.do
+fi
+
 h316 super3.do
 rm -f super3.do
 

diff --git a/config/libs.config b/config/libs.config
index 9c4acdf4489164e5a3f1557a682bdf9206a67d48..fbfd44eee0191dfd8a6d947b1bceba53cab43523 100644 (file)
--- a/config/libs.config
+++ b/config/libs.config
@@ -8,6 +8,7 @@ LOAD_LIBS="\
  $H316/lib/fortran/lib/math.lib\
  $H316/lib/iolib/lib/io.lib\
  $H316/lib/hachti/lib/stack.lib\
+ $H316/lib/hachti/lib/lock.lib\
 "
 
 #LOAD_LIBS="\

diff --git a/lib/fortran/recipe/flib3.recipe b/lib/fortran/recipe/flib3.recipe
index 2849d0394cb9a8180f4f2f8078dab7b5dc95fa5f..af2dc3277d865635f37cc3105e6c152c98430283 100644 (file)
--- a/lib/fortran/recipe/flib3.recipe
+++ b/lib/fortran/recipe/flib3.recipe
@@ -21,7 +21,7 @@ org/F$B5
 org/F$F5
 org/F$IO
 org/F$HT
-#    obj/PCHAR
+    obj/PCHAR
 #    obj/LPCHAR
 #    obj/UCHAR
    obj/REBOOT

diff --git a/lib/hachti/src/pl$mv.asm b/lib/hachti/src/pl$mv.asm
index 89d360975c9b5b35c691b252ef3dc20359dd3f38..6e314c943645f2739e24933c42f163351b99226a 100644 (file)
--- a/lib/hachti/src/pl$mv.asm
+++ b/lib/hachti/src/pl$mv.asm
@@ -66,8 +66,8 @@
 *
 ********************************************************************************
 *       
-       SUBR    PL$RST,RST
        SUBR    PL$MV,MOVE
+       SUBR    PL$RST,RST
        SUBR    PL$X,XU
        SUBR    PL$Y,YU
        SUBR    PL$MVR,MVR

diff --git a/lib/iolib/Makefile b/lib/iolib/Makefile
index 46ab50719ae4b177eb75b4561978d6bc2d4affb7..587fc2a3946b029ea8e67f6dccfa8fb0b28095f7 100644 (file)
--- a/lib/iolib/Makefile
+++ b/lib/iolib/Makefile
@@ -63,7 +63,7 @@ $(OBJECT_FILES) : $(OBJ_DIR)/%.obj : $(SRC_DIR)/%.asm
        @ cd $(OBJ_DIR) && $(ASM_COMMAND) ../$(subst $$,\$$,$^) $(LISTING)
        @ cd $(OBJ_DIR) && $(LDC_COMMAND) $(notdir $(subst $$,\$$,$@))
 
-$(LIBS):$(LIB_DIR)/%.lib: $(RECIPE_DIR)/%$(RECIPE_SUFFIX) $(ORG_OBJDIR)/lastrun $(OBJECTS) 
+$(LIBS):$(LIB_DIR)/%.lib: $(RECIPE_DIR)/%$(RECIPE_SUFFIX) $(ORG_OBJDIR)/lastrun $(OBJECTS)
        @./buildlib.sh genlib $(RECIPE_DIR)/$(basename $(notdir $@))$(RECIPE_SUFFIX)
 
 

diff --git a/programs/plotter/src/pentagramm.f b/programs/plotter/src/pentagramm.f
index e7270f0333289067f3c9517dcf81bc9e2faf5765..8c7f87fca3ad9eaea01fbca23b8421a820f094e4 100644 (file)
--- a/programs/plotter/src/pentagramm.f
+++ b/programs/plotter/src/pentagramm.f
@@ -1,4 +1,4 @@
-C
+C DRAW A PENTAGRAM IN A CIRCLE
 C
 C
 C
@@ -6,12 +6,12 @@ C
       INTEGER RADIUS
       REAL RADIUR,RADF
 C
-      RADIUS=100
+      RADIUS=400
       RADIUR=RADIUS
       PI=3.14159265
       RADF=(2.0*PI)/360.0
 C
-      CALL PL$RST
+      CALL PL$INI
       CALL PL$MV(RADIUS,RADIUS)
       CALL PL$RST
 C     

diff --git a/programs/plotter/src/plotapfel2.f b/programs/plotter/src/plotapfel2.f
index 95aae1ecc5969197a4b7318fdeef9177657eef6e..4f25c4cc5499fe5987c5cd96b9330d6ae951c056 100644 (file)
--- a/programs/plotter/src/plotapfel2.f
+++ b/programs/plotter/src/plotapfel2.f
@@ -41,6 +41,7 @@ C
        WRITE  (1,55)
  55    FORMAT (1H0)
 C
+       CALL PLOTI
        CALL CALC2
 C
        WRITE(1, 60)
@@ -108,7 +109,9 @@ CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
       SUBROUTINE PLOTI
       INTEGER PEN,PENX
       COMMON /PENSTA/PEN,PENX
-      CALL PL$UP
+      CALL PL$INI
+      CALL PL$SCL(3.0)
+      CALL PL$PU
       PEN=0
       PENX=0
       RETURN
@@ -120,9 +123,9 @@ C
       CALL PL$R
       IF (PEN.EQ.0) CALL PL$PD
       PEN=1
-      CALL PL$UP
+      CALL PL$U
       CALL PL$R
-      CALL PL$DN
+      CALL PL$D
       PENX=PENX+2
       RETURN
       END
@@ -147,8 +150,8 @@ C
       PENX=PENX-1
       GO TO 8000
  8100 CONTINUE
-      CALL PL$DN
-      CALL PL$DN
+      CALL PL$D
+      CALL PL$D
       RETURN
       END
 C

diff --git a/programs/plotter/src/sinus.f b/programs/plotter/src/sinus.f
index 42a36caeb17ebea3f219c9ef7c76dbf3e4bfdb23..0e52e0395601de3545aaeb9c9179c2bc028ae6f2 100644 (file)
--- a/programs/plotter/src/sinus.f
+++ b/programs/plotter/src/sinus.f
@@ -4,7 +4,9 @@ C
       INTEGER X,Y
 C
 C
- 1000 CALL PL$RST
+C
+ 1000 CALL PL$INI
+      CALL PL$SCL(2.54)
 C
       CALL GITTER
       CALL PL$PU
@@ -54,7 +56,8 @@ C
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
 C
       SUBROUTINE GITTER
-      INTEGER X,Y
+      INTEGER X,Y,STAK(400)
+      CALL S$INIT(STAK,400)
       DO 2000 X=0,600,50
          CALL LINE(X,-100,X,100)
  2000 CONTINUE
@@ -71,6 +74,9 @@ C
       CALL LINE (0,-1,600,-1)
       CALL LINE (-1,-100,-1,100)
       CALL LINE (1,-100,1,100)
+      CALL PL$PU
+      CALL PL$MV(0,110)
+      CALL PL$TXT(STAK,37HSinus-Demo, 08.11.2008, Ph. Hachtmann,37)
 C
       RETURN
       END

diff --git a/programs/plotter/src/stern.f b/programs/plotter/src/stern.f
index efc9c4d702c6ff0ec22d9a19a4f6fb9d5f8aff7f..e64a99175b4f885fb797aac4b1d5d7fa82659c1e 100644 (file)
--- a/programs/plotter/src/stern.f
+++ b/programs/plotter/src/stern.f
@@ -24,6 +24,7 @@ C
 C
 C
 10000 CALL REBOOT     
+      CALL LIBLOK
       END
 $0