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

Added scrsize() function.
---

diff --git a/libsrc/c1p/_scrsize.s b/libsrc/c1p/_scrsize.s
new file mode 100644
index 000000000..75de2b349
--- /dev/null
+++ b/libsrc/c1p/_scrsize.s
@@ -0,0 +1,22 @@
+;
+; based on PET implementation
+;
+; originally by:
+; Ullrich von Bassewitz, 26.10.2000
+;
+; Screen size variables
+;
+
+        .export         screensize
+
+        .include        "extzp.inc"
+
+.proc   screensize
+
+        ldx     SCR_LINELEN
+        inx                     ; Variable is one less
+        ldy     #25
+        rts
+
+.endproc
+