Added scrsize() function.

diff --git a/libsrc/c1p/_scrsize.s b/libsrc/c1p/_scrsize.s
new file mode 100644 (file)
index 0000000..75de2b3
--- /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
+