mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-25 15:29:37 +00:00
Scrolling with text windows works in MODE 1 now.
This commit is contained in:
parent
2ba4c6fc37
commit
93316eaaf1
|
@ -35,7 +35,13 @@ PRCHRSOFT CMP #$A0 ; Convert to screen code
|
||||||
PUTCHRET >>> ENTAUX
|
PUTCHRET >>> ENTAUX
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
HSCR1LINE >>> XF2MAIN,HGRSCR1L
|
HSCR1LINE >>> WRTMAIN
|
||||||
|
LDX TXTWINLFT
|
||||||
|
STX MTXTWINLFT
|
||||||
|
LDX TXTWINRGT
|
||||||
|
STX MTXTWINRGT
|
||||||
|
>>> WRTAUX
|
||||||
|
>>> XF2MAIN,HGRSCR1L
|
||||||
HSCR1RET >>> ENTAUX
|
HSCR1RET >>> ENTAUX
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
|
|
|
@ -145,6 +145,7 @@ DRAWCHAR >>> ENTMAIN
|
||||||
|
|
||||||
* Copy text line A+1 to line A
|
* Copy text line A+1 to line A
|
||||||
HGRSCR1L >>> ENTMAIN
|
HGRSCR1L >>> ENTMAIN
|
||||||
|
INC MTXTWINRGT
|
||||||
ASL ; Dest addr->A4L,A4H
|
ASL ; Dest addr->A4L,A4H
|
||||||
TAX
|
TAX
|
||||||
LDA MHGRTAB,X
|
LDA MHGRTAB,X
|
||||||
|
@ -158,11 +159,11 @@ HGRSCR1L >>> ENTMAIN
|
||||||
LDA MHGRTAB+1,X
|
LDA MHGRTAB+1,X
|
||||||
STA A1H
|
STA A1H
|
||||||
LDX #$00
|
LDX #$00
|
||||||
:L1 LDY #$00
|
:L1 LDY MTXTWINLFT
|
||||||
:L2 LDA (A1L),Y
|
:L2 LDA (A1L),Y
|
||||||
STA (A4L),Y
|
STA (A4L),Y
|
||||||
INY
|
INY
|
||||||
CPY #40 ; 40 chars in line
|
CPY MTXTWINRGT
|
||||||
BNE :L2
|
BNE :L2
|
||||||
INC A1H ; Advance source 1024 bytes
|
INC A1H ; Advance source 1024 bytes
|
||||||
INC A1H
|
INC A1H
|
||||||
|
@ -207,6 +208,7 @@ LINETYPE DB $00 ; 0 normal, 1 XOR
|
||||||
PLOTMODE DB $00 ; K value for PLOT K,X,Y
|
PLOTMODE DB $00 ; K value for PLOT K,X,Y
|
||||||
HGRADDR DW $0000 ; Address 1st line of HGR char
|
HGRADDR DW $0000 ; Address 1st line of HGR char
|
||||||
MVDUTEXTX DB $00 ; Main mem copy of VDUTEXTX
|
MVDUTEXTX DB $00 ; Main mem copy of VDUTEXTX
|
||||||
|
MTXTWINLFT DB $00 ; Main mem copy of TEXTWINLFT
|
||||||
MTXTWINRGT DB $00 ; Main mem copy of TEXTWINRGT
|
MTXTWINRGT DB $00 ; Main mem copy of TEXTWINRGT
|
||||||
|
|
||||||
* Addresses of start of pixel rows in PAGE1
|
* Addresses of start of pixel rows in PAGE1
|
||||||
|
|
Loading…
Reference in New Issue
Block a user