Bugfix: do not scroll if AT is used

When doing PRINT AT 23,31; "X"; and later
PRINT AT 0, 0; "X" the screen should not scroll. Fixed.

Author: boriel

library-asm/print.asm

@@ -82,12 +82,12 @@ __NO_SCROLL:
         ld hl, (SCREEN_ADDR)
 
         ld a, d
-        ld c, a        ; Saves it for later
+        ld c, a     ; Saves it for later
         
         and 0F8h    ; Masks 3 lower bit ; zy
         ld d, a
 
-        ld a, c        ; Recovers it
+        ld a, c     ; Recovers it
         and 07h     ; MOD 7 ; y1
         rrca
         rrca
@@ -125,9 +125,9 @@ __SRCADDR:
         ld bc, (CHARS)
 
 __PRGRAPH0:
-        add a, a    ; A = a * 2 (since a < 80h) ; Thanks to Metalbrain at http://foro.speccy.org
+        add a, a   ; A = a * 2 (since a < 80h) ; Thanks to Metalbrain at http://foro.speccy.org
         ld l, a
-        ld h, 0        ; HL = a * 2 (accumulator)
+        ld h, 0    ; HL = a * 2 (accumulator)
         add hl, hl 
         add hl, hl ; HL = a * 8
         add hl, bc ; HL = CHARS address
@@ -142,20 +142,20 @@ __PRGRAPH:
 __PRCHAR:
         ld a, (de) ; DE *must* be ALWAYS source, and HL destiny
 
-PRINT_MODE:        ; Which operation is used to write on the screen
+PRINT_MODE:     ; Which operation is used to write on the screen
                 ; Set it with:
                 ; LD A, <OPERATION>
                 ; LD (PRINT_MODE), A
                 ;
                 ; Available opertions:
-                ; NORMAL: 0h  --> NOP    ; OVER 0
-                ; XOR    : AEh --> XOR (HL)        ; OVER 1
-                ; OR    : B6h --> OR (HL)        ; PUTSPRITE
-                ; AND   : A6h --> AND (HL)        ; PUTMASK
-        nop        ;
+                ; NORMAL : 0h  --> NOP         ; OVER 0
+                ; XOR    : AEh --> XOR (HL)    ; OVER 1
+                ; OR     : B6h --> OR (HL)     ; PUTSPRITE
+                ; AND    : A6h --> AND (HL)    ; PUTMASK
+        nop     ;
 
-INVERSE_MODE:    ; 00 -> NOP -> INVERSE 0
-        nop        ; 2F -> CPL -> INVERSE 1
+INVERSE_MODE:   ; 00 -> NOP -> INVERSE 0
+        nop     ; 2F -> CPL -> INVERSE 1
 
         ld (hl), a
 
@@ -449,7 +449,7 @@ LOOP:
         ret
         ENDP
 
-PRINT_AT: ; CHanges cursor to ROW, COL
+PRINT_AT: ; Changes cursor to ROW, COL
          ; COL in A register
          ; ROW in stack 
 
@@ -460,7 +460,8 @@ PRINT_AT: ; CHanges cursor to ROW, COL
 
         call __IN_SCREEN
         ret nc    ; Return if out of screen
-
+        ld hl, __TVFLAGS
+        res 1, (hl)
         jp __SAVE_S_POSN
 
         LOCAL __PRINT_COM
@@ -498,16 +499,16 @@ __PRINT_TABLE:    ; Jump table for 0 .. 22 codes
         DW __PRINT_NOP    ; 11
         DW __PRINT_NOP    ; 12
         DW __PRINT_0Dh    ; 13
-        DW __PRINT_BOLD    ; 14
+        DW __PRINT_BOLD   ; 14
         DW __PRINT_ITA    ; 15
         DW __PRINT_INK    ; 16
         DW __PRINT_PAP    ; 17
         DW __PRINT_FLA    ; 18
         DW __PRINT_BRI    ; 19
         DW __PRINT_INV    ; 20
         DW __PRINT_OVR    ; 21
-        DW __PRINT_AT    ; 22 AT
-        DW __PRINT_TAB  ; 23 TAB
+        DW __PRINT_AT     ; 22 AT
+        DW __PRINT_TAB    ; 23 TAB
 
         ENDP