10 ;System equates used 30 VDSLST = $0200 40 CDTMV5 = $0220 80 SDLSTL = $0230 90 SDLSTH = $0231 0110 COLOR1 = $02C5 0130 IRQEN = $D20E 0140 DMACTL = $D400 0160 CHBASE = $D409 0170 WSYNC = $D40A 0180 NMIEN = $D40E 0200 ;End of system equates 0210 ;Zero-page equates 0220 Z0045 = $CB 0230 Z0066 = $CC 0240 ;End of zero-page equates 0249 ;-------------------------- 0250 *= $A800 0340 LDA # DLIST 0370 STA SDLSTH ;$0231 0380 LDA # DLI 0410 STA VDSLST+1 ;$0201 0420 LDA #$C0 0430 STA NMIEN ;$D40E 0590 JMP L0008 ;$AA7B 2089 ;-------------------------- 2100 L0008 LDA #$0E 2110 STA COLOR1 ;$02C5 2120 L0050 JSR L0038 ;$AB6F 2130 LDA L0039 ;$A874 2140 STA L0040 ;$AAA5 2150 LDA L0041 ;$A875 2160 STA L0042 ;$AAA6 2170 LDY #$00 2180 .BYTE 162 ;LDX #00 2181 L0048 .BYTE 0 2190 LDA L0040 ;$AAA5 2200 CLC 2210 .BYTE 125 ;ADC ABS.,X 2211 L0051 .BYTE $8B 2212 L0053 .BYTE $AB 2220 STA L0040 ;$AAA5 2230 BCC L0044 ;$AAA2 2240 INC L0042 ;$AAA6 2250 L0044 LDA (Z0045),Y ;$00CB 2260 .BYTE 157 ;STA ACUM.,X 2261 L0040 .BYTE $00 2262 L0042 .BYTE $B0 2270 LDA L0040 ;$AAA5 2280 CLC 2290 ADC #$28 2300 STA L0040 ;$AAA5 2310 BCC L0047 ;$AAB5 2320 INC L0042 ;$AAA6 2330 L0047 INY 2340 CPY #$08 2350 BNE L0044 ;$AAA2 2360 INC L0048 ;$AA92 2370 INC L0049 ;$AB79 2380 LDA L0049 ;$AB79 2390 CMP #$28 2400 BNE L0050 ;$AA80 2410 LDA L0051 ;$AA98 2420 CLC 2430 ADC #$28 2440 STA L0051 ;$AA98 2450 BCC L0052 ;$AAD5 2460 INC L0053 ;$AA99 2470 L0052 LDA #$00 2480 STA L0048 ;$AA92 2490 STA L0049 ;$AB79 2500 INC L0054 ;$AB6E 2510 JSR L0055 ;$AD67 2520 LDA L0054 ;$AB6E 2530 CMP #$0A 2540 BNE L0050 ;$AA80 2550 L0062 JSR L0038 ;$AB6F 2560 LDA L0039 ;$A874 2570 STA L0056 ;$AB0F 2580 LDA L0041 ;$A875 2590 STA L0057 ;$AB10 2600 LDY #$00 2610 .BYTE 162 ;LDX 2611 L0061 .BYTE 0 2620 LDA L0056 ;$AB0F 2630 CLC 2640 .BYTE 125 ;ADC ABS.,X 2641 L0063 .BYTE $1B 2642 L0065 .BYTE $AD 2650 STA L0056 ;$AB0F 2660 BCC L0059 ;$AB0C 2670 INC L0057 ;$AB10 2680 L0059 LDA (Z0045),Y ;$00CB 2690 .BYTE 157 ;STA ACUM.,X 2691 L0056 .BYTE 0 2692 L0057 .BYTE $B0 2700 LDA L0056 ;$AB0F 2710 CLC 2720 ADC #$28 2730 STA L0056 ;$AB0F 2740 BCC L0060 ;$AB1F 2750 INC L0057 ;$AB10 2760 L0060 INY 2770 CPY #$08 2780 BNE L0059 ;$AB0C 2790 INC L0061 ;$AAFC 2800 INC L0049 ;$AB79 2810 LDA L0049 ;$AB79 2820 CMP #$28 2830 BNE L0062 ;$AAEA 2840 LDA L0063 ;$AB02 2850 SEC 2860 SBC #$28 2870 STA L0063 ;$AB02 2880 BCS L0064 ;$AB3F 2890 DEC L0065 ;$AB03 2900 L0064 LDA #$00 2910 STA L0061 ;$AAFC 2920 STA L0049 ;$AB79 2930 DEC L0054 ;$AB6E 2940 JSR L0055 ;$AD67 2950 LDA L0054 ;$AB6E 2960 BNE L0062 ;$AAEA 2970 LDA #$00 2980 STA L0049 ;$AB79 2990 LDA #$8B 3000 STA L0051 ;$AA98 3010 LDA #$AB 3020 STA L0053 ;$AA99 3030 LDA #$1B 3040 STA L0063 ;$AB02 3050 LDA #$AD 3060 STA L0065 ;$AB03 3070 JMP L0050 ;$AA80 3080 L0054 .BYTE 0 3090 L0038 LDA #$00 3100 STA Z0045 ;$00CB 3110 STA Z0066 ;$00CC 3120 LDX #$03 3130 CLC 3140 .BYTE 173 ; LDA ABS. 3141 L0049 .BYTE 0 3142 .BYTE 6 3150 L0068 ROL A 3160 ROL Z0066 ;$00CC 3170 DEX 3180 BNE L0068 ;$AB7B 3190 STA Z0045 ;$00CB 3200 LDA Z0066 ;$00CC 3210 CLC 3220 ADC #$E0 3230 STA Z0066 ;$00CC 3240 RTS 3241 ;-------------------------- 3242 .INCLUDE #D:SINUSDAT.ASM 3249 ;-------------------------- 3260 L0055 LDA #$04 3270 STA CDTMV5 ;$0220 3320 L0070 LDA CDTMV5 ;$0220 3330 BNE L0070 ;$AD6C 3340 RTS 3575 ;-------------------------- 3580 DLI PHA 3590 TXA 3600 PHA 3610 LDX #$00 3620 L0076 LDA L0075,X ;$AD43 3630 STA WSYNC ;$D40A 3640 STA L0014 ;$D018 3650 STA L0025 ;$D01A 3660 EOR #$0E 3670 STA L0012 ;$D017 3680 INX 3690 CPX #$12 3700 BNE L0076 ;$ADB6 3890 PLA 3900 TAX 3910 PLA 3920 RTI 3929 ;-------------------------- 3930 ;External reference equates 4040 L0012 = $D017 4060 L0014 = $D018 4120 L0025 = $D01A 4420 L0075 = $AD43 4460 ;End of external references 5250 DLIST .BYTE 128 5260 .BYTE 16 5270 .BYTE 79 5280 L0039 .BYTE 0 5290 L0041 .BYTE 176 5300 .BYTE 15 5310 .BYTE 15 5320 .BYTE 15 5330 .BYTE 15 5340 .BYTE 15 5350 .BYTE 15 5360 .BYTE 15 5370 .BYTE 15 5380 .BYTE 15 5390 .BYTE 15 5400 .BYTE 15 5410 .BYTE 15 5420 .BYTE 112 5430 .BYTE 112 5440 .BYTE 112 5480 .BYTE 65 5490 .WORD DLIST 5500 *= $0600 5510 TEXT .SBYTE " SINUS SCROLLER EXTRACTED FROM HTT DEMO " 5520 *= $02E0 5530 .WORD $A800