10 ;System equates used
30 VDSLST =  $0200
50 VVBLKI =  $0222
70 SDMCTL =  $022F
80 SDLSTL =  $0230
90 SDLSTH =  $0231
0130 IRQEN = $D20E
0140 DMACTL = $D400
0150 HSCROL = $D404
0160 CHBASE = $D409
0170 WSYNC = $D40A
0180 NMIEN = $D40E
0190 SYSVBV = $E45F
0200 ;End of system equates
0249 ;--------------------------
0250     *=  $8000
0340     LDA # <DLIST
0350     STA SDLSTL  ;$0230
0360     LDA # >DLIST
0370     STA SDLSTH  ;$0231
0380     LDA # <SCL
0390     STA VDSLST  ;$0200
0400     LDA # >SCL
0410     STA VDSLST+1 ;$0201
0420     LDA #$C0
0430     STA NMIEN   ;$D40E
0440     LDA # <VBI
0450     STA VVBLKI  ;$0222
0460     LDA # >VBI
0470     STA VVBLKI+1 ;$0223
0530     LDA #$02
0540     STA SCRL    ;$A98C
0550     LDA # <TEXT
0560     STA 203
0570     LDA # >TEXT
0580     STA 204
0590 LI  JMP LI
0599 ;--------------------------
0610 SCL PHA 
0620     TXA 
0630     PHA 
0640     LDA #$B4
0650     STA CHBASE  ;$D409
0660     LDX #$00
0670 L0015 LDA L0009,X ;$A94D
0680     STA WSYNC   ;$D40A
0690     STA L0010   ;$D016
0700     LDA L0011,X ;$A95B
0710     STA L0012   ;$D017
0720     LDA L0013,X ;$A969
0730     STA L0014   ;$D018
0740     INX 
0750     CPX #$07
0760     BNE L0015   ;$A8BD
0770     LDA #$B8
0780     STA WSYNC   ;$D40A
0790     STA CHBASE  ;$D409
0800 L0016 LDA L0009,X ;$A94D
0810     STA L0010   ;$D016
0820     LDA L0011,X ;$A95B
0830     STA WSYNC   ;$D40A
0840     STA L0012   ;$D017
0850     LDA L0013,X ;$A969
0860     STA L0014   ;$D018
0870     INX 
0880     CPX #$0F
0890     BNE L0016   ;$A8DF
0900     DEC SCRL    ;$A98C
0910     LDA SCRL    ;$A98C
0920     CMP #$FF
0930     BNE L0017   ;$A924
0940     LDA #$0F
0950     STA SCRL    ;$A98C
0960     INC 203     ;$A9B6
0970     BNE L0001   ;$A9B6
0975     INC 204
0980 L0001 LDA 203
0990     CMP # <ENDTEXT
1000     BNE L0017
1010     LDA 204
1020     CMP # >ENDTEXT
1030     BNE L0017   ;$A924
1040     LDA # >TEXT
1050     STA 204     ;$A9B7
1060     LDA # <TEXT
1065     STA 203     ;$A9B6
1070 L0017 LDA SCRL  ;$A98C
1080     STA HSCROL  ;$D404
1130     PLA 
1140     TAX 
1150     PLA 
1160     RTI 
1169 ;--------------------------
1180 VBI LDA #$2F
1190     STA SDMCTL  ;$022F
1200     STA DMACTL  ;$D400
1210     LDA SCRL    ;$A98C
1220     STA HSCROL  ;$D404
1270     LDA #$00
1280     STA IRQEN   ;$D20E
1290     JSR L0019   ;$A9B1
1300     JMP SYSVBV  ;$E45F
1310 L0019 LDX #$00
1320     LDY #$00
1330 L0022 LDA (203),Y
1340     AND #$1F
1350     STA L0021,X ;$BC00
1360     CLC 
1370     ADC #$20
1380     INX 
1390     STA L0021,X ;$BC00
1400     CLC 
1410     ADC #$20
1420     INX 
1430     STA L0021,X ;$BC00
1440     CLC 
1450     ADC #$20
1460     INX 
1470     STA L0021,X ;$BC00
1480     INX 
1490     INY 
1500     CPY #$0C
1510     BNE L0022   ;$A9B5
1520     RTS 
3930 ;External reference equates
4020 L0010 = $D016
4040 L0012 = $D017
4060 L0014 = $D018
4090 L0021 = $BC00
4120 L0025 = $D01A
4460 ;End of external references
5010 DLIST .BYTE 112
5130     .BYTE 112
5140     .BYTE 112
5150     .BYTE 240
5160     .BYTE $54
5170     .BYTE 0
5180     .BYTE 188
5190     .BYTE $54
5200     .BYTE 0
5210     .BYTE 188
5220     .BYTE 112
5230     .BYTE 112
5240     .BYTE 112
5480     .BYTE 65
5490     .WORD DLIST
8220 L0009 .BYTE 68,70,72,74,76,78,78,76,74,72,70,68,66,64
8360 L0011 .BYTE 198,200,202,204,206,206,204,202,200,198,196,196,196,196
8550 L0013 .BYTE 152,154,156,158,158,156,154,152,150,148,148,148,148,148
8850 SCRL .BYTE 0
8999     .OPT LIST
9000 TEXT .SBYTE "            A NICE COLORFULL SCROLL RIPPED FROM AN HTT DEMO BY THE ISRAEL ATARI CRAZY TEAM"
9010 ENDTEXT
9020     .BYTE "...................."
010000   *=  $02E0
010010   .WORD $8000