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 c8643855c497fc377fe381ee8f0378556e9c4a87..d3095640b5496d7fc175b8d0f92b245cc06201d4 100644 (file)
--- 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 (file)
index a7bf17d..0000000
--- 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 (file)
index 0000000..c7076ad
--- /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 (file)
index 0000000..869be4b
--- /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
+