10       .OPT NO LIST
20 ;     Smoooth Scrolling With
30 ;  Graphics Mode E and DLI intr.
40 ;         by NIR DAREY
50 ;
60       *=  $7500
70 DUMMY NOP 
80       LDA #$40
90       STA 756
0100     LDA #DLINT&255
0110     STA 512     ;VDSLSTL
0120     LDA #DLINT/256
0130     STA 513     ;VDSLSTH
0140     LDA #$C0
0150     STA $D40E   ;enable DLI
0160     LDA #DLIST&255
0170     STA 560     ;DLISTL
0180     LDA #DLIST/256
0190     STA 561     ;DLISTH
0195     LDA #7
0200     LDY #VBLNK&255
0210     LDX #VBLNK/256
0220     JSR $E45C
0240     LDA L0001
0250     INC L0001
0260     STA STRDATLO
0270     LDA L0003
0280     STA STRDATHI
0290     LDA #$02
0300     LDX #$12
0310     LDY #$06
0320     STA $02C4
0330     STX $02C5
0340     STY $02C6
0350     LDA #$00
0360     STA $02C8
0361     LDA #1
0362     JSR $5700
0370     JMP PMSCROLL
0380 VBLNK
0385     JSR $5703
0390     DEC DUMMY
0400     LDA DUMMY
0410     BMI L0007
0420     STA $D404   ;HSCROL
0430     JMP L0008
0440 L0007 LDA #$07
0450     STA DUMMY
0460     STA $D404   ;HSCROL
0470     INC L0001
0480     BNE L0009
0490     INC L0003
0500 L0009 LDA L0003
0510     CMP #ESCRL/256
0520     BNE L0008
0530     LDA L0001
0540     CMP #ESCRL&255
0550     BNE L0008
0560     LDA STRDATLO
0570     STA L0001
0580     LDA STRDATHI
0590     STA L0003
0600 L0008 JMP $E462
0610 ;
0620 DLINT
0630     PHA 
0640     LDA #$35
0650     STA $D40A
0660     STA $D012
0670     STA $D013
0680     STA $D014
0690     STA $D015
0700     LDA #$74
0710     STA $D016
0720     PLA 
0730     RTI 
0740 ;
0750 ;The Display List
0760 ;
0770 DLIST
0780     .BYTE $70,$70
0790     .BYTE $4E,$50,$81
0800     .BYTE 14,14,14,14,14,14,14,14
0810     .BYTE 14,14,14,14,14,14,14,14
0820     .BYTE 14,14,14,14,14,14,14,14
0830     .BYTE 14,14,14,14,14,14,14,14
0840     .BYTE 14,14,14,14,14,14,14,14
0850     .BYTE 14,14,14,14,14,14,14,14
0860     .BYTE 14,14,14,14,14,14,14,14
0870     .BYTE 14,14,14,14,14,14,14,14
0880     .BYTE 14,14,14,14,14,14,14,14
0890     .BYTE 14,14,14,14,14,14,14,14
0900     .BYTE 14,14,14,14,14,14,14,14
0910     .BYTE 14,14,14,14,14
0920     .BYTE $4E,$00,$90
0930     .BYTE 14,14,14,14,14,14,14,14
0940     .BYTE 14,14,14,14,14,14,14,14
0950     .BYTE 14,14,14,14,14,14,14,14
0960     .BYTE 14,14,14,14,14,14,14,14
0970     .BYTE 14,14,14,14,14,14,14,14
0980     .BYTE 14,14,14,14,14,14,14,14
0990     .BYTE 14,14,14,14,14,14,14,14
1000     .BYTE 14,14,14,14,14,14,14,14
1010     .BYTE 14,14,14,14,14,14,14,14
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
1050     .BYTE $80,$70,$57
1060 L0001 .BYTE SCLTX&255
1070 L0003 .BYTE SCLTX/256
1080     .BYTE $41
1090     .WORD DLIST
1100 ;
1110 ; The Scroll Text
1120 SCLTX
1130     .SBYTE "                                      WELL, WHAT DO YOU THINK ABOUT THIS NICE DEMO, IS IT COOL! "
1140     .SBYTE "OR WHAT!?      I THINK THAT YOU PROBABLY ALLREADY RECODNIZED THE PICTURE,  YES IT'S ONE OF "
1150     .SBYTE "IRON MAIDEN CREATURES IS HE NICE OR WHAT?  WE HOPE THAT YOU ARE ENJOYING THIS DEMO, AND WE "
1160     .SBYTE "HOPE THAT WE WON'T GET YOU BORE WITH THIS LONG TEXT.                                          "
1170 ESCRL
1180     .SBYTE "                                       "
1190 STRDATLO .BYTE 0
1200 STRDATHI .BYTE 0
1210     .INCLUDE #D:SCROLL.ASM