This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


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

libsrc/geos/mousesprite/Makefile

@@ -0,0 +1,20 @@
+#
+# Makefile for GEOS lib
+# for cc65
+#
+#
+
+%.o:	%.s
+	@echo $<
+	@$(AS) -o $@ $(AFLAGS) $<
+
+
+S_OBJS	= startmousemode.o clearmousemode.o mouseup.o mouseoff.o\
+	  drawsprite.o possprite.o enablsprite.o disablsprite.o\
+	  ismseinregion.o inittextprompt.o promptoff.o prompton.o\
+	  getnextchar.o
+
+all: $(S_OBJS)
+
+clean:
+	@rm -f *.~ $(S_OBJS) core

libsrc/geos/mousesprite/clearmousemode.s

@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void ClearMouseMode (void);
+
+	    .export _ClearMouseMode
+
+	    .include "../inc/jumptab.inc"
+
+_ClearMouseMode = ClearMouseMode

libsrc/geos/mousesprite/disablsprite.s

@@ -0,0 +1,16 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void DisablSprite (char spritenum);
+
+	    .export _DisablSprite
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_DisablSprite:
+	    sta r3L
+	    jmp DisablSprite

libsrc/geos/mousesprite/drawsprite.s

@@ -0,0 +1,23 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+;
+; void DrawSprite (char spritenum, char *tab63 );
+;
+
+	    .import popa
+	    .export _DrawSprite
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_DrawSprite:
+
+	    sta r4L
+	    stx r4H
+	    jsr popa
+	    sta r3L
+	    jmp DrawSprite

libsrc/geos/mousesprite/enablsprite.s

@@ -0,0 +1,16 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void EnablSprite (char spritenum);
+
+	    .export _EnablSprite
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_EnablSprite:
+	    sta r3L
+	    jmp EnablSprite

libsrc/geos/mousesprite/getnextchar.s

@@ -0,0 +1,14 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char GetNextChar (void);
+;	note that if it returns 0 (FALSE) then no characters are available
+
+	    .export _GetNextChar
+
+	    .include "../inc/jumptab.inc"
+
+_GetNextChar = GetNextChar

libsrc/geos/mousesprite/inittextprompt.s

@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void InitTextPrompt (char height);
+
+	    .export _InitTextPrompt
+
+	    .include "../inc/jumptab.inc"
+
+_InitTextPrompt	= InitTextPrompt

libsrc/geos/mousesprite/ismseinregion.s

@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char IsMseInRegion (struct window *mywindow);
+
+	    .import RectRegs
+
+	    .export _IsMseInRegion
+	    
+	    .include "../inc/jumptab.inc"
+
+_IsMseInRegion:
+	    jsr RectRegs
+	    jmp IsMseInRegion

libsrc/geos/mousesprite/mouseoff.s

@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void MouseOff (void);
+
+	    .export _MouseOff
+
+	    .include "../inc/jumptab.inc"
+
+_MouseOff = MouseOff

libsrc/geos/mousesprite/mouseup.s

@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void MouseUp (void);
+
+	    .export _MouseUp
+
+	    .include "../inc/jumptab.inc"
+
+_MouseUp = MouseUp

libsrc/geos/mousesprite/possprite.s

@@ -0,0 +1,32 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+;
+; void PosSprite (char spritenum, struct pixel *position );
+;
+
+	    .importzp ptr4
+	    .import popa
+	    .export _PosSprite
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_PosSprite:
+	    sta ptr4
+	    stx ptr4+1
+	    ldy #0
+	    lda (ptr4),y
+	    sta r4L
+	    iny
+	    lda (ptr4),y
+	    sta r4H
+	    iny
+	    lda (ptr4),y
+	    sta r5L
+	    jsr popa
+	    sta r3L
+	    jmp PosSprite

libsrc/geos/mousesprite/promptoff.s

@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void PromptOff (void);
+
+	    .export _PromptOff
+
+	    .include "../inc/jumptab.inc"
+
+_PromptOff = PromptOff

libsrc/geos/mousesprite/prompton.s

@@ -0,0 +1,24 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void PromptOn (struct pixel *);
+
+	    .importzp ptr4
+	    .export _PromptOn
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_PromptOn:
+	    sta ptr4
+	    stx ptr4+1
+	    ldy #0
+promptLp:   lda (ptr4),y
+	    sta stringX,y
+	    iny
+	    cpy #3
+	    bne promptLp
+	    jmp PromptOn

libsrc/geos/mousesprite/startmousemode.s

@@ -0,0 +1,15 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void StartMouseMode (void);
+
+	    .export _StartMouseMode
+
+	    .include "../inc/jumptab.inc"
+
+_StartMouseMode:
+	    clc
+	    jmp StartMouseMode