From 93316eaaf17d72e9592eac4fa7f3b386a6d162d4 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Sat, 17 Sep 2022 01:59:41 -0400 Subject: [PATCH] Scrolling with text windows works in MODE 1 now. --- auxmem.gfx.s | 8 +++++++- mainmem.gfx.s | 6 ++++-- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/auxmem.gfx.s b/auxmem.gfx.s index 7125c46..9a36b1f 100644 --- a/auxmem.gfx.s +++ b/auxmem.gfx.s @@ -35,7 +35,13 @@ PRCHRSOFT CMP #$A0 ; Convert to screen code PUTCHRET >>> ENTAUX RTS -HSCR1LINE >>> XF2MAIN,HGRSCR1L +HSCR1LINE >>> WRTMAIN + LDX TXTWINLFT + STX MTXTWINLFT + LDX TXTWINRGT + STX MTXTWINRGT + >>> WRTAUX + >>> XF2MAIN,HGRSCR1L HSCR1RET >>> ENTAUX RTS diff --git a/mainmem.gfx.s b/mainmem.gfx.s index 62367bb..a7bd5ab 100644 --- a/mainmem.gfx.s +++ b/mainmem.gfx.s @@ -145,6 +145,7 @@ DRAWCHAR >>> ENTMAIN * Copy text line A+1 to line A HGRSCR1L >>> ENTMAIN + INC MTXTWINRGT ASL ; Dest addr->A4L,A4H TAX LDA MHGRTAB,X @@ -158,11 +159,11 @@ HGRSCR1L >>> ENTMAIN LDA MHGRTAB+1,X STA A1H LDX #$00 -:L1 LDY #$00 +:L1 LDY MTXTWINLFT :L2 LDA (A1L),Y STA (A4L),Y INY - CPY #40 ; 40 chars in line + CPY MTXTWINRGT BNE :L2 INC A1H ; Advance source 1024 bytes INC A1H @@ -207,6 +208,7 @@ LINETYPE DB $00 ; 0 normal, 1 XOR PLOTMODE DB $00 ; K value for PLOT K,X,Y HGRADDR DW $0000 ; Address 1st line of HGR char MVDUTEXTX DB $00 ; Main mem copy of VDUTEXTX +MTXTWINLFT DB $00 ; Main mem copy of TEXTWINLFT MTXTWINRGT DB $00 ; Main mem copy of TEXTWINRGT * Addresses of start of pixel rows in PAGE1