From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Wed, 1 Jan 2003 21:33:49 +0000 (+0000)
Subject: Fixed int promotion problem in wherex and wherey.
X-Git-Tag: V2.12.0~1807
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=38dcb86552cde16644079f0a632971c8644a6957;p=cc65

Fixed int promotion problem in wherex and wherey.
Moved wherex and wherey into separate modules.


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

diff --git a/libsrc/cbm/Makefile b/libsrc/cbm/Makefile
index c8643855c..d3095640b 100644
--- a/libsrc/cbm/Makefile
+++ b/libsrc/cbm/Makefile
@@ -60,7 +60,8 @@ S_OBJS =	c_acptr.o	\
                 scratch.o       \
                 sysremove.o     \
                 systime.o       \
-		where.o         \
+		wherex.o        \
+                wherey.o        \
                 write.o
 
 all:	$(C_OBJS) $(S_OBJS)
diff --git a/libsrc/cbm/where.s b/libsrc/cbm/where.s
deleted file mode 100644
index a7bf17d3e..000000000
--- a/libsrc/cbm/where.s
+++ /dev/null
@@ -1,27 +0,0 @@
-;
-; Ullrich von Bassewitz, 06.08.1998
-;
-; unsigned char wherex (void);
-; unsigned char wherey (void);
-
-
-	.export		_wherex, _wherey
-        .import         PLOT
-
-
-_wherex:
-	sec
-	jsr	PLOT		; Get cursor position
-	tya
-	rts
-
-_wherey:
-	sec
-	jsr	PLOT		; Get cursor position
-	txa
-	rts
-
-
-
-
-
diff --git a/libsrc/cbm/wherex.s b/libsrc/cbm/wherex.s
new file mode 100644
index 000000000..c7076ad84
--- /dev/null
+++ b/libsrc/cbm/wherex.s
@@ -0,0 +1,18 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; unsigned char wherex (void);
+;
+
+  	.export		_wherex
+        .import         PLOT
+
+
+.proc   _wherex
+  	sec
+  	jsr	PLOT		; Get cursor position
+  	tya
+        ldx     #$00
+  	rts
+.endproc
+        
diff --git a/libsrc/cbm/wherey.s b/libsrc/cbm/wherey.s
new file mode 100644
index 000000000..869be4baf
--- /dev/null
+++ b/libsrc/cbm/wherey.s
@@ -0,0 +1,18 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; unsigned char wherey (void);
+;
+
+ 	.export		_wherey
+        .import         PLOT
+
+
+.proc   _wherey
+	sec
+	jsr	PLOT		; Get cursor position
+	txa
+        ldx     #$00
+	rts
+.endproc
+