From b47a1d99ece5bb7ff5322f69cd6befed6c657057 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Stephan=20M=C3=BChlstrasser?= 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 + -- 2.39.5