10 ;     Smoooth Scrolling With
20 ;  Graphics Mode E and DLI intr.
30 ;         by NIR DAREY
40 ;
0420     *=  $7000
0430     LDA #DLINT&255
0440     STA 512   ;VDSLSTL
0450     LDA #DLINT/256
0460     STA 513   ;VDSLSTH
0465     LDA #$C0
0470     STA $D40E ;enable DLI
0480     LDA #DLIST&255
0490     STA 560   ;DLISTL
0500     LDA #DLIST/256
0510     STA 561   ;DLISTH
0520     LDA #VBLNK&255
0530     STA $0222   ;VVBLKI
0540     LDA #VBLNK/256
0550     STA $0223   ;VVBLKI+1
0560 ;   LDA LOTXT
0570 ;   INC LOTXT
0580 ;   STA $688D
0590 ;   LDA HITXT
0600 ;   STA $688E
0640     RTS 
0645 VBLNK
0650     DEC $0600
0660     LDA $0600
0670     BMI L0007
0680     STA $D404   ;HSCROL
0690     JMP L0008
0700 L0007 LDA #$07
0710     STA $0600
0720     STA $D404   ;HSCROL
0730     INC LOTXT
0740     BNE L0009
0750     INC HITXT
0760 L0009 LDA HITXT
0770     CMP #ESCRL/256
0780     BNE L0008
0790     LDA LOTXT
0800     CMP #ESCRL&255
0810     BNE L0008
0820     LDA SCLTX&255
0830     STA LOTXT
0840     LDA SCLTX/256
0850     STA HITXT
0860 L0008 JMP $C0E2 ;XITVBI
0870 DLINT
0880     PHA
0885     TXA
0890     PHA
0900     LDX #$10
0905 L0004 LDA DLIDT,X ;Load clours
0910     STA $D40A
0920     STA $D019 ;(shadow 711)
0925     DEX
0930     BNE L0004
0935     PLA
0940     TAX
0945     PLA
0950     RTI
1000 ; Dispaly List DATA
1005 DLIST
1010  .BYTE 112,112,$4E,$50,$81
1020  .BYTE 14,14,14,14,14,14,14,14
1030  .BYTE 14,14,14,14,14,14,14,14
1040  .BYTE 14,14,14,14,14,14,14,14
1050  .BYTE 14,14,14,14,14,14,14,14
1060  .BYTE 14,14,14,14,14,14,14,14
1070  .BYTE 14,14,14,14,14,14,14,14
1080  .BYTE 14,14,14,14,14,14,14,14
1090  .BYTE 14,14,14,14,14,14,14,14
1100  .BYTE 14,14,14,14,14,14,14,14
1110  .BYTE 14,14,14,14,14,14,14,14
1120  .BYTE 14,14,14,14,14,14,14,14
1130  .BYTE 14,14,14,14,14
1140  .BYTE $4E,$00,$90
1150  .BYTE 14,14,14,14,14,14,14,14
1160  .BYTE 14,14,14,14,14,14,14,14
1170  .BYTE 14,14,14,14,14,14,14,14
1180  .BYTE 14,14,14,14,14,14,14,14
1190  .BYTE 14,14,14,14,14,14,14,14
1200  .BYTE 14,14,14,14,14,14,14,14
1210  .BYTE 14,14,14,14,14,14,14,14
1220  .BYTE 14,14,14,14,14,14,14,14
1230  .BYTE 14,14,14,14,14,14,14,14
1240  .BYTE 14,14,14,14,14,14,14,14
1250  .BYTE 14,14,14,14,14,14,14,14
1260  .BYTE 14,14,14,14,$80,$57
1270 LOTXT .BYTE SCLTX&255
1280 HITXT .BYTE SCLTX/256
1290  .BYTE $41
1300  .WORD DLIST
1310 ;
1320 ; Colour of the DLI routine
1330 DLIDT
1340  .BYTE $50,$52,$54,$56,$58,$5A,$5C,$5E,$5F
1350  .BYTE $5E,$5C,$5A,$58,$56,$54,$52,$50
2000 ; The Scroll Text
2005 SCLTX
2010  .BYTE "......................................this.improved.scroll.routine.was.written.by.nir.darey.using."
2020  .BYTE "the.assembler.editor.cartrige.with.smooth.scrolling.you.allso.have.graphics.picture.in.mode.e."
2030  .BYTE "and.more.than.one.colour.in.the.text.i.ollso.can.include.musix.and.some.other.stuff.the."
2040  .BYTE "scroll.routine.is.more.than.one.page.and.this.small.program.is.very.easy.to.follow........"
4000 ESCRL