10 ; LEFTSCROLL RUTINE IN GR. MODE 0
20 ;         by NIR DAREY
30 ;
40           *=$6000
50            LDA #DLIST&255
60            STA 560
70            LDA #DLIST/256
80            STA 561
90            LDA #$07
0100          LDY #VBI&255
0110          LDX #VBI/256
0120          JSR $E45C
0130          RTS
0140 VBI      INC $6000
0150          LDA $6000
0160          STA $D404;enable scroll
0170          BMI CHECKHI; if N=1
0180          LDA #$F8
0190          STA $6000
0200          STA $D404
0210          DEC LOTEXT
0220          BNE CHECKHI
0230          DEC HITEXT
0240 CHECKHI  LDA HITEXT
0250          CMP #ENDTXT/256
0260          BNE EXITVBI
0270          LDA LOTEXT
0280          CMP #ENDTXT&255
0290          BNE EXITVBI
0300          LDA #TEXT&255
0310          STA LOTEXT
0320          LDA #TEXT/256
0330          STA HITEXT
0340 EXITVBI  JMP $E462;exit VBI
0350 ;
0360 DLIST    .BYTE 112,112,$57
0370 LOTEXT   .BYTE TEXT&255
0380 HITEXT   .BYTE TEXT/256
0390          .BYTE 66,64,188
0400          .BYTE 2,2,2,2,2,2,2,2,2,2,2,2,2
0410          .BYTE 2,2,2,2,2,2,2,2,2,2
0420          .BYTE 65
0430          .WORD DLIST
0440 ;
0450 ENDTXT     .BYTE "........................this.is.a.smotth.scroll.routine.written.in.assembler.editor.by.."
0460          .BYTE "nir.darey....it.is.very.easy.to.follow..if.you.have.any.qustions.just.ask.me.and.i.will.be"
0470          .BYTE ".very.happy.to.answer.you...well.i.have.no.more.text.to.write....i.will.go.now...bbbyyeee."
0480          .BYTE "..........................whatt.you.are.still.here.there.is.no.more.to.read...go.back.to"
0490          .BYTE ".the.editor...................."
0500 TEXT
0600 ;
0610 ; This time the text is running         backword.