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
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
0230     LDA # <TEXT
0240     STA 203
0250     LDA # >TEXT
0260     STA 204
0270 XXX JMP XXX
0280 ;--------------------------
0290 DLI1 PHA 
0300     LDA #$B4
0310     STA $D40A   ;WSYNC
0320     STA $D409   ;CHBASE
0330     LDA # <DLI2
0340     STA 512
0350     LDA # >DLI2
0360     STA 513
0370     PLA 
0380     RTI 
0390 DLI2 PHA 
0400     LDA #$B8
0410     STA $D40A   ;WSYNC
0420     STA $D409   ;CHBASE
0430     LDA # <DLI1
0440     STA 512
0450     LDA # >DLI1
0460     STA 513
0470     PLA 
0480     RTI 
0490 ;-----------------------------
0500 VBI
0510     LDA # <DLI1
0520     STA 512
0530     LDA # >DLI1
0540     STA 513
0550     DEC SCRL
0560     LDA SCRL
0570     CMP #$FF
0580     BNE L0017
0590     LDA #$0F
0600     STA SCRL
0610     INC 203
0620     BNE L0001
0630     INC 204
0640 L0001 LDA 203
0650     CMP # <ENDTEXT
0660     BNE L0017
0670     LDA 204
0680     CMP # >ENDTEXT
0690     BNE L0017
0700     LDA # >TEXT
0710     STA 204
0720     LDA # <TEXT
0730     STA 203
0740 L0017 LDA SCRL
0750     STA $D404   ;HSCROL
0760     LDA #$2F
0770     STA $022F   ;SDMCTL
0780     STA $D400   ;SMACTL
0810     LDA #$00
0820     STA $D20E   ;IRQEN
0830     JSR L0019
0840     JMP $E45F   ;EXITVBI
0850 L0019 LDX #$00
0860     LDY #$00
0870 L0022 LDA (203),Y
0880     AND #$1F
0890     STA $BC00,X
0900     CLC 
0910     ADC #$20
0920     INX 
0930     STA $BC00,X
0940     CLC 
0950     ADC #$20
0960     INX 
0970     STA $BC00,X
0980     CLC 
0990     ADC #$20
1000     INX 
1010     STA $BC00,X
1020     INX 
1030     INY 
1040     CPY #$0C
1050     BNE L0022
1060     RTS 
1070 ;----------------------------
1080 SCRL .BYTE 0
1090 COLPF0 .BYTE $34,$36,$38,$3A,$3C,$3F,$3F,$3C,$3A,$38,$36,$34,$32,$30
1100 COLPF1 .BYTE $16,$18,$1A,$1C,$1F,$1F,$1C,$1A,$18,$16,$14,$14,$14,$14
1110 COLPF2 .BYTE $68,$6A,$6C,$6E,$6E,$6C,$6A,$68,$66,$64,$64,$64,$64,$64
1120 ;-----------------------------
1130 DLIST
1140     .BYTE $4E,$50,$81
1150     .BYTE "............................................"
1160     .BYTE "............................................"
1170     .BYTE "....."
1180     .BYTE $4E,$00,$90
1190     .BYTE "............................................"
1200     .BYTE "............................................"
1210     .BYTE "....."
1220     .BYTE $80,$D5,0,188,$55,0,188
1230     .BYTE $41
1240     .WORD DLIST
1250 ;------------------------------
1260 TEXT .SBYTE "            A NICE COLORFULL SCROLL RIPPED FROM AN HTT DEMO BY THE ISRAEL ATARI CRAZY TEAM"
1270 ENDTEXT
1280     .BYTE "...................."
1290     *=  $02E0
1300     .WORD $8000