01 ; .................................
02 ; |DO NOT FORGET TO PRELOAD 'FONT'|
03 ; |OR TO APPEND THE FILE TO IT.   |
04 ; .................................
05 ; |ANTIC MODE 4 SCROLL-EXTRACTED  |
06 ; |FROM PAGE 6 INTRO PROGRAM      |
07 ; |BY SAFERMAN OFER ,NOVEMBER 1992|
08 ; |TEL.:(972)-[0]3-9304404, ISAEL |
09 ; .................................
10 ;System equates used
20 VDSLST =  $0200
30 CDTMV5 =  $0220
40 ICCOM =   $0342
50 ICBAL =   $0344
60 ICBAH =   $0345
70 ICBLL =   $0348
80 ICBLH =   $0349
90 ICAX1 =   $034A
0100 IRQEN = $D20E
0110 DMACTL = $D400
0120 DLISTL = $D402
0130 DLISTH = $D403
0140 HSCROL = $D404
0150 CHBASE = $D409
0160 NMIEN = $D40E
0170 NMIST = $D40F
0180 WSYNC = $D40A
0190 ;End of system equates
0200 ;Zero-page equates
0210 Z0025 = $F0
0220 Z0026 = $F1
0230 Z0031 = $FF
0240 Z0043 = $F2
0245 LEN =   ENDTEXT-TEXT
0250 ;End of zero-page equates
0260     *=  $6C00
0440     LDA # <LEN
0450     STA $0368
0460     LDA # >LEN
0470     STA $0369
0570     LDA #$00
0580     STA IRQEN   ;$D20E
0590     STA NMIEN   ;$D40E
0600     TAX 
0610 L0010 LDA L0002,X ;$E000
0620     STA L0003,X ;$3800
0630     LDA L0004,X ;$E100
0640     STA L0005,X ;$3900
0650     LDA L0006,X ;$E200
0660     STA L0007,X ;$3A00
0670     LDA L0008,X ;$E300
0680     STA L0009,X ;$3B00
0690     INX 
0700     BNE L0010   ;$6C54
0710     LDA #$FE
0720     STA L0011   ;$D301
0730     LDX #$00
0740 L0012 LDA L0003,X ;$3800
0750     STA L0002,X ;$E000
0760     LDA L0005,X ;$3900
0770     STA L0004,X ;$E100
0780     LDA L0007,X ;$3A00
0790     STA L0006,X ;$E200
0800     LDA L0009,X ;$3B00
0810     STA L0008,X ;$E300
0820     INX 
0830     BNE L0012   ;$6C76
0860     LDX #0
1020 L0015 STA L0013,X ;$3200
1030     STA L0014,X ;$3300
1040     INX 
1050     BNE L0015   ;$6C94
1090     LDX #$00
1100 L0024 LDA L0016,X ;$E0C0
1110     STA L0017,X ;$3214
1120     LDA L0018,X ;$E110
1130     STA L0019,X ;$3294
1140     LDA L0020,X ;$E148
1150     STA L0021,X ;$3314
1160     LDA L0022,X ;$E1A0
1170     STA L0023,X ;$3394
1180     INX 
1190     CPX #$08
1200     BNE L0024   ;$6CB1
1960 L0200 LDA # <TEXT
1970     STA Z0025   ;$00F0
1980     LDA # >TEXT
1990     STA Z0026   ;$00F1
2000     LDA # <L0100
2010     STA L0027   ;$FFFA
2020     LDA # >L0100
2030     STA L0028   ;$FFFB
2040     LDA # <L0101
2050     STA L0029   ;$FFFE
2060     LDA # >L0101
2070     STA L0030   ;$FFFF
2080     LDA # <DLI
2090     STA VDSLST  ;$0200
2100     LDA # >DLI
2110     STA VDSLST+1 ;$0201
2120     LDA # <DLIST
2130     STA DLISTL  ;$D402
2140     LDA # >DLIST
2150     STA DLISTH  ;$D403
2160     LDA #$C0
2170     STA NMIEN   ;$D40E
2180     STA Z0031   ;$00FF
2190 L0037 LDA Z0031 ;$00FF
2200     BNE L0032   ;$6D64
2210     JSR L0033   ;$6E85
2240     LDA #$01
2250     STA Z0031   ;$00FF
2260 L0032 JMP L0037
2262     LDA L0036   ;$D01F
2270     AND #$01
2280     BNE L0037   ;$6D53
2290     JMP L0038   ;$6C00
2300 L0100 PHA 
2310     TXA 
2320     PHA 
2330     TYA 
2340     PHA 
2350     BIT NMIST   ;$D40F
2360     BPL L0039   ;$6D84
2370     JMP (VDSLST) ;$0200
2380 L0042 STA NMIST ;$D40F
2390     PLA 
2400     TAY 
2410     PLA 
2420     TAX 
2430     PLA 
2440 L0101 RTI 
2610 L0039 LDA #$00
2620     STA Z0031   ;$00FF
2630     JMP L0042   ;$6D7B
4940 L0033 DEC Z0043 ;$00F2
4950     LDA Z0043   ;$00F2
4960     CMP #$FF
4970     BNE L0044   ;$6EE9
4980     INC LO1     ;$70CB
4990     LDA LO1     ;$70CB
5000     STA LO2     ;$70CE
5010     CMP #$04
5020     BNE L0047   ;$6EE5
5030     LDY #$00
5040     LDX #$04
5050 L0049 LDA L0048,X ;$7600
5060     STA L0048,Y ;$7600
5070     INX 
5080     INY 
5090     CPY #$30
5100     BNE L0049   ;$6E9E
5110     LDY #$00
5120     LDA (Z0025),Y ;$00F0
5130     AND #$9F
5140     STA L0050   ;$7630
5150     EOR #$20
5160     STA L0051   ;$7631
5170     EOR #$60
5180     STA L0052   ;$7632
5190     EOR #$20
5200     STA L0053   ;$7633
5210     INC Z0025   ;$00F0
5220     BNE L0054   ;$6EC8
5230     INC Z0026   ;$00F1
5240 L0054 DEC L0055 ;$0368
5250     LDA L0055   ;$0368
5260     CMP #$FF
5270     BNE L0056   ;$6EDD
5280     DEC L0057   ;$0369
5290     LDA L0057   ;$0369
5300     BPL L0056   ;$6EDD
5310     JMP L0038   ;$6C00
5320 L0056 LDA #$00
5330     STA LO1     ;$70CB
5340     STA LO2     ;$70CE
5350 L0047 LDA #$03
5360     STA Z0043   ;$00F2
5370 L0044 RTS 
6180 DLI LDA #$23    ;DLI START
6185     STA WSYNC
6190     STA DMACTL  ;---------
6200     LDA Z0043   ;$00F2
6210     STA HSCROL  ;$D404
6220     LDA #$78
6230     STA CHBASE  ;$D409
6440     LDA # <L0102
6450     STA VDSLST  ;$0200
6460     LDA # >L0102
6470     STA VDSLST+1 ;$0201
6480     JMP L0042   ;$6D7B
6490 L0102 LDA #$7C  ;DLI NO.2
6500     STA WSYNC
6540     STA CHBASE  ;$D409
6550     LDA # <DLI
6560     STA VDSLST  ;$0200
6570     LDA # >DLI
6580     STA VDSLST+1 ;$0201
6590     JMP L0042   ;$6D7B
7520 ;External reference equates
7530 L0002 = $E000
7540 L0003 = $3800
7550 L0004 = $E100
7560 L0005 = $3900
7570 L0006 = $E200
7580 L0007 = $3A00
7590 L0008 = $E300
7600 L0009 = $3B00
7610 L0011 = $D301
7620 L0013 = $3200
7630 L0014 = $3300
7640 L0016 = $E0C0
7650 L0017 = $3214
7660 L0018 = $E110
7670 L0019 = $3294
7680 L0020 = $E148
7690 L0021 = $3314
7700 L0022 = $E1A0
7710 L0023 = $3394
7720 L0027 = $FFFA
7730 L0028 = $FFFB
7740 L0029 = $FFFE
7750 L0030 = $FFFF
7760 L0036 = $D01F
7800 L0048 = $7600
7810 L0050 = $7630
7820 L0051 = $7631
7830 L0052 = $7632
7840 L0053 = $7633
7850 L0055 = $0368
7860 L0057 = $0369
7870 ;End of external references
7880 TEXT .BYTE "A COLORFULL SCROLL ALSO RIPPED FROM PAGE SIX INTRO BY IACT            "
7890 ENDTEXT
8000     .INCLUDE #D:PAG6DL2.ASM
8010     *=  $7600
8020     .BYTE "............................................................"
8040     *=  $6E00
9000 L0038 LDA # <LEN
9010     STA $0368
9020     LDA #0
9030     STA $0369
9040     LDA #0
9050     STA IRQEN
9060     STA NMIEN
9061     LDA #4
9062     STA 710
9070     JMP L0200
9100     *=  $02E0
9110     .WORD $6C00