Added scrsize() function.

2014-11-30 16:01:43 +01:00
parent 945ad167df
commit b47a1d99ec
1 changed files with 22 additions and 0 deletions
--- a/libsrc/c1p/_scrsize.s
+++ 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
+