refact: optimize PRINT routine

Author: boriel

examples/inputexample.bas

@@ -1,7 +1,6 @@
 #include <input.bas>
-
+border 1: cls
 print at 10, 5; "Type something: ";
 a$ = input(20)
 print
 print "You typed: "; a$
-

src/arch/zx48k/library-asm/cls.asm

@@ -1,6 +1,5 @@
 ;; Clears the user screen (24 rows)
 
-#include once <sposn.asm>
 #include once <sysvars.asm>
 
     push namespace core
@@ -10,19 +9,21 @@ CLS:
 
     ld hl, 0
     ld (COORDS), hl
-    ld hl, 1821h
+    ld hl, SCR_SIZE
     ld (S_POSN), hl
     ld hl, (SCREEN_ADDR)
+    ld (DFCC), hl
     ld (hl), 0
     ld d, h
     ld e, l
     inc de
-    ld bc, 6144
+    ld bc, 6143
     ldir
 
     ; Now clear attributes
 
     ld hl, (SCREEN_ATTR_ADDR)
+    ld (DFCCL), hl
     ld d, h
     ld e, l
     inc de
@@ -35,4 +36,3 @@ CLS:
     ENDP
 
     pop namespace
-

src/arch/zx48k/library-asm/in_screen.asm

@@ -5,19 +5,18 @@
 
 __IN_SCREEN:
     ; Returns NO carry if current coords (D, E)
-    ; are OUT of the screen limits (MAXX, MAXY)
+    ; are OUT of the screen limits
 
     PROC
     LOCAL __IN_SCREEN_ERR
 
-    ld hl, MAXX
+    ld hl, SCR_SIZE
     ld a, e
-    cp (hl)
+    cp l
     jr nc, __IN_SCREEN_ERR	; Do nothing and return if out of range
 
     ld a, d
-    inc hl
-    cp (hl)
+    cp h
     ret c                       ; Return if carry (OK)
 
 __IN_SCREEN_ERR: