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›0350     STA SDLSTL  ;$0230›0360     LDA # >DLIST›0370     STA SDLSTH  ;$0231›0380     LDA # <DLI›0390     STA VDSLST  ;$0200›0400     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›