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/memory/Makefile
+++ b/libsrc/geos-cbm/memory/Makefile
@@ -0,0 +1,18 @@
+#
+# Makefile for GEOS lib
+# for cc65
+#
+#
+
+%.o:	%.s
+	@$(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) *.~ $(S_OBJS) core
--- a/libsrc/geos-cbm/memory/clearram.s
+++ b/libsrc/geos-cbm/memory/clearram.s
@@ -0,0 +1,25 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 30.10.99, 20.08.2003
+
+; void * ClearRam         (char *dest, int length);
+
+	    .import DoublePop
+	    .export _ClearRam
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_ClearRam:
+	    jsr DoublePop
+	    pha
+	    txa
+	    pha
+	    jsr ClearRam
+	    pla
+	    tax
+	    pla
+	    rts
+
--- a/libsrc/geos-cbm/memory/cmpfstring.s
+++ b/libsrc/geos-cbm/memory/cmpfstring.s
@@ -0,0 +1,22 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 22.12.99, 29.07.2000
+
+; char CmpFString (char length, char *dest, char* source);
+
+	    .import DoubleSPop, SetPtrXY
+	    .import popa, return0, return1
+	    .export _CmpFString
+
+	    .include "../inc/jumptab.inc"
+
+_CmpFString:
+	    jsr DoubleSPop
+	    jsr popa
+	    jsr SetPtrXY
+	    jsr CmpFString
+	    bne L1
+	    jmp return0
+L1:	    jmp return1
--- a/libsrc/geos-cbm/memory/cmpstring.s
+++ b/libsrc/geos-cbm/memory/cmpstring.s
@@ -0,0 +1,20 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 22.12.1999, 2.1.2003
+
+; char CmpString (char *dest, char* source);
+
+	    .import DoubleSPop
+	    .import return0, return1
+	    .export _CmpString
+
+	    .include "../inc/jumptab.inc"
+
+_CmpString:
+	    jsr DoubleSPop
+	    jsr CmpString
+	    bne L1
+	    jmp return0
+L1:	    jmp return1
--- a/libsrc/geos-cbm/memory/copyfstring.s
+++ b/libsrc/geos-cbm/memory/copyfstring.s
@@ -0,0 +1,19 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 22.12.99, 29.07.2000
+
+; void CopyFString (char length, char *dest, char* source);
+
+	    .import DoubleSPop, SetPtrXY
+	    .import popa
+	    .export _CopyFString
+
+	    .include "../inc/jumptab.inc"
+
+_CopyFString:
+	    jsr DoubleSPop
+	    jsr popa
+	    jsr SetPtrXY
+	    jmp CopyFString
--- a/libsrc/geos-cbm/memory/copystring.s
+++ b/libsrc/geos-cbm/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-cbm/memory/crc.s
+++ b/libsrc/geos-cbm/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-cbm/memory/doublepop.s
+++ b/libsrc/geos-cbm/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-cbm/memory/doublespop.s
+++ b/libsrc/geos-cbm/memory/doublespop.s
@@ -0,0 +1,28 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 22.12.99, 29.07.2000
+
+	    .import popax
+	    .importzp ptr3, ptr4
+	    .export DoubleSPop
+	    .export SetPtrXY
+
+	    .include "../inc/geossym.inc"
+
+DoubleSPop:
+	    sta ptr4
+	    stx ptr4+1
+	    jsr popax
+	    sta ptr3
+	    stx ptr3+1
+;	    rts
+;
+; SetPtrXY can be sometimes executed twice, but even this way it is few cycles
+; faster...
+
+SetPtrXY:
+	    ldx #ptr4
+	    ldy #ptr3
+	    rts
--- a/libsrc/geos-cbm/memory/fetchram.s
+++ b/libsrc/geos-cbm/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-cbm/memory/fillram.s
+++ b/libsrc/geos-cbm/memory/fillram.s
@@ -0,0 +1,30 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 30.10.99, 15.07.2001
+
+; void * FillRam         (char *dest, char what, int length);
+
+	    .import popa, popax
+	    .export _FillRam
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_FillRam:
+	    sta r0L
+	    stx r0H
+	    jsr popa
+	    sta r2L
+	    jsr popax
+	    sta r1L
+	    stx r1H
+	    pha
+	    txa
+	    pha
+	    jsr FillRam
+	    pla
+	    tax
+	    pla
+	    rts
--- a/libsrc/geos-cbm/memory/initram.s
+++ b/libsrc/geos-cbm/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-cbm/memory/movedata.s
+++ b/libsrc/geos-cbm/memory/movedata.s
@@ -0,0 +1,27 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 30.10.99, 15.07.2001
+
+; void* MoveData         (char* dest, char *source, int length);
+
+	    .import popax
+	    .export _MoveData
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_MoveData:
+	    sta r2L
+	    stx r2H
+	    jsr popax
+	    sta r0L
+	    stx r0H
+	    jsr popax
+	    sta r1L
+	    stx r1H
+	    jsr MoveData
+	    lda r1L		; return dest ptr to be compatible with memmove and memcpy
+	    ldx r1H
+	    rts
--- a/libsrc/geos-cbm/memory/reuregs.s
+++ b/libsrc/geos-cbm/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-cbm/memory/stashram.s
+++ b/libsrc/geos-cbm/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-cbm/memory/swapram.s
+++ b/libsrc/geos-cbm/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-cbm/memory/verifyram.s
+++ b/libsrc/geos-cbm/memory/verifyram.s
@@ -0,0 +1,20 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 21.12.1999, 2.1.2003
+
+; 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
+	    ldx #0
+	    rts