Renamed the old geos target to geos-cbm.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5343 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-28 17:11:21 +00:00
parent 70a3bcb0df
commit e6d74e7205
215 changed files with 20 additions and 20 deletions
--- a/libsrc/geos-cbm/graph/Makefile
+++ b/libsrc/geos-cbm/graph/Makefile
@@ -0,0 +1,21 @@
+#
+# Makefile for GEOS lib
+# for cc65
+#
+#
+
+%.o:	%.s
+	@$(AS) -o $@ $(AFLAGS) $<
+
+
+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
+
+all: $(S_OBJS)
+
+clean:
+	@$(RM) *.~ $(S_OBJS) core
--- a/libsrc/geos-cbm/graph/bitmapclip.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_BitmapClip:
+	    jsr BitmapRegs
+	    jsr popax
+	    sta r12L
+	    stx r12H
+	    jsr popa
+	    sta r11H
+	    jsr popa
+	    sta r11L
+	    jmp BitmapClip
--- a/libsrc/geos-cbm/graph/bitmapregs.s
+++ b/libsrc/geos-cbm/graph/bitmapregs.s
@@ -0,0 +1,22 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+	    .importzp ptr4
+	    
+	    .export BitmapRegs
+
+	    .include "../inc/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
--- a/libsrc/geos-cbm/graph/bitmapup.s
+++ b/libsrc/geos-cbm/graph/bitmapup.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void BitmapUp	(struct iconpic *myGfx);
+
+
+	    .import BitmapRegs
+	    .export _BitmapUp
+
+	    .include "../inc/jumptab.inc"
+
+_BitmapUp:
+	    jsr BitmapRegs
+	    jmp BitmapUp
--- a/libsrc/geos-cbm/graph/bitotherclip.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+	    .include "../inc/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
--- a/libsrc/geos-cbm/graph/drawline.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	    .include "../inc/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
--- a/libsrc/geos-cbm/graph/drawpoint.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+
+_DrawPoint:
+	    jsr PointRegs
+	    jsr popa
+	    sta tmp1
+	    clc
+	    bit tmp1
+	    bvc @1
+	    sec
+@1:	    jmp DrawPoint
--- a/libsrc/geos-cbm/graph/framerectangle.s
+++ b/libsrc/geos-cbm/graph/framerectangle.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void FrameRectangle   (char pattern);
+
+	    .export _FrameRectangle
+
+	    .include "../inc/jumptab.inc"
+	    
+_FrameRectangle = FrameRectangle
--- a/libsrc/geos-cbm/graph/getcharwidth.s
+++ b/libsrc/geos-cbm/graph/getcharwidth.s
@@ -0,0 +1,16 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 21.12.1999, 2.1.2003
+
+; char GetCharWidth (char character);
+
+	    .export _GetCharWidth
+
+	    .include "../inc/jumptab.inc"
+
+_GetCharWidth:
+	    jsr GetCharWidth
+	    ldx #0
+	    rts
--- a/libsrc/geos-cbm/graph/getintcharint.s
+++ b/libsrc/geos-cbm/graph/getintcharint.s
@@ -0,0 +1,21 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 11.03.2000
+
+	    .import popa, popax
+	    .export getintcharint
+
+	    .include "../inc/geossym.inc"
+
+getintcharint:
+	    sta r11L
+	    stx r11H
+	    jsr popa
+	    sta r1H
+	    jsr popax
+	    sta r0L
+	    stx r0H
+	    rts
+
--- a/libsrc/geos-cbm/graph/graphicsstring.s
+++ b/libsrc/geos-cbm/graph/graphicsstring.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 25.12.99
+
+; void GraphicsString         (char *myString);
+
+	    .export _GraphicsString
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_GraphicsString:
+	    sta r0L
+	    stx r0H
+	    jmp GraphicsString
--- a/libsrc/geos-cbm/graph/hlineregs.s
+++ b/libsrc/geos-cbm/graph/hlineregs.s
@@ -0,0 +1,22 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+
+	    .import popax, popa
+
+	    .export HLineRegs
+
+	    .include "../inc/geossym.inc"
+
+HLineRegs:
+	    stx r4H
+	    sta r4L
+	    jsr popax
+	    stx r3H
+	    sta r3L
+	    jsr popa
+	    sta r11L
+	    rts
--- a/libsrc/geos-cbm/graph/horizontalline.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+
+_HorizontalLine:
+	    jsr HLineRegs
+	    jsr popa
+	    jmp HorizontalLine
--- a/libsrc/geos-cbm/graph/imprintrectangle.s
+++ b/libsrc/geos-cbm/graph/imprintrectangle.s
@@ -0,0 +1,14 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void ImprintRectangle (void);
+	    
+	    .export _ImprintRectangle
+
+	    .include "../inc/jumptab.inc"
+	    
+_ImprintRectangle = ImprintRectangle
+
--- a/libsrc/geos-cbm/graph/initdrawwindow.s
+++ b/libsrc/geos-cbm/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 "../inc/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
--- a/libsrc/geos-cbm/graph/invertline.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+	    
+_InvertLine:
+	    jsr HLineRegs
+	    jmp InvertLine
--- a/libsrc/geos-cbm/graph/invertrectangle.s
+++ b/libsrc/geos-cbm/graph/invertrectangle.s
@@ -0,0 +1,14 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void InvertRectangle  (void);
+
+	    .export _InvertRectangle
+	    
+	    .include "../inc/jumptab.inc"
+
+_InvertRectangle = InvertRectangle
+
--- a/libsrc/geos-cbm/graph/loadcharset.s
+++ b/libsrc/geos-cbm/graph/loadcharset.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void LoadCharSet (struct fontdesc *myFont);
+
+	    .export _LoadCharSet
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_LoadCharSet:
+	    sta r0L
+	    stx r0H
+	    jmp LoadCharSet
--- a/libsrc/geos-cbm/graph/pointregs.s
+++ b/libsrc/geos-cbm/graph/pointregs.s
@@ -0,0 +1,25 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+	    .importzp ptr4
+	    
+	    .export PointRegs
+
+	    .include "../inc/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
--- a/libsrc/geos-cbm/graph/put_char.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_PutChar:
+	    sta r11L
+	    stx r11H
+	    jsr popa
+	    sta r1H
+	    jsr popa
+	    jmp PutChar
--- a/libsrc/geos-cbm/graph/putdecimal.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+
+_PutDecimal:
+	    jsr getintcharint
+	    jsr popa
+	    jmp PutDecimal
--- a/libsrc/geos-cbm/graph/putstring.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+
+_PutString:
+	    jsr getintcharint
+	    jmp PutString
--- a/libsrc/geos-cbm/graph/recoverline.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+
+_RecoverLine:
+	    jsr HLineRegs
+	    jmp RecoverLine
+
--- a/libsrc/geos-cbm/graph/recoverrectangle.s
+++ b/libsrc/geos-cbm/graph/recoverrectangle.s
@@ -0,0 +1,14 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void RecoverRectangle (void);
+	    
+	    .export _RecoverRectangle
+
+	    .include "../inc/jumptab.inc"
+	    
+_RecoverRectangle = RecoverRectangle
+
--- a/libsrc/geos-cbm/graph/rectangle.s
+++ b/libsrc/geos-cbm/graph/rectangle.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void Rectangle        (void);
+
+	    .export _Rectangle
+	    
+	    .include "../inc/jumptab.inc"
+
+_Rectangle = Rectangle
--- a/libsrc/geos-cbm/graph/setpattern.s
+++ b/libsrc/geos-cbm/graph/setpattern.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 29.10.99
+
+; void SetPattern     (char pattern);
+
+	    .export _SetPattern
+
+	    .include "../inc/jumptab.inc"
+
+_SetPattern = SetPattern
--- a/libsrc/geos-cbm/graph/testpoint.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+	    
+_TestPoint:
+	    jsr PointRegs
+	    jsr TestPoint
+	    bcc goFalse
+	    jmp return1
+goFalse:    jmp return0
--- a/libsrc/geos-cbm/graph/usesystemfont.s
+++ b/libsrc/geos-cbm/graph/usesystemfont.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void UseSystemFont (void);
+
+	    .export _UseSystemFont
+
+	    .include "../inc/jumptab.inc"
+
+_UseSystemFont = UseSystemFont
--- a/libsrc/geos-cbm/graph/verticalline.s
+++ b/libsrc/geos-cbm/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 "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	    
+_VerticalLine:
+	    stx r4H
+	    sta r4L
+	    jsr popa
+	    sta r3H
+	    jsr popa
+	    sta r3L
+	    jsr popa
+	    jmp VerticalLine