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
@./buildlib.sh makeorg
$(OBJECTS): $(OBJECT_FILES) $(F4_OBJECT_FILES)
- @#$(MAKE) $(subst $$,\$$,$?)
+# @$(MAKE) $(subst $$,\$$,$?)
$(OBJECT_FILES):$(OBJ_DIR)/%.obj : $(SRC_DIR)/%.asm
# @echo Building: $(subst $$,\$$,$@)
@ 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)
--- /dev/null
+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