From b47a1d99ece5bb7ff5322f69cd6befed6c657057 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stephan=20M=C3=BChlstrasser?= <stephan.muehlstrasser@web.de>
Date: Sun, 30 Nov 2014 16:01:43 +0100
Subject: [PATCH] Added scrsize() function.

---
 libsrc/c1p/_scrsize.s | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 libsrc/c1p/_scrsize.s

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
+