From: hachti <hachti>
Date: Mon, 25 Aug 2008 21:23:07 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?p=h316.git;a=commitdiff_plain;h=920d9d917816047e4c0faa2eb66b72b2406bd601

*** empty log message ***
---

diff --git a/lib/hachti/Makefile b/lib/hachti/Makefile
index 24a97d4..54910eb 100644
--- a/lib/hachti/Makefile
+++ b/lib/hachti/Makefile
@@ -12,7 +12,7 @@ export ORG_OBJDIR=org
 
 export MAKE
 
-MODULES = font pl$$mv  pl$$txt  pl$$u stack matrix endlib oct
+MODULES = font pl$$mv  pl$$txt  pl$$u stack matrix oct
 F4_MODULES=pmat graphics
 
 FRTN_COMMAND = frtn
@@ -47,7 +47,7 @@ $(ORG_OBJDIR)/lastrun: $(ORG_LIBDIR)/*
 	@./buildlib.sh makeorg
 
 $(OBJECTS): $(OBJECT_FILES) $(F4_OBJECT_FILES)
-	@#$(MAKE) $(subst $$,\$$,$?)
+#	@$(MAKE) $(subst $$,\$$,$?)
 
 $(OBJECT_FILES):$(OBJ_DIR)/%.obj : $(SRC_DIR)/%.asm
 #	@echo Building: $(subst 	$$,\$$,$@)
@@ -65,8 +65,6 @@ $(F4_OBJECT_FILES):$(OBJ_DIR)/%.obj : $(SRC_DIR)/%.f
 	@ cd $(OBJ_DIR) && $(LDC_COMMAND) $(notdir $(subst $$,\$$,$@))
 
 
-# $(ORG_OBJDIR)/lastrun
-
 $(LIBS):$(LIB_DIR)/%.lib: $(RECIPE_DIR)/%$(RECIPE_SUFFIX)   $(OBJECTS)
 	@./buildlib.sh genlib $(RECIPE_DIR)/$(basename $(notdir $@))$(RECIPE_SUFFIX)
 
diff --git a/lib/hachti/recipe/stack.recipe b/lib/hachti/recipe/stack.recipe
new file mode 100644
index 0000000..ff2abed
--- /dev/null
+++ b/lib/hachti/recipe/stack.recipe
@@ -0,0 +1,5 @@
+# Stack operations
+obj/STACK
+
+
+
diff --git a/lib/hachti/src/graphics.f b/lib/hachti/src/graphics.f
new file mode 100644
index 0000000..67208ee
--- /dev/null
+++ b/lib/hachti/src/graphics.f
@@ -0,0 +1,28 @@
+C SOME LITTLE GRAPHIC ROUTINES
+C
+C
+C
+      SUBROUTINE BOX(X,Y,W,H)
+      INTEGER X,Y,W,H
+
+      CALL PL$LN(X,Y,X,Y+H)
+      CALL PL$LN(X,Y+H,X+W,Y+H)
+      CALL PL$LN(X+W,Y+H,X+W,Y)
+      CALL PL$LN(X,Y,X+W,Y)
+      CALL PL$PU
+      RETURN
+      END
+
+      SUBROUTINE SQUARE(X,Y,L)
+      INTEGER X,Y,L
+      CALL PL$LN(X,Y,X,Y+L)
+      CALL PL$LN(X,Y+L,X+L,Y+L)
+      CALL PL$LN(X+L,Y+L,X+L,Y)
+      CALL PL$LN(X,Y,X+L,Y)
+      CALL PL$PU
+      RETURN
+      END
+
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+$0