Moved the 'graph' files from 'geos-cbm' to 'geos-common' which are believed to work...

git-svn-id: svn://svn.cc65.org/cc65/trunk@5439 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/geos-cbm/graph/Makefile b/libsrc/geos-cbm/graph/Makefile
deleted file mode 100644 (file)
index 9973a06..0000000
--- a/libsrc/geos-cbm/graph/Makefile
+++ /dev/null
@@ -1,35 +0,0 @@
-#
-# makefile for CC65 runtime library
-#
-
-#--------------------------------------------------------------------------
-# Object files
-
-S_OBJS +=      drawline.o              \
-               drawpoint.o             \
-               framerectangle.o        \
-               hlineregs.o             \
-               horizontalline.o        \
-               imprintrectangle.o      \
-               invertline.o            \
-               invertrectangle.o       \
-               pointregs.o             \
-               recoverline.o           \
-               recoverrectangle.o      \
-               rectangle.o             \
-               initdrawwindow.o        \
-               setpattern.o            \
-               testpoint.o             \
-               verticalline.o          \
-               put_char.o              \
-               putdecimal.o            \
-               putstring.o             \
-               usesystemfont.o         \
-               getcharwidth.o          \
-               loadcharset.o           \
-               bitmapup.o              \
-               bitmapregs.o            \
-               bitmapclip.o            \
-               bitotherclip.o          \
-               graphicsstring.o        \
-               getintcharint.o

diff --git a/libsrc/geos-cbm/graph/bitmapclip.s b/libsrc/geos-cbm/graph/bitmapclip.s
deleted file mode 100644 (file)
index 5785cb4..0000000
--- a/libsrc/geos-cbm/graph/bitmapclip.s
+++ /dev/null
@@ -1,25 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 21.12.99
-
-; void BitmapClip      (char skipl, char skipr, int skipy, struct iconpic *myGfx);
-
-           .import popa, popax
-           .import BitmapRegs
-           .export _BitmapClip
-
-           .include "jumptab.inc"
-           .include "geossym.inc"
-
-_BitmapClip:
-           jsr BitmapRegs
-           jsr popax
-           sta r12L
-           stx r12H
-           jsr popa
-           sta r11H
-           jsr popa
-           sta r11L
-           jmp BitmapClip

diff --git a/libsrc/geos-cbm/graph/bitmapregs.s b/libsrc/geos-cbm/graph/bitmapregs.s
deleted file mode 100644 (file)
index c1824ff..0000000
--- a/libsrc/geos-cbm/graph/bitmapregs.s
+++ /dev/null
@@ -1,22 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 21.12.99
-
-           .importzp ptr4
-           
-           .export BitmapRegs
-
-           .include "geossym.inc"
-
-BitmapRegs:                    ;a/x is a struct iconpic*
-           sta ptr4
-           stx ptr4+1
-           ldy #0
-bmpLp:     lda (ptr4),y
-           sta r0L,y
-           iny
-           cpy #6
-           bne bmpLp
-           rts

diff --git a/libsrc/geos-cbm/graph/bitmapup.s b/libsrc/geos-cbm/graph/bitmapup.s
deleted file mode 100644 (file)
index dc87fe3..0000000
--- a/libsrc/geos-cbm/graph/bitmapup.s
+++ /dev/null
@@ -1,17 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 21.12.99
-
-; void BitmapUp        (struct iconpic *myGfx);
-
-
-           .import BitmapRegs
-           .export _BitmapUp
-
-           .include "jumptab.inc"
-
-_BitmapUp:
-           jsr BitmapRegs
-           jmp BitmapUp

diff --git a/libsrc/geos-cbm/graph/bitotherclip.s b/libsrc/geos-cbm/graph/bitotherclip.s
deleted file mode 100644 (file)
index 1d6ddab..0000000
--- a/libsrc/geos-cbm/graph/bitotherclip.s
+++ /dev/null
@@ -1,37 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 21.12.99
-
-; void BitOtherClip    (void *proc1, void* proc2, char skipl, char skipr, int skipy, 
-;                              struct iconpic *myGfx);
-
-; both proc1, proc2 should be: char __fastcall something (void);
-;      proc1 is called before reading a byte (.A returns next data)
-;      proc2 is called before reading each byte which is not pattern (code >219)
-
-
-           .import popa, popax
-           .import BitOtherRegs
-           .export _BitOtherClip
-
-           .include "jumptab.inc"
-           .include "geossym.inc"
-
-_BitOtherClip:
-           jsr BitOtherRegs
-           jsr popax
-           sta r12L
-           stx r12H
-           jsr popa
-           sta r11H
-           jsr popa
-           sta r11L
-           jsr popax
-           sta r14L
-           stx r14H
-           jsr popax
-           sta r13L
-           stx r13H
-           jmp BitOtherClip

diff --git a/libsrc/geos-cbm/graph/drawline.s b/libsrc/geos-cbm/graph/drawline.s
deleted file mode 100644 (file)
index 7903056..0000000
--- a/libsrc/geos-cbm/graph/drawline.s
+++ /dev/null
@@ -1,31 +0,0 @@
-
-;
-; Maciej 'YTM/Elysium' Witkowiak
-;
-; 29.10.99, 5.03.2003
-
-; void DrawLine         (char mode, struct window *mywindow);
-
-           .import _InitDrawWindow
-           .import popa
-           .importzp tmp1
-           .export _DrawLine
-
-           .include "jumptab.inc"
-           .include "geossym.inc"
-           .include "geosmac.ca65.inc"
-
-_DrawLine:
-           tay
-           PushW r2
-           tya
-           jsr _InitDrawWindow
-           MoveW r2, r11
-           PopW r2
-           jsr popa
-           sta tmp1
-           clc
-           bit tmp1
-           bvc @1
-           sec
-@1:        jmp DrawLine

diff --git a/libsrc/geos-cbm/graph/drawpoint.s b/libsrc/geos-cbm/graph/drawpoint.s
deleted file mode 100644 (file)
index d8fac4d..0000000
--- a/libsrc/geos-cbm/graph/drawpoint.s
+++ /dev/null
@@ -1,25 +0,0 @@
-
-;
-; Maciej 'YTM/Elysium' Witkowiak
-;
-; 29.10.99, 05.3.2003
-
-; void DrawPoint       (char mode, struct pixel *mypixel);
-
-
-           .import PointRegs
-           .import popa
-           .importzp tmp1
-           .export _DrawPoint
-
-           .include "jumptab.inc"
-
-_DrawPoint:
-           jsr PointRegs
-           jsr popa
-           sta tmp1
-           clc
-           bit tmp1
-           bvc @1
-           sec
-@1:        jmp DrawPoint

diff --git a/libsrc/geos-cbm/graph/framerectangle.s b/libsrc/geos-cbm/graph/framerectangle.s
deleted file mode 100644 (file)
index d8bcc3c..0000000
--- a/libsrc/geos-cbm/graph/framerectangle.s
+++ /dev/null
@@ -1,13 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void FrameRectangle   (char pattern);
-
-           .export _FrameRectangle
-
-           .include "jumptab.inc"
-           
-_FrameRectangle = FrameRectangle

diff --git a/libsrc/geos-cbm/graph/getcharwidth.s b/libsrc/geos-cbm/graph/getcharwidth.s
deleted file mode 100644 (file)
index 0f971a8..0000000
--- a/libsrc/geos-cbm/graph/getcharwidth.s
+++ /dev/null
@@ -1,16 +0,0 @@
-
-;
-; Maciej 'YTM/Elysium' Witkowiak
-;
-; 21.12.1999, 2.1.2003
-
-; char GetCharWidth (char character);
-
-           .export _GetCharWidth
-
-           .include "jumptab.inc"
-
-_GetCharWidth:
-           jsr GetCharWidth
-           ldx #0
-           rts

diff --git a/libsrc/geos-cbm/graph/getintcharint.s b/libsrc/geos-cbm/graph/getintcharint.s
deleted file mode 100644 (file)
index 1c31df4..0000000
--- a/libsrc/geos-cbm/graph/getintcharint.s
+++ /dev/null
@@ -1,21 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 11.03.2000
-
-           .import popa, popax
-           .export getintcharint
-
-           .include "geossym.inc"
-
-getintcharint:
-           sta r11L
-           stx r11H
-           jsr popa
-           sta r1H
-           jsr popax
-           sta r0L
-           stx r0H
-           rts
-

diff --git a/libsrc/geos-cbm/graph/graphicsstring.s b/libsrc/geos-cbm/graph/graphicsstring.s
deleted file mode 100644 (file)
index 5dc3064..0000000
--- a/libsrc/geos-cbm/graph/graphicsstring.s
+++ /dev/null
@@ -1,17 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 25.12.99
-
-; void GraphicsString         (char *myString);
-
-           .export _GraphicsString
-
-           .include "jumptab.inc"
-           .include "geossym.inc"
-
-_GraphicsString:
-           sta r0L
-           stx r0H
-           jmp GraphicsString

diff --git a/libsrc/geos-cbm/graph/hlineregs.s b/libsrc/geos-cbm/graph/hlineregs.s
deleted file mode 100644 (file)
index 921081e..0000000
--- a/libsrc/geos-cbm/graph/hlineregs.s
+++ /dev/null
@@ -1,22 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-
-           .import popax, popa
-
-           .export HLineRegs
-
-           .include "geossym.inc"
-
-HLineRegs:
-           stx r4H
-           sta r4L
-           jsr popax
-           stx r3H
-           sta r3L
-           jsr popa
-           sta r11L
-           rts

diff --git a/libsrc/geos-cbm/graph/horizontalline.s b/libsrc/geos-cbm/graph/horizontalline.s
deleted file mode 100644 (file)
index 7d8ecf1..0000000
--- a/libsrc/geos-cbm/graph/horizontalline.s
+++ /dev/null
@@ -1,19 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void HorizontalLine (char pattern, char y, int xstart, int xend);
-
-           .import popa
-           .import HLineRegs
-           
-           .export _HorizontalLine
-
-           .include "jumptab.inc"
-
-_HorizontalLine:
-           jsr HLineRegs
-           jsr popa
-           jmp HorizontalLine

diff --git a/libsrc/geos-cbm/graph/imprintrectangle.s b/libsrc/geos-cbm/graph/imprintrectangle.s
deleted file mode 100644 (file)
index 61cfb7f..0000000
--- a/libsrc/geos-cbm/graph/imprintrectangle.s
+++ /dev/null
@@ -1,14 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 21.12.99
-
-; void ImprintRectangle (void);
-           
-           .export _ImprintRectangle
-
-           .include "jumptab.inc"
-           
-_ImprintRectangle = ImprintRectangle
-

diff --git a/libsrc/geos-cbm/graph/initdrawwindow.s b/libsrc/geos-cbm/graph/initdrawwindow.s
deleted file mode 100644 (file)
index e34ee5c..0000000
--- a/libsrc/geos-cbm/graph/initdrawwindow.s
+++ /dev/null
@@ -1,25 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-; 11.03.2000
-
-; void InitDrawWindow (struct window *myWindow);
-
-           .importzp ptr4
-           
-           .export _InitDrawWindow
-
-           .include "geossym.inc"
-
-_InitDrawWindow:                       ;a/x is a struct window*
-           sta ptr4
-           stx ptr4+1
-           ldy #0
-copyWin:    lda (ptr4),y
-           sta r2L,y
-           iny
-           cpy #6
-           bne copyWin
-           rts

diff --git a/libsrc/geos-cbm/graph/invertline.s b/libsrc/geos-cbm/graph/invertline.s
deleted file mode 100644 (file)
index 9456c7b..0000000
--- a/libsrc/geos-cbm/graph/invertline.s
+++ /dev/null
@@ -1,16 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void InvertLine     (char y, int xstart, int xend);
-
-           .import HLineRegs
-           .export _InvertLine
-
-           .include "jumptab.inc"
-           
-_InvertLine:
-           jsr HLineRegs
-           jmp InvertLine

diff --git a/libsrc/geos-cbm/graph/invertrectangle.s b/libsrc/geos-cbm/graph/invertrectangle.s
deleted file mode 100644 (file)
index aac5176..0000000
--- a/libsrc/geos-cbm/graph/invertrectangle.s
+++ /dev/null
@@ -1,14 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void InvertRectangle  (void);
-
-           .export _InvertRectangle
-           
-           .include "jumptab.inc"
-
-_InvertRectangle = InvertRectangle
-

diff --git a/libsrc/geos-cbm/graph/loadcharset.s b/libsrc/geos-cbm/graph/loadcharset.s
deleted file mode 100644 (file)
index 5032750..0000000
--- a/libsrc/geos-cbm/graph/loadcharset.s
+++ /dev/null
@@ -1,17 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 21.12.99
-
-; void LoadCharSet (struct fontdesc *myFont);
-
-           .export _LoadCharSet
-
-           .include "jumptab.inc"
-           .include "geossym.inc"
-
-_LoadCharSet:
-           sta r0L
-           stx r0H
-           jmp LoadCharSet

diff --git a/libsrc/geos-cbm/graph/pointregs.s b/libsrc/geos-cbm/graph/pointregs.s
deleted file mode 100644 (file)
index a9cef94..0000000
--- a/libsrc/geos-cbm/graph/pointregs.s
+++ /dev/null
@@ -1,25 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-           .importzp ptr4
-           
-           .export PointRegs
-
-           .include "geossym.inc"
-
-PointRegs:                     ;a/x is a struct pixel*
-           sta ptr4
-           stx ptr4+1
-           ldy #0
-           lda (ptr4),y
-           sta r3L
-           iny
-           lda (ptr4),y
-           sta r3H
-           iny
-           lda (ptr4),y
-           sta r11L
-           rts

diff --git a/libsrc/geos-cbm/graph/put_char.s b/libsrc/geos-cbm/graph/put_char.s
deleted file mode 100644 (file)
index 7f70668..0000000
--- a/libsrc/geos-cbm/graph/put_char.s
+++ /dev/null
@@ -1,21 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 30.10.99
-
-; void PutChar         (char character, char y, int x);
-
-           .import popa
-           .export _PutChar
-
-           .include "jumptab.inc"
-           .include "geossym.inc"
-
-_PutChar:
-           sta r11L
-           stx r11H
-           jsr popa
-           sta r1H
-           jsr popa
-           jmp PutChar

diff --git a/libsrc/geos-cbm/graph/putdecimal.s b/libsrc/geos-cbm/graph/putdecimal.s
deleted file mode 100644 (file)
index 918d0bd..0000000
--- a/libsrc/geos-cbm/graph/putdecimal.s
+++ /dev/null
@@ -1,18 +0,0 @@
-
-;
-; Maciej 'YTM/Elysium' Witkowiak
-;
-; 30.10.99, 17.8.2003
-
-; void PutDecimal         (char style, unsigned value, char y, int x);
-
-           .import popa, popax
-           .import getintcharint
-           .export _PutDecimal
-
-           .include "jumptab.inc"
-
-_PutDecimal:
-           jsr getintcharint
-           jsr popa
-           jmp PutDecimal

diff --git a/libsrc/geos-cbm/graph/putstring.s b/libsrc/geos-cbm/graph/putstring.s
deleted file mode 100644 (file)
index a962be2..0000000
--- a/libsrc/geos-cbm/graph/putstring.s
+++ /dev/null
@@ -1,17 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 30.10.99
-
-; void PutString       (char *mytxt, char y, int x);
-
-           .import popax, popa
-           .import getintcharint
-           .export _PutString
-
-           .include "jumptab.inc"
-
-_PutString:
-           jsr getintcharint
-           jmp PutString

diff --git a/libsrc/geos-cbm/graph/recoverline.s b/libsrc/geos-cbm/graph/recoverline.s
deleted file mode 100644 (file)
index 181507b..0000000
--- a/libsrc/geos-cbm/graph/recoverline.s
+++ /dev/null
@@ -1,18 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void RecoverLine    (char y, int xstart, int xend);
-
-           .import HLineRegs
-
-           .export _RecoverLine
-           
-           .include "jumptab.inc"
-
-_RecoverLine:
-           jsr HLineRegs
-           jmp RecoverLine
-

diff --git a/libsrc/geos-cbm/graph/recoverrectangle.s b/libsrc/geos-cbm/graph/recoverrectangle.s
deleted file mode 100644 (file)
index da0a5c4..0000000
--- a/libsrc/geos-cbm/graph/recoverrectangle.s
+++ /dev/null
@@ -1,14 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void RecoverRectangle (void);
-           
-           .export _RecoverRectangle
-
-           .include "jumptab.inc"
-           
-_RecoverRectangle = RecoverRectangle
-

diff --git a/libsrc/geos-cbm/graph/rectangle.s b/libsrc/geos-cbm/graph/rectangle.s
deleted file mode 100644 (file)
index b3afafa..0000000
--- a/libsrc/geos-cbm/graph/rectangle.s
+++ /dev/null
@@ -1,13 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void Rectangle        (void);
-
-           .export _Rectangle
-           
-           .include "jumptab.inc"
-
-_Rectangle = Rectangle

diff --git a/libsrc/geos-cbm/graph/setpattern.s b/libsrc/geos-cbm/graph/setpattern.s
deleted file mode 100644 (file)
index 1f437da..0000000
--- a/libsrc/geos-cbm/graph/setpattern.s
+++ /dev/null
@@ -1,13 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void SetPattern     (char pattern);
-
-           .export _SetPattern
-
-           .include "jumptab.inc"
-
-_SetPattern = SetPattern

diff --git a/libsrc/geos-cbm/graph/testpoint.s b/libsrc/geos-cbm/graph/testpoint.s
deleted file mode 100644 (file)
index 11af3da..0000000
--- a/libsrc/geos-cbm/graph/testpoint.s
+++ /dev/null
@@ -1,20 +0,0 @@
-
-;
-; Maciej 'YTM/Elysium' Witkowiak
-;
-; 29.10.1999, 2.1.2003
-
-; char TestPoint       (struct pixel *mypixel);
-
-           .import PointRegs
-           .import return0, return1
-           .export _TestPoint
-
-           .include "jumptab.inc"
-           
-_TestPoint:
-           jsr PointRegs
-           jsr TestPoint
-           bcc goFalse
-           jmp return1
-goFalse:    jmp return0

diff --git a/libsrc/geos-cbm/graph/usesystemfont.s b/libsrc/geos-cbm/graph/usesystemfont.s
deleted file mode 100644 (file)
index 4c732d5..0000000
--- a/libsrc/geos-cbm/graph/usesystemfont.s
+++ /dev/null
@@ -1,13 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 30.10.99
-
-; void UseSystemFont (void);
-
-           .export _UseSystemFont
-
-           .include "jumptab.inc"
-
-_UseSystemFont = UseSystemFont

diff --git a/libsrc/geos-cbm/graph/verticalline.s b/libsrc/geos-cbm/graph/verticalline.s
deleted file mode 100644 (file)
index a80bdd6..0000000
--- a/libsrc/geos-cbm/graph/verticalline.s
+++ /dev/null
@@ -1,24 +0,0 @@
-
-;
-; Maciej 'YTM/Alliance' Witkowiak
-;
-; 29.10.99
-
-; void VerticalLine   (char pattern, char ystart, char yend, int x);
-
-           .import popa
-                           
-           .export _VerticalLine
-
-           .include "jumptab.inc"
-           .include "geossym.inc"
-           
-_VerticalLine:
-           stx r4H
-           sta r4L
-           jsr popa
-           sta r3H
-           jsr popa
-           sta r3L
-           jsr popa
-           jmp VerticalLine

diff --git a/libsrc/geos-common/graph/Makefile b/libsrc/geos-common/graph/Makefile
new file mode 100644 (file)
index 0000000..9973a06
--- /dev/null
+++ b/libsrc/geos-common/graph/Makefile
@@ -0,0 +1,35 @@
+#
+# makefile for CC65 runtime library
+#
+
+#--------------------------------------------------------------------------
+# Object files
+
+S_OBJS +=      drawline.o              \
+               drawpoint.o             \
+               framerectangle.o        \
+               hlineregs.o             \
+               horizontalline.o        \
+               imprintrectangle.o      \
+               invertline.o            \
+               invertrectangle.o       \
+               pointregs.o             \
+               recoverline.o           \
+               recoverrectangle.o      \
+               rectangle.o             \
+               initdrawwindow.o        \
+               setpattern.o            \
+               testpoint.o             \
+               verticalline.o          \
+               put_char.o              \
+               putdecimal.o            \
+               putstring.o             \
+               usesystemfont.o         \
+               getcharwidth.o          \
+               loadcharset.o           \
+               bitmapup.o              \
+               bitmapregs.o            \
+               bitmapclip.o            \
+               bitotherclip.o          \
+               graphicsstring.o        \
+               getintcharint.o

diff --git a/libsrc/geos-common/graph/bitmapclip.s b/libsrc/geos-common/graph/bitmapclip.s
new file mode 100644 (file)
index 0000000..5785cb4
--- /dev/null
+++ b/libsrc/geos-common/graph/bitmapclip.s
@@ -0,0 +1,25 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void BitmapClip      (char skipl, char skipr, int skipy, struct iconpic *myGfx);
+
+           .import popa, popax
+           .import BitmapRegs
+           .export _BitmapClip
+
+           .include "jumptab.inc"
+           .include "geossym.inc"
+
+_BitmapClip:
+           jsr BitmapRegs
+           jsr popax
+           sta r12L
+           stx r12H
+           jsr popa
+           sta r11H
+           jsr popa
+           sta r11L
+           jmp BitmapClip

diff --git a/libsrc/geos-common/graph/bitmapregs.s b/libsrc/geos-common/graph/bitmapregs.s
new file mode 100644 (file)
index 0000000..c1824ff
--- /dev/null
+++ b/libsrc/geos-common/graph/bitmapregs.s
@@ -0,0 +1,22 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+           .importzp ptr4
+           
+           .export BitmapRegs
+
+           .include "geossym.inc"
+
+BitmapRegs:                    ;a/x is a struct iconpic*
+           sta ptr4
+           stx ptr4+1
+           ldy #0
+bmpLp:     lda (ptr4),y
+           sta r0L,y
+           iny
+           cpy #6
+           bne bmpLp
+           rts

diff --git a/libsrc/geos-common/graph/bitmapup.s b/libsrc/geos-common/graph/bitmapup.s
new file mode 100644 (file)
index 0000000..dc87fe3
--- /dev/null
+++ b/libsrc/geos-common/graph/bitmapup.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void BitmapUp        (struct iconpic *myGfx);
+
+
+           .import BitmapRegs
+           .export _BitmapUp
+
+           .include "jumptab.inc"
+
+_BitmapUp:
+           jsr BitmapRegs
+           jmp BitmapUp

diff --git a/libsrc/geos-common/graph/bitotherclip.s b/libsrc/geos-common/graph/bitotherclip.s
new file mode 100644 (file)
index 0000000..1d6ddab
--- /dev/null
+++ b/libsrc/geos-common/graph/bitotherclip.s
@@ -0,0 +1,37 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void BitOtherClip    (void *proc1, void* proc2, char skipl, char skipr, int skipy, 
+;                              struct iconpic *myGfx);
+
+; both proc1, proc2 should be: char __fastcall something (void);
+;      proc1 is called before reading a byte (.A returns next data)
+;      proc2 is called before reading each byte which is not pattern (code >219)
+
+
+           .import popa, popax
+           .import BitOtherRegs
+           .export _BitOtherClip
+
+           .include "jumptab.inc"
+           .include "geossym.inc"
+
+_BitOtherClip:
+           jsr BitOtherRegs
+           jsr popax
+           sta r12L
+           stx r12H
+           jsr popa
+           sta r11H
+           jsr popa
+           sta r11L
+           jsr popax
+           sta r14L
+           stx r14H
+           jsr popax
+           sta r13L
+           stx r13H
+           jmp BitOtherClip

diff --git a/libsrc/geos-common/graph/drawline.s b/libsrc/geos-common/graph/drawline.s
new file mode 100644 (file)
index 0000000..7903056
--- /dev/null
+++ b/libsrc/geos-common/graph/drawline.s
@@ -0,0 +1,31 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 29.10.99, 5.03.2003
+
+; void DrawLine         (char mode, struct window *mywindow);
+
+           .import _InitDrawWindow
+           .import popa
+           .importzp tmp1
+           .export _DrawLine
+
+           .include "jumptab.inc"
+           .include "geossym.inc"
+           .include "geosmac.ca65.inc"
+
+_DrawLine:
+           tay
+           PushW r2
+           tya
+           jsr _InitDrawWindow
+           MoveW r2, r11
+           PopW r2
+           jsr popa
+           sta tmp1
+           clc
+           bit tmp1
+           bvc @1
+           sec
+@1:        jmp DrawLine

diff --git a/libsrc/geos-common/graph/drawpoint.s b/libsrc/geos-common/graph/drawpoint.s
new file mode 100644 (file)
index 0000000..d8fac4d
--- /dev/null
+++ b/libsrc/geos-common/graph/drawpoint.s
@@ -0,0 +1,25 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 29.10.99, 05.3.2003
+
+; void DrawPoint       (char mode, struct pixel *mypixel);
+
+
+           .import PointRegs
+           .import popa
+           .importzp tmp1
+           .export _DrawPoint
+
+           .include "jumptab.inc"
+
+_DrawPoint:
+           jsr PointRegs
+           jsr popa
+           sta tmp1
+           clc
+           bit tmp1
+           bvc @1
+           sec
+@1:        jmp DrawPoint

diff --git a/libsrc/geos-common/graph/framerectangle.s b/libsrc/geos-common/graph/framerectangle.s
new file mode 100644 (file)
index 0000000..d8bcc3c
--- /dev/null
+++ b/libsrc/geos-common/graph/framerectangle.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void FrameRectangle   (char pattern);
+
+           .export _FrameRectangle
+
+           .include "jumptab.inc"
+           
+_FrameRectangle = FrameRectangle

diff --git a/libsrc/geos-common/graph/getcharwidth.s b/libsrc/geos-common/graph/getcharwidth.s
new file mode 100644 (file)
index 0000000..0f971a8
--- /dev/null
+++ b/libsrc/geos-common/graph/getcharwidth.s
@@ -0,0 +1,16 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 21.12.1999, 2.1.2003
+
+; char GetCharWidth (char character);
+
+           .export _GetCharWidth
+
+           .include "jumptab.inc"
+
+_GetCharWidth:
+           jsr GetCharWidth
+           ldx #0
+           rts

diff --git a/libsrc/geos-common/graph/getintcharint.s b/libsrc/geos-common/graph/getintcharint.s
new file mode 100644 (file)
index 0000000..1c31df4
--- /dev/null
+++ b/libsrc/geos-common/graph/getintcharint.s
@@ -0,0 +1,21 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 11.03.2000
+
+           .import popa, popax
+           .export getintcharint
+
+           .include "geossym.inc"
+
+getintcharint:
+           sta r11L
+           stx r11H
+           jsr popa
+           sta r1H
+           jsr popax
+           sta r0L
+           stx r0H
+           rts
+

diff --git a/libsrc/geos-common/graph/graphicsstring.s b/libsrc/geos-common/graph/graphicsstring.s
new file mode 100644 (file)
index 0000000..5dc3064
--- /dev/null
+++ b/libsrc/geos-common/graph/graphicsstring.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; void GraphicsString         (char *myString);
+
+           .export _GraphicsString
+
+           .include "jumptab.inc"
+           .include "geossym.inc"
+
+_GraphicsString:
+           sta r0L
+           stx r0H
+           jmp GraphicsString

diff --git a/libsrc/geos-common/graph/hlineregs.s b/libsrc/geos-common/graph/hlineregs.s
new file mode 100644 (file)
index 0000000..921081e
--- /dev/null
+++ b/libsrc/geos-common/graph/hlineregs.s
@@ -0,0 +1,22 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+
+           .import popax, popa
+
+           .export HLineRegs
+
+           .include "geossym.inc"
+
+HLineRegs:
+           stx r4H
+           sta r4L
+           jsr popax
+           stx r3H
+           sta r3L
+           jsr popa
+           sta r11L
+           rts

diff --git a/libsrc/geos-common/graph/horizontalline.s b/libsrc/geos-common/graph/horizontalline.s
new file mode 100644 (file)
index 0000000..7d8ecf1
--- /dev/null
+++ b/libsrc/geos-common/graph/horizontalline.s
@@ -0,0 +1,19 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void HorizontalLine (char pattern, char y, int xstart, int xend);
+
+           .import popa
+           .import HLineRegs
+           
+           .export _HorizontalLine
+
+           .include "jumptab.inc"
+
+_HorizontalLine:
+           jsr HLineRegs
+           jsr popa
+           jmp HorizontalLine

diff --git a/libsrc/geos-common/graph/imprintrectangle.s b/libsrc/geos-common/graph/imprintrectangle.s
new file mode 100644 (file)
index 0000000..61cfb7f
--- /dev/null
+++ b/libsrc/geos-common/graph/imprintrectangle.s
@@ -0,0 +1,14 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void ImprintRectangle (void);
+           
+           .export _ImprintRectangle
+
+           .include "jumptab.inc"
+           
+_ImprintRectangle = ImprintRectangle
+

diff --git a/libsrc/geos-common/graph/initdrawwindow.s b/libsrc/geos-common/graph/initdrawwindow.s
new file mode 100644 (file)
index 0000000..e34ee5c
--- /dev/null
+++ b/libsrc/geos-common/graph/initdrawwindow.s
@@ -0,0 +1,25 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+; 11.03.2000
+
+; void InitDrawWindow (struct window *myWindow);
+
+           .importzp ptr4
+           
+           .export _InitDrawWindow
+
+           .include "geossym.inc"
+
+_InitDrawWindow:                       ;a/x is a struct window*
+           sta ptr4
+           stx ptr4+1
+           ldy #0
+copyWin:    lda (ptr4),y
+           sta r2L,y
+           iny
+           cpy #6
+           bne copyWin
+           rts

diff --git a/libsrc/geos-common/graph/invertline.s b/libsrc/geos-common/graph/invertline.s
new file mode 100644 (file)
index 0000000..9456c7b
--- /dev/null
+++ b/libsrc/geos-common/graph/invertline.s
@@ -0,0 +1,16 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void InvertLine     (char y, int xstart, int xend);
+
+           .import HLineRegs
+           .export _InvertLine
+
+           .include "jumptab.inc"
+           
+_InvertLine:
+           jsr HLineRegs
+           jmp InvertLine

diff --git a/libsrc/geos-common/graph/invertrectangle.s b/libsrc/geos-common/graph/invertrectangle.s
new file mode 100644 (file)
index 0000000..aac5176
--- /dev/null
+++ b/libsrc/geos-common/graph/invertrectangle.s
@@ -0,0 +1,14 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void InvertRectangle  (void);
+
+           .export _InvertRectangle
+           
+           .include "jumptab.inc"
+
+_InvertRectangle = InvertRectangle
+

diff --git a/libsrc/geos-common/graph/loadcharset.s b/libsrc/geos-common/graph/loadcharset.s
new file mode 100644 (file)
index 0000000..5032750
--- /dev/null
+++ b/libsrc/geos-common/graph/loadcharset.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void LoadCharSet (struct fontdesc *myFont);
+
+           .export _LoadCharSet
+
+           .include "jumptab.inc"
+           .include "geossym.inc"
+
+_LoadCharSet:
+           sta r0L
+           stx r0H
+           jmp LoadCharSet

diff --git a/libsrc/geos-common/graph/pointregs.s b/libsrc/geos-common/graph/pointregs.s
new file mode 100644 (file)
index 0000000..a9cef94
--- /dev/null
+++ b/libsrc/geos-common/graph/pointregs.s
@@ -0,0 +1,25 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+           .importzp ptr4
+           
+           .export PointRegs
+
+           .include "geossym.inc"
+
+PointRegs:                     ;a/x is a struct pixel*
+           sta ptr4
+           stx ptr4+1
+           ldy #0
+           lda (ptr4),y
+           sta r3L
+           iny
+           lda (ptr4),y
+           sta r3H
+           iny
+           lda (ptr4),y
+           sta r11L
+           rts

diff --git a/libsrc/geos-common/graph/put_char.s b/libsrc/geos-common/graph/put_char.s
new file mode 100644 (file)
index 0000000..7f70668
--- /dev/null
+++ b/libsrc/geos-common/graph/put_char.s
@@ -0,0 +1,21 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void PutChar         (char character, char y, int x);
+
+           .import popa
+           .export _PutChar
+
+           .include "jumptab.inc"
+           .include "geossym.inc"
+
+_PutChar:
+           sta r11L
+           stx r11H
+           jsr popa
+           sta r1H
+           jsr popa
+           jmp PutChar

diff --git a/libsrc/geos-common/graph/putdecimal.s b/libsrc/geos-common/graph/putdecimal.s
new file mode 100644 (file)
index 0000000..918d0bd
--- /dev/null
+++ b/libsrc/geos-common/graph/putdecimal.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 30.10.99, 17.8.2003
+
+; void PutDecimal         (char style, unsigned value, char y, int x);
+
+           .import popa, popax
+           .import getintcharint
+           .export _PutDecimal
+
+           .include "jumptab.inc"
+
+_PutDecimal:
+           jsr getintcharint
+           jsr popa
+           jmp PutDecimal

diff --git a/libsrc/geos-common/graph/putstring.s b/libsrc/geos-common/graph/putstring.s
new file mode 100644 (file)
index 0000000..a962be2
--- /dev/null
+++ b/libsrc/geos-common/graph/putstring.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void PutString       (char *mytxt, char y, int x);
+
+           .import popax, popa
+           .import getintcharint
+           .export _PutString
+
+           .include "jumptab.inc"
+
+_PutString:
+           jsr getintcharint
+           jmp PutString

diff --git a/libsrc/geos-common/graph/recoverline.s b/libsrc/geos-common/graph/recoverline.s
new file mode 100644 (file)
index 0000000..181507b
--- /dev/null
+++ b/libsrc/geos-common/graph/recoverline.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void RecoverLine    (char y, int xstart, int xend);
+
+           .import HLineRegs
+
+           .export _RecoverLine
+           
+           .include "jumptab.inc"
+
+_RecoverLine:
+           jsr HLineRegs
+           jmp RecoverLine
+

diff --git a/libsrc/geos-common/graph/recoverrectangle.s b/libsrc/geos-common/graph/recoverrectangle.s
new file mode 100644 (file)
index 0000000..da0a5c4
--- /dev/null
+++ b/libsrc/geos-common/graph/recoverrectangle.s
@@ -0,0 +1,14 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void RecoverRectangle (void);
+           
+           .export _RecoverRectangle
+
+           .include "jumptab.inc"
+           
+_RecoverRectangle = RecoverRectangle
+

diff --git a/libsrc/geos-common/graph/rectangle.s b/libsrc/geos-common/graph/rectangle.s
new file mode 100644 (file)
index 0000000..b3afafa
--- /dev/null
+++ b/libsrc/geos-common/graph/rectangle.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void Rectangle        (void);
+
+           .export _Rectangle
+           
+           .include "jumptab.inc"
+
+_Rectangle = Rectangle

diff --git a/libsrc/geos-common/graph/setpattern.s b/libsrc/geos-common/graph/setpattern.s
new file mode 100644 (file)
index 0000000..1f437da
--- /dev/null
+++ b/libsrc/geos-common/graph/setpattern.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void SetPattern     (char pattern);
+
+           .export _SetPattern
+
+           .include "jumptab.inc"
+
+_SetPattern = SetPattern

diff --git a/libsrc/geos-common/graph/testpoint.s b/libsrc/geos-common/graph/testpoint.s
new file mode 100644 (file)
index 0000000..11af3da
--- /dev/null
+++ b/libsrc/geos-common/graph/testpoint.s
@@ -0,0 +1,20 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 29.10.1999, 2.1.2003
+
+; char TestPoint       (struct pixel *mypixel);
+
+           .import PointRegs
+           .import return0, return1
+           .export _TestPoint
+
+           .include "jumptab.inc"
+           
+_TestPoint:
+           jsr PointRegs
+           jsr TestPoint
+           bcc goFalse
+           jmp return1
+goFalse:    jmp return0

diff --git a/libsrc/geos-common/graph/usesystemfont.s b/libsrc/geos-common/graph/usesystemfont.s
new file mode 100644 (file)
index 0000000..4c732d5
--- /dev/null
+++ b/libsrc/geos-common/graph/usesystemfont.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void UseSystemFont (void);
+
+           .export _UseSystemFont
+
+           .include "jumptab.inc"
+
+_UseSystemFont = UseSystemFont

diff --git a/libsrc/geos-common/graph/verticalline.s b/libsrc/geos-common/graph/verticalline.s
new file mode 100644 (file)
index 0000000..a80bdd6
--- /dev/null
+++ b/libsrc/geos-common/graph/verticalline.s
@@ -0,0 +1,24 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void VerticalLine   (char pattern, char ystart, char yend, int x);
+
+           .import popa
+                           
+           .export _VerticalLine
+
+           .include "jumptab.inc"
+           .include "geossym.inc"
+           
+_VerticalLine:
+           stx r4H
+           sta r4L
+           jsr popa
+           sta r3H
+           jsr popa
+           sta r3L
+           jsr popa
+           jmp VerticalLine