Renamed the old geos target to geos-cbm.

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

libsrc/geos-cbm/common/Makefile

@@ -0,0 +1,19 @@
+#
+# Makefile for GEOS lib
+# for cc65
+#
+
+%.o:   	%.c
+	@$(CC) $(CFLAGS) $<
+	@$(AS) -g -o $@ $(AFLAGS) $(*).s
+
+%.o:	%.s
+	@$(AS) -o $@ $(AFLAGS) $<
+
+C_OBJS	= _afailed.o abort.o perror.o sleep.o
+S_OBJS	= copydata.o memcpy.o memmove.o memset.o zerobss.o
+
+all: $(C_OBJS) $(S_OBJS)
+
+clean:
+	@$(RM) core *.~ $(S_OBJS) $(C_OBJS:.o=.s) $(C_OBJS)

libsrc/geos-cbm/common/_afailed.c

@@ -0,0 +1,33 @@
+/*
+ * _afailed.c
+ *
+ * Maciej 'YTM/Elysium' Witkowiak 28.10.2001
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <geos.h>
+
+void _afailed (char* file, unsigned line)
+{
+
+    ExitTurbo();
+
+    drawWindow.top = 0;
+    drawWindow.left = 0;
+    drawWindow.bot = 15;
+    drawWindow.right = 150;
+    dispBufferOn = ST_WR_FORE|ST_WR_BACK;
+    SetPattern(0);
+    Rectangle();
+    FrameRectangle(0xff);
+
+    PutString(CBOLDON "file: ", 10, 10);
+    PutString(file, 10, r11);
+    PutString(CBOLDON "  line: ", 10, r11);
+    PutDecimal(0, line, 10, r11);
+
+    DlgBoxOk(CBOLDON "ASSERTION FAILED", "PROGRAM TERMINATED" CPLAINTEXT);
+
+    exit (2);
+}

libsrc/geos-cbm/common/_poserror.c

@@ -0,0 +1,22 @@
+/*
+ * _poserror.c
+ *
+ * Maciej 'YTM/Elysium' Witkowiak, 25.04.2003
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <geos.h>
+
+void __fastcall__ _poserror (const char* msg)
+{
+    const char *errmsg = _stroserror(_oserror);
+
+    ExitTurbo();
+    if (msg && *msg) {
+	DlgBoxOk(msg, errmsg);
+    } else {
+	DlgBoxOk("", errmsg);
+    }
+}

libsrc/geos-cbm/common/abort.c

@@ -0,0 +1,17 @@
+/*
+ * abort.c
+ *
+ * Maciej 'YTM/Elysium' Witkowiak 15.7.2001
+ */
+
+
+
+#include <stdlib.h>
+#include <geos.h>
+
+void abort (void)
+{
+    ExitTurbo();
+    DlgBoxOk(CBOLDON "ABNORMAL PROGRAM", "TERMINATION." CPLAINTEXT);
+    exit(3);
+}

libsrc/geos-cbm/common/copydata.s

@@ -0,0 +1,27 @@
+;
+; Maciej 'YTM/Elysium' Witkowiak 15.07.2001
+;
+; Copy the data segment from the LOAD to the RUN location
+;
+
+	.export		copydata
+	.import		__DATA_LOAD__, __DATA_RUN__, __DATA_SIZE__
+	.include	"../inc/geossym.inc"
+	.include 	"../inc/jumptab.inc"
+
+copydata:
+	lda #<__DATA_SIZE__	; no need to check if it is == 0
+	ldx #>__DATA_SIZE__
+	sta r2L
+	stx r2H
+
+	lda #<__DATA_RUN__
+	ldx #>__DATA_RUN__
+	sta r1L
+	stx r1H
+
+	lda #<__DATA_LOAD__
+	ldx #>__DATA_LOAD__
+	sta r0L
+	stx r0H
+	jmp MoveData

libsrc/geos-cbm/common/memcpy.s

@@ -0,0 +1,10 @@
+;
+; void* __fastcall__ memcpy (void* dest, const void* src, size_t n);
+;
+; Maciej 'YTM/Elysium' Witkowiak, 15.07.2001
+;
+
+  	.export		_memcpy
+	.import		_MoveData
+
+_memcpy	= _MoveData

libsrc/geos-cbm/common/memmove.s

@@ -0,0 +1,10 @@
+;
+; void* __fastcall__ memmove (void* dest, const void* src, size_t n);
+;
+; Maciej 'YTM/Elysium' Witkowiak, 15.07.2001
+;
+
+  	.export		_memmove
+	.import		_MoveData
+
+_memmove = _MoveData

libsrc/geos-cbm/common/memset.s

@@ -0,0 +1,14 @@
+;
+; void* memset (void* ptr, int c, size_t n);
+; void* _bzero (void* ptr, size_t n);
+; void bzero (void* ptr, size_t n);
+;
+; Maciej 'YTM/Elysium' Witkowiak, 20.08.2003
+;
+
+ 	.export	_memset, _bzero, __bzero
+	.import _ClearRam, _FillRam
+
+_bzero = _ClearRam
+__bzero = _ClearRam
+_memset = _FillRam

libsrc/geos-cbm/common/perror.c

@@ -0,0 +1,22 @@
+/*
+ * perror.c
+ *
+ * Maciej 'YTM/Elysium' Witkowiak, 15.07.2001
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <geos.h>
+
+void __fastcall__ perror(const char* msg)
+{
+    const char *errmsg = strerror(errno);
+
+    ExitTurbo();
+    if (msg && *msg) {
+	DlgBoxOk(msg, errmsg);
+    } else {
+	DlgBoxOk("", errmsg);
+    }
+}

libsrc/geos-cbm/common/sleep.c

@@ -0,0 +1,23 @@
+/*
+ * sleep.c
+ *
+ * Maciej 'YTM/Elysium' Witkowiak, 16.08.2003
+ *
+ */
+
+#include <geos.h>
+
+unsigned __fastcall__ sleep (unsigned wait)
+{
+    char typ;
+
+    if ( (get_tv()) & TV_NTSC ) {
+	typ = 60;
+    } else {
+	typ = 50;
+    }
+
+    Sleep(wait*typ);
+
+    return 0;
+}

libsrc/geos-cbm/common/zerobss.s

@@ -0,0 +1,25 @@
+;
+; Maciej 'YTM/Elysium' Witkowiak <ytm@elysium.pl>
+; 23.12.2002
+;
+; Zero the bss segment.
+;
+
+	.export		zerobss
+	.import		__BSS_RUN__, __BSS_SIZE__
+
+        .include "../inc/jumptab.inc"
+        .include "../inc/geossym.inc"
+
+.code
+
+zerobss:
+	    lda	#<__BSS_SIZE__
+	    ldx #>__BSS_SIZE__
+	    sta r0L
+	    stx r0H
+	    lda #<__BSS_RUN__
+	    ldx #>__BSS_RUN__
+	    sta r1L
+	    stx r1H
+	    jmp ClearRam