From 5f87dcea959ddc2ffea7e23176cc2f776a18d5aa Mon Sep 17 00:00:00 2001
From: izydorst <izydorst@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 27 Oct 2001 23:04:18 +0000
Subject: [PATCH] support for assert.h in GEOS, conio bugfixes

git-svn-id: svn://svn.cc65.org/cc65/trunk@1094 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 doc/geos.sgml                 |  8 ++++----
 libsrc/geos/common/Makefile   |  2 +-
 libsrc/geos/common/_afailed.c | 31 +++++++++++++++++++++++++++++++
 libsrc/geos/conio/cursor.inc  |  1 -
 libsrc/geos/conio/kbhit.s     |  1 -
 libsrc/geos/conio/where.s     |  2 +-
 6 files changed, 37 insertions(+), 8 deletions(-)
 create mode 100644 libsrc/geos/common/_afailed.c

diff --git a/doc/geos.sgml b/doc/geos.sgml
index 8afc08c7d..a78290167 100644
--- a/doc/geos.sgml
+++ b/doc/geos.sgml
@@ -47,8 +47,8 @@ will not always return the same values. In fact <tt/gotoxy/ sets current positio
 you would expect on a normal 40x25 screen, not a position that would regard current font's
 height. Both 40 and 80 columns modes are supported.
 <p>
-It is safe to use these standard includes: <tt/conio.h, dio.h, errno.h, geos.h, joystick.h,
-mouse.h, stdlib.h, string.h/
+It is safe to use these standard includes and its contents:
+<tt/assert.h, conio.h, dio.h, errno.h, geos.h, joystick.h, mouse.h, stdlib.h, string.h/
 <p>
 I am an assembler programmer and GEOSLib was designed in such way that cc65 could emit the best
 available code (well, the best as for machine :). Many of the <tt/void foo (void)/ functions are
@@ -217,7 +217,7 @@ This draws on screen rectangle filled with current pattern.
 <p>
 <tt/void FrameRectangle (char pattern)/
 <p>
-This one draws frame with given line pattern.
+This one draws frame with given bit pattern (not a pattern from GEOS palette).
 
 <sect3>InvertRectangle
 <p>
@@ -273,7 +273,7 @@ number as set in <tt/SetPattern/ but a true bit pattern.
 <tt/void DrawLine (struct window *myWindow)/
 <p>
 <tt/top/ parameters of <tt/struct window/ describe the starting point of the line, while
-<tt/bottom/ are for the ending point. Current pattern is used for drawing.
+<tt/bottom/ are for the ending point. Current pattern from <tt/SetPattern/ is used for drawing.
 
 <sect2>Point Functions
 <p>
diff --git a/libsrc/geos/common/Makefile b/libsrc/geos/common/Makefile
index 8bea80e58..a7f9d5ddd 100644
--- a/libsrc/geos/common/Makefile
+++ b/libsrc/geos/common/Makefile
@@ -10,7 +10,7 @@
 %.o:	%.s
 	@$(AS) -o $@ $(AFLAGS) $<
 
-C_OBJS	= abort.o perror.o
+C_OBJS	= _afailed.o abort.o perror.o
 S_OBJS	= copydata.o memcpy.o memset.o rand.o
 
 all: $(C_OBJS) $(S_OBJS)
diff --git a/libsrc/geos/common/_afailed.c b/libsrc/geos/common/_afailed.c
new file mode 100644
index 000000000..1d42d5ba6
--- /dev/null
+++ b/libsrc/geos/common/_afailed.c
@@ -0,0 +1,31 @@
+/*
+ * _afailed.c
+ *
+ * Maciej 'YTM/Elysium' Witkowiak 28.10.2001
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <geos.h>
+
+void _afailed (char* file, unsigned line)
+{
+
+    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);
+}
diff --git a/libsrc/geos/conio/cursor.inc b/libsrc/geos/conio/cursor.inc
index 88c61a835..178c859bb 100644
--- a/libsrc/geos/conio/cursor.inc
+++ b/libsrc/geos/conio/cursor.inc
@@ -4,7 +4,6 @@
 ;
 ; 27.10.2001
 
-SCREEN_PTR	= $D1		; Pointer to current char in text screen
 cursor_x	= $D3		; Cursor column (word)
 cursor_y	= $D5		; Cursor row
 cursor_flag	= $D6		; cursor on/off (0-off)
diff --git a/libsrc/geos/conio/kbhit.s b/libsrc/geos/conio/kbhit.s
index 4f065cdfe..5786d0aee 100644
--- a/libsrc/geos/conio/kbhit.s
+++ b/libsrc/geos/conio/kbhit.s
@@ -9,7 +9,6 @@
 	    .export _kbhit
 	    .import return0, return1
 
-	    .include "../inc/jumptab.inc"
 	    .include "../inc/geossym.inc"
 
 _kbhit:
diff --git a/libsrc/geos/conio/where.s b/libsrc/geos/conio/where.s
index 3c5767954..8ba44e94e 100644
--- a/libsrc/geos/conio/where.s
+++ b/libsrc/geos/conio/where.s
@@ -17,7 +17,7 @@ _wherex:    lda cursor_x
 	    sta tmp1
 	    lda cursor_x+1
 	    sta tmp2
-	    lda #tmp1
+	    ldx #tmp1
 	    ldy #3
 	    jsr DShiftRight
 	    lda tmp1