projects
/
h316.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7128b57
)
*** empty log message ***
author
hachti
<hachti>
Sat, 7 Mar 2009 15:33:50 +0000
(15:33 +0000)
committer
hachti
<hachti>
Sat, 7 Mar 2009 15:33:50 +0000
(15:33 +0000)
bin/super3
patch
|
blob
|
blame
|
history
config/libs.config
patch
|
blob
|
blame
|
history
lib/fortran/recipe/flib3.recipe
patch
|
blob
|
blame
|
history
lib/hachti/src/pl$mv.asm
patch
|
blob
|
blame
|
history
lib/iolib/Makefile
patch
|
blob
|
blame
|
history
programs/plotter/src/pentagramm.f
patch
|
blob
|
blame
|
history
programs/plotter/src/plotapfel2.f
patch
|
blob
|
blame
|
history
programs/plotter/src/sinus.f
patch
|
blob
|
blame
|
history
programs/plotter/src/stern.f
patch
|
blob
|
blame
|
history
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
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
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/fortran/lib/math.lib\
$H316/lib/iolib/lib/io.lib\
$H316/lib/hachti/lib/stack.lib\
+ $H316/lib/hachti/lib/lock.lib\
"
#LOAD_LIBS="\
"
#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
org/F$F5
org/F$IO
org/F$HT
-
#
obj/PCHAR
+ obj/PCHAR
# obj/LPCHAR
# obj/UCHAR
obj/REBOOT
# 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$MV,MOVE
+ SUBR PL$RST,RST
SUBR PL$X,XU
SUBR PL$Y,YU
SUBR PL$MVR,MVR
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 $$,\$$,$@))
@ 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)
@./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
C
C
C
@@
-6,12
+6,12
@@
C
INTEGER RADIUS
REAL RADIUR,RADF
C
INTEGER RADIUS
REAL RADIUR,RADF
C
- RADIUS=
1
00
+ RADIUS=
4
00
RADIUR=RADIUS
PI=3.14159265
RADF=(2.0*PI)/360.0
C
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
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
WRITE (1,55)
55 FORMAT (1H0)
C
+ CALL PLOTI
CALL CALC2
C
WRITE(1, 60)
CALL CALC2
C
WRITE(1, 60)
@@
-108,7
+109,9
@@
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
SUBROUTINE PLOTI
INTEGER PEN,PENX
COMMON /PENSTA/PEN,PENX
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
PEN=0
PENX=0
RETURN
@@
-120,9
+123,9
@@
C
CALL PL$R
IF (PEN.EQ.0) CALL PL$PD
PEN=1
CALL PL$R
IF (PEN.EQ.0) CALL PL$PD
PEN=1
- CALL PL$U
P
+ CALL PL$U
CALL PL$R
CALL PL$R
- CALL PL$D
N
+ CALL PL$D
PENX=PENX+2
RETURN
END
PENX=PENX+2
RETURN
END
@@
-147,8
+150,8
@@
C
PENX=PENX-1
GO TO 8000
8100 CONTINUE
PENX=PENX-1
GO TO 8000
8100 CONTINUE
- CALL PL$D
N
- CALL PL$D
N
+ CALL PL$D
+ CALL PL$D
RETURN
END
C
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
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
C
CALL GITTER
CALL PL$PU
@@
-54,7
+56,8
@@
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
SUBROUTINE GITTER
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
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 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
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
C
C
10000 CALL REBOOT
+ CALL LIBLOK
END
$0
END
$0