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
2000-05-28 13:40:48 +00:00
parent 579491e8a4
commit 53dd513176
847 changed files with 91345 additions and 0 deletions
--- a/libsrc/geos/memory/Makefile
+++ b/libsrc/geos/memory/Makefile
@@ -0,0 +1,19 @@
+#
+# Makefile for GEOS lib
+# for cc65
+#
+#
+
+%.o:	%.s
+	@echo $<
+	@$(AS) -o $@ $(AFLAGS) $<
+
+
+S_OBJS	= crc.o doublepop.o reuregs.o clearram.o fillram.o initram.o movedata.o\
+	  stashram.o fetchram.o swapram.o verifyram.o\
+	  doublespop.o copystring.o cmpstring.o copyfstring.o cmpfstring.o
+
+all: $(S_OBJS)
+
+clean:
+	@rm -f *.~ $(S_OBJS) core
--- a/libsrc/geos/memory/clearram.s
+++ b/libsrc/geos/memory/clearram.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void ClearRam         (char *dest, int length);
+
+	    .import DoublePop
+	    .export _ClearRam
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_ClearRam:
+	    jsr DoublePop
+	    jmp ClearRam
--- a/libsrc/geos/memory/cmpfstring.s
+++ b/libsrc/geos/memory/cmpfstring.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 22.12.99
+
+; void CmpFString (char length, char *dest, char* source);
+
+	    .import DoubleSPop
+	    .import popa
+	    .export _CmpFString
+
+	    .include "../inc/jumptab.inc"
+
+_CmpFString:
+	    jsr DoubleSPop
+	    jsr popa
+	    jmp CmpFString
--- a/libsrc/geos/memory/cmpstring.s
+++ b/libsrc/geos/memory/cmpstring.s
@@ -0,0 +1,16 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 22.12.99
+
+; char CmpString (char *dest, char* source);
+
+	    .import DoubleSPop
+	    .export _CmpString
+
+	    .include "../inc/jumptab.inc"
+
+_CmpString:
+	    jsr DoubleSPop
+	    jmp CmpString
--- a/libsrc/geos/memory/copyfstring.s
+++ b/libsrc/geos/memory/copyfstring.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 22.12.99
+
+; void CopyFString (char length, char *dest, char* source);
+
+	    .import DoubleSPop
+	    .import popa
+	    .export _CopyFString
+
+	    .include "../inc/jumptab.inc"
+
+_CopyFString:
+	    jsr DoubleSPop
+	    jsr popa
+	    jmp CopyFString
--- a/libsrc/geos/memory/copystring.s
+++ b/libsrc/geos/memory/copystring.s
@@ -0,0 +1,16 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 22.12.99
+
+; void CopyString (char *dest, char* source);
+
+	    .import DoubleSPop
+	    .export _CopyString
+
+	    .include "../inc/jumptab.inc"
+
+_CopyString:
+	    jsr DoubleSPop
+	    jmp CopyString
--- a/libsrc/geos/memory/crc.s
+++ b/libsrc/geos/memory/crc.s
@@ -0,0 +1,21 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 22.12.99
+
+; int CRC         (char *memory, int length);
+
+	    .import DoublePop
+	    .export _CRC
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_CRC:
+	    jsr DoublePop
+	    jsr CRC
+	    lda r2L
+	    ldx r2H
+	    rts
+	    
--- a/libsrc/geos/memory/doublepop.s
+++ b/libsrc/geos/memory/doublepop.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 31.12.99
+
+	    .import popax
+	    .export DoublePop
+
+	    .include "../inc/geossym.inc"
+
+DoublePop:
+	    sta r0L
+	    stx r0H
+	    jsr popax
+	    sta r1L
+	    stx r1H
+	    rts
--- a/libsrc/geos/memory/doublespop.s
+++ b/libsrc/geos/memory/doublespop.s
@@ -0,0 +1,21 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 22.12.99
+
+	    .import popax
+	    .importzp ptr3, ptr4
+	    .export DoubleSPop
+
+	    .include "../inc/geossym.inc"
+
+DoubleSPop:
+	    sta ptr4
+	    stx ptr4+1
+	    jsr popax
+	    sta ptr3
+	    stx ptr3+1
+	    lda #ptr4
+	    ldx #ptr3
+	    rts
--- a/libsrc/geos/memory/fetchram.s
+++ b/libsrc/geos/memory/fetchram.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void FetchRAM (char REUBank, int length, char *from, char *dest);
+
+	    .import REURegs
+	    .export _FetchRAM
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_FetchRAM:
+	    jsr REURegs
+	    jmp FetchRAM
--- a/libsrc/geos/memory/fillram.s
+++ b/libsrc/geos/memory/fillram.s
@@ -0,0 +1,19 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void FillRam         (char what, char *dest, int length);
+
+	    .import DoublePop, popa
+	    .export _FillRam
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_FillRam:
+	    jsr DoublePop
+	    jsr popa
+	    sta r2L
+	    jmp FillRam
--- a/libsrc/geos/memory/initram.s
+++ b/libsrc/geos/memory/initram.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void InitRam         (struct inittab*);
+
+	    .export _InitRam
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_InitRam:
+	    sta r0L
+	    stx r0H
+	    jmp InitRam
--- a/libsrc/geos/memory/movedata.s
+++ b/libsrc/geos/memory/movedata.s
@@ -0,0 +1,24 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 30.10.99
+
+; void MoveData         (char* source, char *dest, int length);
+
+	    .import popax
+	    .export _MoveData
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_MoveData:
+	    sta r2L
+	    stx r2H
+	    jsr popax
+	    sta r1L
+	    stx r1H
+	    jsr popax
+	    sta r0L
+	    stx r0H
+	    jmp MoveData
--- a/libsrc/geos/memory/reuregs.s
+++ b/libsrc/geos/memory/reuregs.s
@@ -0,0 +1,21 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 31.12.99
+
+	    .import popax, popa
+	    .import DoublePop
+	    .export REURegs
+
+	    .include "../inc/geossym.inc"
+
+REURegs:
+	    jsr DoublePop
+	    jsr popax
+	    sta r2L
+	    stx r2H
+	    jsr popa
+	    sta r3L
+	    rts
+
--- a/libsrc/geos/memory/stashram.s
+++ b/libsrc/geos/memory/stashram.s
@@ -0,0 +1,17 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void StashRAM (char REUBank, int length, char *dest, char *from);
+
+	    .import REURegs
+	    .export _StashRAM
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_StashRAM:
+	    jsr REURegs
+	    jmp StashRAM
--- a/libsrc/geos/memory/swapram.s
+++ b/libsrc/geos/memory/swapram.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void SwapRAM (char REUBank, int length, char *reuaddy, char *cpuaddy);
+;	note that in all REU procs last two pointers are identified like here
+
+	    .import REURegs
+	    .export _SwapRAM
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_SwapRAM:
+	    jsr REURegs
+	    jmp SwapRAM
--- a/libsrc/geos/memory/verifyram.s
+++ b/libsrc/geos/memory/verifyram.s
@@ -0,0 +1,19 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char VerifyRAM (char REUBank, int length, char *reuaddy, char *cpuaddy);
+
+	    .import REURegs
+	    .export _VerifyRAM
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_VerifyRAM:
+	    jsr REURegs
+	    jsr VerifyRAM
+	    txa
+	    rts