1000 ORG 49152
1010 ;
1020 PTR0 EQU 255
1030 SID EQU 54272
1040 V EQU 53248
1050 PIC EQU *
1060 CBASE EQU PIC+2048
1070 B EQU PIC+1024
1080 SPRITEPOINTEREQU PIC+2040
1090 ;
1100 ;
1110 SEI
1120 LDA #53
1130 STA 1
1140 LDA #139
1150 STA V+17 ; AUS
1160 LDA #128
1170 STA 657
1180 LDA #148
1190 STA 56576
1200 LDX #0
1210 LOOP1 LDA #32
1220 STA B+$000,X
1230 STA B+$100,X
1240 STA B+$200,X
1250 STA B+$300,X
1260 LDA #1
1270 STA $D800,X
1280 STA $D900,X
1290 STA $DA00,X
1300 STA $DB00,X
1310 DEX
1320 BNE LOOP1
1330 LDA #51
1340 STA 1
1350 LOOP2 LDA $D000,X
1360 STA CBASE,X
1370 LDA $D100,X
1380 STA CBASE+$100,X
1390 DEX
1400 BNE LOOP2
1410 ;
1420 LDA #55
1430 STA 1
1440 LDX #46
1450 LOOP3 LDA VICTAB,X
1460 STA V,X
1470 LDA #0
1480 STA SID,X
1490 DEX
1500 BPL LOOP3
1510 ;
1520 LDX #24
1530 LOOP4 LDA SIDTAB,X
1540 STA SID,X
1550 DEX
1560 BPL LOOP4
1570 ;
1580 NOP
1590 ;
1600 ;
1610 LDX #124
1620 STX SPRITEPOINTER
1630 INX
1640 STX SPRITEPOINTER+1
1650 INX
1660 STX SPRITEPOINTER+2
1670 INX
1680 STX SPRITEPOINTER+3
1690 LDX #13
1700 STA SPRITEPOINTER+4
1710 INX
1720 STA SPRITEPOINTER+5
1730 INX
1740 STA SPRITEPOINTER+6
1750 ;
1760 LDX #10
1770 LOOP5 LDA ZERSTTAB,X
1780 CMP 32768,X
1790 DEX
1800 BPL LOOP5
1810 ;
1820 LDA #64
1830 JSR DELAYLANG
1840 LDA #33
1850 STA SID+4
1860 STA SID+11
1870 STA SID+18
1880 LDA #64
1890 JSR DELAYLANG
1900 LDA #155
1910 STA V+17 ; AN
1920 LDA #32
1930 JSR DELAYLANG
1940 ;
1950 LDA #80
1960 JSR CORD
1970 JSR MOVE
1980 LDA V+21
1990 ORA #16
2000 STA V+21
2010 ;
2020 LDA #20
2030 JSR DELAYLANG
2040 LDA #160
2050 JSR CORD
2060 JSR MOVE
2070 LDA V+21
2080 ORA #32
2090 STA V+21
2100 ;
2110 LDA #20
2120 JSR DELAYLANG
2130 LDA #240
2140 JSR CORD
2150 JSR MOVE
2160 LDA V+21
2170 ORA #64
2180 STA V+21
2190 AND #255-15
2200 STA V+21
2210 LDA #20
2220 JSR DELAYLANG
2230 LDX #25
2240 LOOP6 LDA TEXT1,X
2250 AND #63
2260 STA B+527,X
2270 DEX
2280 BPL LOOP6
2290 LDA #32
2300 JSR DELAYLANG
2310 ;
2320 LDX #8
2330 LOOP7 LDA TEXT2,X
2340 AND #63
2350 STA B+691,X
2360 LDA ZAGACORD,X
2370 STA V,X
2380 DEX
2390 BPL LOOP7
2400 STX V+16
2410 LDA #3
2420 STA V+39
2430 STA V+40
2440 STA V+41
2450 LDX #10
2460 STX SPRITEPOINTER
2470 INX
2480 STX SPRITEPOINTER+1
2490 INX
2500 STX SPRITEPOINTER+2
2510 LDA #20
2520 JSR DELAYLANG
2530 LDA V+21
2540 ORA #7
2550 STA V+21
2560 LDA #72
2570 JMP DELAYLANG
2580 NOP
2590 NOP
2600 ;
2610 ;
2620 CORD STA V
2630 STA V+4
2640 CLC
2650 ADC #24
2660 STA V+2
2670 STA V+6
2680 BCC CORD1
2690 LDA V+16
2700 ORA #10
2710 STA V+16
2720 CORD1 RTS
2730 ;
2740 ;
2750 MOVE LDA #9
2760 STA PTR0
2770 MOVE1 LDX #3
2780 MOVE2 LDA SPRITEPOINTER,X
2790 CLC
2800 ADC #4
2810 STA SPRITEPOINTER,X
2820 DEX
2830 BPL MOVE2
2840 JSR DELAYKURZ
2850 DEC PTR0
2860 BNE MOVE1
2870 RTS
2880 ;
2890 ;
2900 DELAYKURZ LDY #25
2910 LDX #0
2920 DELAYK1 NOP
2930 NOP
2940 DEX
2950 BNE DELAYK1
2960 DEY
2970 BNE DELAYK1
2980 RTS
2990 ;
3000 ;
3010 DELAYLANG STA PTR0
3020 DELAYL1 JSR DELAYKURZ
3030 DEC PTR0
3040 BNE DELAYL1
3050 RTS
3060 ;
3070 ;
3080 TEXT1 DFB "",0
3090 TEXT2 DFB "",9
3100 ;
3110 VICTAB DFB 0,102,0,102,0,123,0,123 ; KOORDINATEN 0-3
3120 DFB 80,102,160,102,240,102,0,0 ; KOORDINATEN 4-7
3130 DFB 0 ; MSB KOORD.
3140 DFB 139,55,0,0,15,8,112,18,15,0,0,0,112,0,0
3150 DFB 0,2,1,2,3,0,0 ; AB V+32
3160 DFB 1,1,1,1,1,1,1 ; FARBEN
3170 ;
3180 ZAGACORD DFB203,180,227,180,251,180,0,0,80
3190 ZERSTTAB DFB 9,128,9,128,"",34
3200 SIDTAB DFB 0,2,0,0,0,250,255
3210 DFB 1,3,0,0,0,250,255
3220 DFB 0,4,0,0,0,250,255
3230 DFB 0,0,199,31
READY.
