From: Stephan Mühlstrasser <stephan.muehlstrasser@web.de>
Date: Sun, 30 Nov 2014 14:58:59 +0000 (+0100)
Subject: Added scrsize() function.
X-Git-Tag: V2.15~22^2~34
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=fa770bada8bd88fcae0ef9cbd8494b23a9debd40;p=cc65

Added scrsize() function.
---

diff --git a/libsrc/conio/_scrsize.s b/libsrc/conio/_scrsize.s
new file mode 100644
index 000000000..6582568d7
--- /dev/null
+++ b/libsrc/conio/_scrsize.s
@@ -0,0 +1,35 @@
+;
+; Ullrich von Bassewitz, 08.08.1998
+;
+; void screensize (unsigned char* x, unsigned char* y);
+;
+
+        .export         _screensize
+
+        .import         popsreg
+        .import         screensize
+        .importzp       ptr1, sreg
+
+.proc   _screensize
+
+        sta     ptr1            ; Store the y pointer
+        stx     ptr1+1
+        jsr     popsreg         ; Get the x pointer into sreg
+        jsr     screensize      ; Get screensize into X/Y
+        tya                     ; Get Y size into A
+
+.IFP02
+        ldy     #0
+        sta     (ptr1),y
+        txa
+        sta     (sreg),y
+.ELSE
+        sta     (ptr1)
+        txa
+        sta     (sreg)
+.ENDIF
+
+        rts
+
+.endproc
+
diff --git a/libsrc/conio/scrsize.s b/libsrc/conio/scrsize.s
deleted file mode 100644
index 6582568d7..000000000
--- a/libsrc/conio/scrsize.s
+++ /dev/null
@@ -1,35 +0,0 @@
-;
-; Ullrich von Bassewitz, 08.08.1998
-;
-; void screensize (unsigned char* x, unsigned char* y);
-;
-
-        .export         _screensize
-
-        .import         popsreg
-        .import         screensize
-        .importzp       ptr1, sreg
-
-.proc   _screensize
-
-        sta     ptr1            ; Store the y pointer
-        stx     ptr1+1
-        jsr     popsreg         ; Get the x pointer into sreg
-        jsr     screensize      ; Get screensize into X/Y
-        tya                     ; Get Y size into A
-
-.IFP02
-        ldy     #0
-        sta     (ptr1),y
-        txa
-        sta     (sreg),y
-.ELSE
-        sta     (ptr1)
-        txa
-        sta     (sreg)
-.ENDIF
-
-        rts
-
-.endproc
-