10 ;
20 ;       BY IACT In 1993
30 ;
40 ;--------------------------
50       *=  $5000
60       LDA # <DLIST
70       STA 560
80       LDA # >DLIST
90       STA 561
0100     LDA #192
0110     STA $D40E   ;NMIEN
0120     LDA #6
0130     LDY # <VBI
0140     LDX # >VBI
0150     JSR $E45C
0160     LDA #$02
0170     STA SCRL
0180     LDA # <TEXT
0190     STA 203
0200     LDA # >TEXT
0210     STA 204
0220     LDA #$7C
0230     STA 710
0240     LDA #$50
0250     STA 709
0260 MUSICADDR = $7000
0270     JSR MUSICADDR
0280     JMP MIDSCROL
0290 ;--------------------------
0300 DLI1 PHA 
0310     TXA 
0320     PHA 
0330     TYA 
0340     PHA 
0350     LDA #0      ;(0 no GITA)
0360     LDY #64     ;(64=Graphics 9)
0370     LDX #$88    ;scanlines num.
0380 L0000 STA $D40A
0390     STA $D01B   (PRIOR)
0400     CPX #$88
0410     BEQ L1001
0420     NOP 
0430     NOP 
0440     NOP 
0450     NOP 
0460     NOP 
0470     STA $F0
0480 ; Add here 9 Mcycles to split
0490 ; the screen horizontaly into
0500 ; graphics 8 and GITA 9
0510 L1001 CPX #$42
0520     BEQ L0002
0530     NOP         (2 M Cycles)
0540 L0002 NOP 
0550     NOP 
0560     NOP 
0570     NOP 
0580     NOP 
0590     STY $D01B
0600     DEX 
0610     BNE L0000
0620     STA $D40A
0630     STA $D01B
0640     LDA # <DLI2
0650     STA 512
0660     LDA # >DLI2
0670     STA 513
0680     PLA 
0690     TAY 
0700     PLA 
0710     TAX 
0720     PLA 
0730     RTI 
0740 DLI2 PHA 
0750     LDA #$18
0760     STA 53270   ;708
0770     LDA #$15
0780     STA 53271   ;709
0790     LDA #$1D
0800     STA 53272   ;710
0810     LDA #$00
0820     STA 53274   ;712
0830     LDA # <DLI3
0840     STA 512
0850     LDA # >DLI3
0860     STA 513
0870     PLA 
0880     RTI 
0890 DLI3 PHA 
0900     LDA #$18
0910     STA 53270   ;708
0920     LDA #$4B
0930     STA 53271   ;709
0940     LDA #$00
0950     STA 53272   ;710
0960     LDA #$00
0970     STA 53274   ;712
0980     LDA # <DLI4
0990     STA 512
1000     LDA # >DLI4
1010     STA 513
1020     PLA 
1030     RTI 
1040 DLI4 PHA 
1050     LDA #$B4
1060     STA $D40A   ;WSYNC
1070     STA $D409   ;CHBASE
1080     LDA #$A6
1090     STA 53270
1100     STA 53271
1110     STA 53272
1120     LDA # <DLI5
1130     STA 512
1140     LDA # >DLI5
1150     STA 513
1160     PLA 
1170     RTI 
1180 DLI5 PHA 
1190     LDA #$B8
1200     STA $D40A   ;WSYNC
1210     STA $D409   ;CHBASE
1220     LDA # <DLI1
1230     STA 512
1240     LDA # >DLI1
1250     STA 513
1260     PLA 
1270     RTI 
1280 ;-----------------------------
1290 VBI
1300     LDA # <DLI1
1310     STA 512
1320     LDA # >DLI1
1330     STA 513
1340     DEC SCRL
1350     LDA SCRL
1360     CMP #$FF
1370     BNE L0017
1380     LDA #$0F
1390     STA SCRL
1400     INC 203
1410     BNE L0001
1420     INC 204
1430 L0001 LDA 203
1440     CMP # <ENDTEXT
1450     BNE L0017
1460     LDA 204
1470     CMP # >ENDTEXT
1480     BNE L0017
1490     LDA # >TEXT
1500     STA 204
1510     LDA # <TEXT
1520     STA 203
1530 L0017 LDA SCRL
1540     STA $D404   ;HSCROL
1550     LDA #$2F
1560 ;   STA $022F   ;SDMCTL
1570     STA $D400   ;SMACTL
1580     LDA #$00
1590     STA $D20E   ;IRQEN
1600     JSR L0019
1610     JMP $E45F   ;EXITVBI
1620 L0019 LDX #$00
1630     LDY #$00
1640 L0022 LDA (203),Y
1650     AND #$1F
1660     STA $BC00,X
1670     CLC 
1680     ADC #$20
1690     INX 
1700     STA $BC00,X
1710     CLC 
1720     ADC #$20
1730     INX 
1740     STA $BC00,X
1750     CLC 
1760     ADC #$20
1770     INX 
1780     STA $BC00,X
1790     INX 
1800     INY 
1810     CPY #$0C
1820     BNE L0022
1830     RTS 
1840 ;----------------------------
1850 SCRL .BYTE 0
1860 COLPF0 .BYTE $34,$36,$38,$3A,$3C,$3F,$3F,$3C,$3A,$38,$36,$34,$32,$30
1870 COLPF1 .BYTE $16,$18,$1A,$1C,$1F,$1F,$1C,$1A,$18,$16,$14,$14,$14,$14
1880 COLPF2 .BYTE $68,$6A,$6C,$6E,$6E,$6C,$6A,$68,$66,$64,$64,$64,$64,$64
1890 ;-----------------------------
1900 DLIST
1910     .BYTE 128
1920     .BYTE $4F,$50,$81
1930     .BYTE "............................................"
1940     .BYTE "............................................"
1950     .BYTE "....."
1960     .BYTE $4F,$00,$90
1970     .BYTE "........................................."
1980     .BYTE $8E
1990     .BYTE "........................................."
2000     .BYTE $8E,66
2010     .WORD SCR
2020 ;   .BYTE "."
2030     .BYTE $80,$D5,0,188,$55,0,188
2040     .BYTE $41
2050     .WORD DLIST
2060 ;------------------------------
2070 TEXT .SBYTE "            A NICE COLORFULL SCROLL RIPPED FROM AN HTT DEMO BY THE ISRAEL ATARI CRAZY TEAM"
2080 ENDTEXT
2090     .BYTE "...................."
2100 ;
2110 ;
2120 CH  =   57344
2130 LEN =   ENDTEXT2-TEXT2
2140 BASE =  $6008   ;'A'
2150 MIDSCROL
2160     LDA # <CH
2170     STA 205
2180     LDA # >CH
2190     STA 206
2200     LDA # <$6000
2210     STA 207
2230     LDA # >$6000
2235     STA 208
2240 MID LDA # <TEXT2
2250     STA 212
2260     LDA # >TEXT2
2270     STA 213
2280     LDX #4
2290 L2  LDY #0
2300 L1  LDA (205),Y
2310     STA (207),Y
2320     INY 
2330     BNE L1
2340     INC 206
2350     INC 208
2360     DEX 
2370     BNE L2
2380     LDA #$60
2390     STA 756
2400     STA $D409
2410     LDA # <LEN
2420     STA 209
2430     LDA # >LEN
2440     STA 210
2450     LDX #80
2460     LDA #0
2470 L8  STA BASE,X
2480     DEX 
2490     BNE L8
2500 ;---------------------------
2510 GTEXT LDA # <CH
2520     STA 205
2530     LDA # >CH
2540     STA 206
2550     LDA #0
2560     STA RO
2570     LDY #0      ;GET CHAR
2580     LDA (212),Y
2590     ASL A
2600     ROL RO
2610     ASL A
2620     ROL RO
2630     ASL A
2640     ROL RO
2650     ADC 205
2660     STA 205
2670     CLC 
2680     LDA 206
2690     ADC RO
2700     STA 206
2710     LDY #8
2720 L3  LDA (205),Y
2730     STA SPACE,Y
2740     DEY 
2750     BNE L3
2760     JSR SCROLL
2770     INC 212
2780     BNE L4
2790     INC 213
2800 L4  LDY #0
2810     LDA (212),Y
2820     CMP #$4F
2830     BNE GTEXT
2840     JMP MID
2850 ;------------------------------
2860 SCROLL
2870     LDY #8
2880 L7  LDX #0
2890 L5  ASL SPACE,X
2900     ROL BASE,X
2910     ROL BASE+8,X
2920     ROL BASE+16,X
2930     ROL BASE+24,X
2940     ROL BASE+32,X
2950     ROL BASE+40,X
2960     ROL BASE+48,X
2970     ROL BASE+56,X
2980     ROL BASE+64,X
2990     ROL BASE+72,X
3000     TXA 
3010     PHA 
3020     TYA 
3030     PHA 
3040     JSR DELAY
3050     PLA 
3060     TAY 
3070     PLA 
3080     TAX 
3090     INX 
3100     CPX #8
3110     BNE L5
3120     DEY 
3130     BNE L7
3140     RTS 
3150 ;-----------------------------
3160 DELAY
3170     LDX #250
3180 L6  DEX 
3190     BNE L6
3200     RTS 
3210 ;------------------------------
3220 TEXT2 .SBYTE "        This is the Greetinx SCROLLTEXT, Written in random order:"
3230     .SBYTE "     JOHN E.    SPITE RIPSOFT    MARK FENWICK    RAY ROBERTSON   VIDAR OLAVESEN    PETER DELL"
3240     .SBYTE "    DAVID EWENS    ADRIAN GROVES    DEAN CHADWICK    RICKY    REDWING    ARNOLD BONTESMA    "
3250     .SBYTE "ALEX ZELENSKI    BILL JACKSON    SEAN LABRECQUE    and to all whom i forgot! sorry.....       ."
3260     .SBYTE "                                                                           "
3270 ENDTEXT2
3280 SPACE .BYTE "......................."
3290 RO  .BYTE 0
3300     .BYTE 66
3310     .WORD SCR
3320 ;-----------------------------
3330 SCR .SBYTE "        <IACT>*)('&%$#"
3340     .SBYTE 34
3350     .SBYTE "!<IACT>              "
3360     *=  $02E2
3370     .WORD $5000