Copy from some buffer (ReadBuf) to the GR/Text Screen

copytolores.s

CopyToGR          lda #ReadBuf
                  sta 0
                  ldx #0
:nextline         lda LoLineTable,x
                  sta 2

                  ldy #38
:doline           lda (0),y
                  sta (2),y
                  dey
                  dey
                  bpl :doline
                  lda 0
                  clc
                  adc #40
                  sta 0
                  inx
                  inx
                  cpx #24
                  bne :nextline
                  rts

**************************************************
* Lores/Text lines
**************************************************
Lo01                 equ   $400
Lo02                 equ   $480
Lo03                 equ   $500
Lo04                 equ   $580
Lo05                 equ   $600
Lo06                 equ   $680
Lo07                 equ   $700
Lo08                 equ   $780
Lo09                 equ   $428
Lo10                 equ   $4a8
Lo11                 equ   $528
Lo12                 equ   $5a8
Lo13                 equ   $628
Lo14                 equ   $6a8
Lo15                 equ   $728
Lo16                 equ   $7a8
Lo17                 equ   $450
Lo18                 equ   $4d0
Lo19                 equ   $550
Lo20                 equ   $5d0
* the "plus four" lines
Lo21                 equ   $650
Lo22                 equ   $6d0
Lo23                 equ   $750
Lo24                 equ   $7d0

LoLineTable          da    Lo01,Lo02,Lo03,Lo04,Lo05,Lo06
                     da    Lo07,Lo08,Lo09,Lo10,Lo11,Lo12
                     da    Lo13,Lo14,Lo15,Lo16,Lo17,Lo18
                     da    Lo19,Lo20,Lo21,Lo22,Lo23,Lo24