10 ; THIS SMALL ROUTINE OF SCROLL
20 ; WAS RIPPED FROM AN HTT. DEMO
30 ;       BY IACT In 1993
40 ;
50 ;--------------------------
60       *=  $8000
70       LDA # <DLIST
80       STA 560
90       LDA # >DLIST
0100     STA 561
0110     LDA # <DLI
0120     STA 512
0130     LDA # >DLI
0140     STA 513
0150     LDA #192
0160     STA $D40E   ;NMIEN
0170     LDA #6
0180     LDY # <VBI
0190     LDX # >VBI
0200     JSR $E45C
0210     LDA #$02
0220     STA SCRL    ;$A98C
0230     LDA # <TEXT
0240     STA 203
0250     LDA # >TEXT
0260     STA 204
0270 XXX JMP XXX
0280 ;--------------------------
0290 DLI PHA 
0300     TXA 
0310     PHA 
0320     LDA #$B4
0330     STA $D409   ;CHBASE
0340     LDX #$00
0350 L0015 LDA COLPF0,X
0360     STA $D40A   ;WSYNC
0370     STA $D016
0380     LDA COLPF1,X
0390     STA $D017
0400     LDA COLPF2,X
0410     STA $D018
0420     INX 
0430     CPX #$07
0440     BNE L0015
0450     LDA #$B8
0460     STA $D40A   ;WSYNC
0470     STA $D409   ;CHBASE
0480 L0016 LDA COLPF0,X
0490     STA $D016
0500     LDA COLPF1,X
0510     STA $D40A   ;WSYNC
0520     STA $D017
0530     LDA COLPF2,X
0540     STA $D018
0550     INX 
0560     CPX #$0F
0570     BNE L0016
0580     DEC SCRL
0590     LDA SCRL
0600     CMP #$FF
0610     BNE L0017
0620     LDA #$0F
0630     STA SCRL
0640     INC 203
0650     BNE L0001
0660     INC 204
0670 L0001 LDA 203
0680     CMP # <ENDTEXT
0690     BNE L0017
0700     LDA 204
0710     CMP # >ENDTEXT
0720     BNE L0017
0730     LDA # >TEXT
0740     STA 204
0750     LDA # <TEXT
0760     STA 203
0770 L0017 LDA SCRL
0780     STA $D404   ;HSCROL
0790     PLA 
0800     TAX 
0810     PLA 
0820     RTI 
0830 ;--------------------------
0840 VBI LDA #$2F
0850     STA $022F   ;SDMCTL
0860     STA $D400   ;SMACTL
0870     LDA SCRL
0880     STA $D404   ;HSCROL
0890     LDA #$00
0900     STA $D20E   ;IRQEN
0910     JSR L0019
0920     JMP $E45F   ;EXITVBI
0930 L0019 LDX #$00
0940     LDY #$00
0950 L0022 LDA (203),Y
0960     AND #$1F
0970     STA $BC00,X
0980     CLC 
0990     ADC #$20
1000     INX 
1010     STA $BC00,X
1020     CLC 
1030     ADC #$20
1040     INX 
1050     STA $BC00,X
1060     CLC 
1070     ADC #$20
1080     INX 
1090     STA $BC00,X
1100     INX 
1110     INY 
1120     CPY #$0C
1130     BNE L0022
1140     RTS 
1150 ;----------------------------
1310 SCRL .BYTE 0
1320 COLPF0 .BYTE $34,$36,$38,$3A,$3C,$3F,$3F,$3C,$3A,$38,$36,$34,$32,$30
1330 COLPF1 .BYTE $16,$18,$1A,$1C,$1F,$1F,$1C,$1A,$18,$16,$14,$14,$14,$14
1340 COLPF2 .BYTE $68,$6A,$6C,$6E,$6E,$6C,$6A,$68,$66,$64,$64,$64,$64,$64
1345 ;-----------------------------
4010 DLIST
4030     .BYTE $4E,$50,$81
4040     .BYTE "............................................"
4050     .BYTE "............................................"
4060     .BYTE "....."
4070     .BYTE $4E,$00,$90
4080     .BYTE "............................................"
4090     .BYTE "............................................"
4100     .BYTE "....."
4105     .BYTE $80,$54,0,188,$54,0,188
4110     .BYTE $41
4120     .WORD DLIST
4130 ;------------------------------
5000 TEXT .SBYTE "            A NICE COLORFULL SCROLL RIPPED FROM AN HTT DEMO BY THE ISRAEL ATARI CRAZY TEAM"
5010 ENDTEXT
5020     .BYTE "...................."
5030     *=  $02E0
5040     .WORD $8000