10 ;System equates used 20 VDSLST = $0200 0100 IRQEN = $D20E 0110 DMACTL = $D400 0120 DLISTL = $D402 0130 DLISTH = $D403 0140 HSCROL = $D404 0150 CHBASE = $D409 0160 WSYNC = $D40A 0170 NMIEN = $D40E 0180 NMIST = $D40F 0200 ;End of system equates 0210 ;Zero-page equates 0220 Z0032 = $F9 0230 Z0033 = $FA 0240 Z0034 = $FB 0250 Z0035 = $FD 0260 Z0038 = $FF 0270 Z0054 = $FC 0280 Z0055 = $FE 0290 Z0058 = $F7 0300 Z0060 = $F8 0310 Z0068 = $F2 0320 ;End of zero-page equates 0330 *= $6C00 0640 LDA #$00 0650 STA IRQEN ;$D20E 0660 STA NMIEN ;$D40E 0670 TAX 0680 L0010 LDA L0002,X ;$E000 0690 STA L0003,X ;$3800 0700 LDA L0004,X ;$E100 0710 STA L0005,X ;$3900 0720 LDA L0006,X ;$E200 0730 STA L0007,X ;$3A00 0740 LDA L0008,X ;$E300 0750 STA L0009,X ;$3B00 0760 INX 0770 BNE L0010 ;$6C54 0780 LDA #$FE 0790 STA L0011 ;$D301 0800 LDX #$00 0810 L0012 LDA L0003,X ;$3800 0820 STA L0002,X ;$E000 0830 LDA L0005,X ;$3900 0840 STA L0004,X ;$E100 0850 LDA L0007,X ;$3A00 0860 STA L0006,X ;$E200 0870 LDA L0009,X ;$3B00 0880 STA L0008,X ;$E300 0890 INX 0900 BNE L0012 ;$6C76 0910 LDX #$00 0920 TXA 0930 L0020 STA L0013,X ;$C000 0940 STA L0014,X ;$C100 0950 STA L0015,X ;$C200 0960 STA L0016,X ;$C300 0970 STA L0017,X ;$C400 0980 STA L0018,X ;$3200 0990 STA L0019,X ;$3300 1000 INX 1010 BNE L0020 ;$6C94 1030 LDX #$00 1040 L0030 LDA L0022,X ;$E0C0 1050 STA L0023,X ;$3214 1060 LDA L0024,X ;$E110 1070 STA L0025,X ;$3294 1080 LDA L0026,X ;$E148 1090 STA L0027,X ;$3314 1100 LDA L0028,X ;$E1A0 1110 STA L0029,X ;$3394 1120 INX 1130 CPX #$08 1140 BNE L0030 ;$6CB1 1250 LDA #$04 1260 STA L0031 ;$D01B 1690 LDA #$22 1700 STA DMACTL ;$D400 1710 LDA # TEXT 1740 STA Z0033 ;$00FA 1750 LDA #$04 1760 STA Z0034 ;$00FB 1770 LDA #$06 1780 STA Z0035 ;$00FD 1870 LDA # L0100 1900 STA L0037 ;$FFFB 2010 LDA # L0101 2040 STA VDSLST+1 ;$0201 2050 LDA # DLIST 2080 STA DLISTH ;$D403 2090 LDA #$C0 2100 STA NMIEN ;$D40E 2110 STA Z0038 ;$00FF 2120 L0044 LDA Z0038 ;$00FF 2130 BNE L0044 ;$6D64 2150 JSR L0041 ;$6E16 2170 LDA #$01 2180 STA Z0038 ;$00FF 2185 BNE L0044 2230 L0100 PHA 2240 TXA 2250 PHA 2260 TYA 2270 PHA 2280 BIT NMIST ;$D40F 2290 BPL L0046 ;$6D84 2300 JMP (VDSLST) ;$0200 2310 L0050 STA NMIST ;$D40F 2320 PLA 2330 TAY 2340 PLA 2350 TAX 2360 PLA 2370 RTI 2380 L0046 DEC Z0034 ;$00FB 2390 DEC Z0034 ;$00FB 2400 LDA Z0034 ;$00FB 2410 CMP #$FE 2420 BNE L0047 ;$6D92 2430 LDA #$FF 2440 STA Z0034 ;$00FB 2450 L0047 JSR L0048 ;$6E03 2460 JSR L0049 ;$6DDC 2470 LDA #$00 2480 STA Z0038 ;$00FF 2490 JMP L0050 ;$6D7B 3110 L0049 DEC Z0035 ;$00FD 3120 LDA Z0035 ;$00FD 3130 BNE L0051 ;$6DEE 3140 LDA #$08 3150 STA Z0035 ;$00FD 3160 INC Z0032 ;$00F9 3170 LDA Z0032 ;$00F9 3180 BNE L0051 ;$6DEE 3190 INC Z0033 ;$00FA 3200 L0051 LDA Z0032 ;$00F9 3210 CMP # TEXT 3250 BNE L0052 ;$6E02 3260 LDA # TEXT 3290 STA Z0033 ;$00FA 3300 L0052 RTS 3310 L0048 LDX #$00 3320 TXA 3330 L0053 STA L0013,X ;$C000 3340 STA L0014,X ;$C100 3350 STA L0015,X ;$C200 3360 STA L0016,X ;$C300 3370 INX 3380 BNE L0053 ;$6E06 3390 RTS 3400 L0041 LDY #$00 3410 L0067 TYA 3420 PHA 3430 ASL A 3440 ASL A 3450 ASL A 3460 STA Z0054 ;$00FC 3470 LDX Z0035 ;$00FD 3480 DEX 3490 EOR #$08 3500 STX Z0055 ;$00FE 3510 LDA Z0034 ;$00FB 3520 CLC 3530 ADC Z0055 ;$00FE 3540 ADC Z0054 ;$00FC 3550 BCC L0056 ;$6E32 3560 SEC 3570 SBC #$FF 3580 L0056 TAX 3590 LDA L0057,X ;$728F 3600 CLC 3610 ADC #$00 3620 STA Z0058 ;$00F7 3630 LDA #$C0 3640 CLC 3650 ADC L0059,X ;$73E5 3660 STA Z0060 ;$00F8 3670 LDA #$00 3680 STA L0061 ;$6E69 3690 STA L0062 ;$6E6A 3700 LDX #$03 3710 CLC 3720 LDA (Z0032),Y ;$00F9 3730 L0063 ROL A 3740 ROL L0062 ;$6E6A 3750 DEX 3760 BNE L0063 ;$6E50 3770 STA L0061 ;$6E69 3780 LDA L0062 ;$6E6A 3790 CLC 3800 ADC #$E0 3810 STA L0062 ;$6E6A 3820 LDX #$00 3830 PLA 3840 TAY 3850 PHA 3860 L0066 .BYTE 189 ;LDA ABS.,X 3861 L0061 .BYTE 255 3862 L0062 .BYTE 255 3870 STA (Z0058),Y ;$00F7 3880 LDA Z0058 ;$00F7 3890 CLC 3900 ADC #$18 3910 STA Z0058 ;$00F7 3920 BCC L0065 ;$6E78 3930 INC Z0060 ;$00F8 3940 L0065 INX 3950 CPX #$08 3960 BNE L0066 ;$6E68 3970 PLA 3980 TAY 3990 INY 4000 CPY #$17 4010 BNE L0067 ;$6E18 4020 RTS 6480 L0101 LDA #80 6490 STA $D01A 6492 LDA #46 6493 STA $D016 6500 LDA Z0035 ;$00FD 6510 STA HSCROL ;$D404 6800 LDA # L0101 6830 STA VDSLST+1 ;$0201 6840 JMP L0050 ;$6D7B 7230 ;External reference equates 7240 L0002 = $E000 7250 L0003 = $3800 7260 L0004 = $E100 7270 L0005 = $3900 7280 L0006 = $E200 7290 L0007 = $3A00 7300 L0008 = $E300 7310 L0009 = $3B00 7320 L0011 = $D301 7330 L0013 = $C000 7340 L0014 = $C100 7350 L0015 = $C200 7360 L0016 = $C300 7370 L0017 = $C400 7380 L0018 = $3200 7390 L0019 = $3300 7410 L0022 = $E0C0 7420 L0023 = $3214 7430 L0024 = $E110 7440 L0025 = $3294 7450 L0026 = $E148 7460 L0027 = $3314 7470 L0028 = $E1A0 7480 L0029 = $3394 7490 L0031 = $D01B 7500 L0036 = $FFFA 7510 L0037 = $FFFB 7520 L0043 = $D01F 7540 L0057 = $728F 7550 L0059 = $73E5 7630 L0077 = $D01A 7640 ;End of external references 7650 .INCLUDE #D:JUMPDLST.ASM 010530 TEXT .SBYTE " ALMOST SINUS SCROLLER RIPPED FROM PAGE 6 INTRO BY THE ISRAEL ATARI " 010535 .SBYTE " CRAZY TEAM " 010536 ENDTEXT 010540 .INCLUDE #D:JUMPSCRN.ASM 011000 *= $02E0 011010 .WORD $6C00 011020 .END