1000 ;
1010 ; STI 4 SCA
1020 ;
1030 ;
1040 ORG 20000
1050 ;
1060 SID EQU 54272
1070 EFFECT EQU 53600
1080 GET EQU $FFE4
1090 SPEED2 EQU $DC05
1100 NORMAL EQU 75
1110 ;
1120 CNTR EQU 2024
1130 S EQU 252
1140 D EQU 254
1150 ;
1160 ;
1170 ANFANG LDA #199
1180 STA 56324
1190 LDA #0
1200 STA 53600
1210 STA 53601
1220 LDA #29
1230 STA 53272
1240 LDA #128
1250 STA 657
1260 ;
1270 LDX #$18
1280 LDY #$D8
1290 STX S+1
1300 STY D+1
1310 LDX #4
1320 JSR SCHIEB0
1330 ;
1340 LDX #39
1350 ANF1 LDA FARBDAT,X
1360 STA $D800,X
1370 DEX
1380 BPL ANF1
1390 ;
1400 LDA #87 ; STORM
1410 JMP P6
1420 ;
1430 INIT SEI
1440 LDA #200
1450 STA 650
1460 ;
1470 LDX #30
1480 LDA #0
1490 SIDRESET STA SID,X
1500 DEX
1510 BPL SIDRESET
1520 ;
1530 LDA #$35
1540 STA 1
1550 LDA #<ISR
1560 STA 788
1570 LDA #>ISR
1580 STA 789
1590 LDA #NORMAL
1600 STA SPEED
1610 STA SPEED2
1620 LDA #$37
1630 STA 1
1640 CLI
1650 ;
1660 LOOP CLI
1670 LDA 53265
1680 BMI LOOP
1690 DEC EFFECT
1700 LOOP1 LDA 53265
1710 BPL LOOP1
1720 ;
1730 JSR GET
1740 SEI
1750 CMP #43 ; '+'
1760 BNE P1
1770 LDX SPEED
1780 BEQ LOOP
1790 DEX
1800 STX SPEED
1810 STX SPEED2
1820 JMP LOOP
1830 ;
1840 P1 CMP #45 ; '-'
1850 BNE P2
1860 LDX SPEED
1870 CPX #255
1880 BEQ LOOP
1890 INX
1900 STX SPEED
1910 STX SPEED2
1920 JMP LOOP
1930 ;
1940 P2 CMP #48 ; '0'
1950 BCC LOOP
1960 CMP #58 ; '9'+1
1970 BCS P3
1980 ;
1990 ; *** FLASH ***
2000 ;
2010 SEC
2020 SBC #48 ; '0'
2030 PHA
2040 LDX #$20
2050 LDY #$10
2060 JSR SCHIEB
2070 PLA
2080 JSR $100D
2090 LDA #$13
2100 STA SI+1
2110 LDA #$10
2120 STA SI+2
2130 JMP INIT
2140 ;
2150 P3 CMP #65 ; 'A'
2160 BCC LOOP
2170 CMP #76; 'K'+1
2180 BCS P4
2190 ;
2200 ; *** TARZAN ***
2210 ;
2220 SEC
2230 SBC #65 ; 'A'
2240 LDX #53
2250 STX 1
2260 JSR $E003
2270 LDX #55
2280 STX 1
2290 LDA #$0C
2300 STA SI+1
2310 LDA #$E0
2320 STA SI+2
2330 JMP INIT
2340 ;
2350 P4 CMP #84; 'S'+1
2360 BCS P5
2370 ;
2380 ; *** ZUB ***
2390 ;
2400 SEC
2410 SBC #76 ; 'L'
2420 JSR $6812
2430 LDA #$39
2440 STA SI+1
2450 LDA #$69
2460 STA SI+2
2470 JMP INIT
2480 ;
2490 P5 CMP #87; 'V'+1
2500 BCS P6
2510 ;
2520 ; *** TERRA C ***
2530 ;
2540 SEC
2550 SBC #84 ; 'T'
2560 PHA
2570 LDX #$C0
2580 LDY #$10
2590 JSR SCHIEB
2600 LDX #$50
2610 LDY #$90
2620 JSR SCHIEB
2630 PLA
2640 JSR $1000
2650 LDA #$E7
2660 STA SI+1
2670 LDA #$92
2680 STA SI+2
2690 JMP INIT
2700 ;
2710 P6 CMP #88; 'W'+1
2720 BCC STORM
2730 JMP LOOP
2740 ;
2750 ; *** STORM ***
2760 ;
2770 STORM LDX #$80
2780 LDY #$90
2790 JSR SCHIEB
2800 JSR $9000
2810 LDA #$1B
2820 STA SI+1
2830 LDA #$91
2840 STA SI+2
2850 JMP INIT
2860 ;
2870 ;
2880 DFB ""
2890 ;
2900 ISR LDA #$35
2910 STA 1
2920 INC EFFECT
2930 SI JSR 64738
2940 LDA #$37
2950 STA 1
2960 JSR CYCLE
2970 JMP $EA31
2980 ;
2990 SPEED DFB 0
3000 ;
3010 SCHIEB STX S+1
3020 STY D+1
3030 LDX #16
3040 SCHIEB0 LDY #0
3050 STY S
3060 STY D
3070 SCHIEB1 LDA (S),Y
3080 STA (D),Y
3090 INY
3100 BNE SCHIEB1
3110 INC S+1
3120 INC D+1
3130 DEX
3140 BNE SCHIEB1
3150 RTS
3160 ;
3170 CYCLE INC CNTR
3180 LDA CNTR
3190 AND #1
3200 BEQ NIXWOAS
3210 LDA $D800+39
3220 PHA
3230 LDX #39
3240 CYC1 LDA $D800,X
3250 STA $D801,X
3260 STA $D801+40,X
3270 DEX
3280 BPL CYC1
3290 PLA
3300 STA $D800
3310 STA $D800+40
3320 NIXWOAS RTS
3330 ;
3340 ;
3350 FARBDAT DFB 11,12,15,1,15,12,11,0
3360 DFB 6,14,3,1,3,14,6,0
3370 DFB 2,4,10,1,10,4,2,0
3380 DFB 5,3,13,1,13,3,5,0
3390 DFB 9,8,7,1,7,8,9,0
READY.
