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 #136
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 LDA #20
2200 JSR DELAYLANG
2210 LDX #25
2220 LOOP6 LDA TEXT,X
2230 AND #63
2240 STA B+567,X
2250 DEX
2260 BPL LOOP6
2270 LDA #50
2280 JSR DELAYLANG
2290 RTS
2300 NOP
2310 NOP
2320 ;
2330 ;
2340 CORD STA V
2350 STA V+4
2360 CLC
2370 ADC #24
2380 STA V+2
2390 STA V+6
2400 BCC CORD1
2410 LDA V+16
2420 ORA #10
2430 STA V+16
2440 CORD1 RTS
2450 ;
2460 ;
2470 MOVE LDA #9
2480 STA PTR0
2490 MOVE1 LDX #3
2500 MOVE2 LDA SPRITEPOINTER,X
2510 CLC
2520 ADC #4
2530 STA SPRITEPOINTER,X
2540 DEX
2550 BPL MOVE2
2560 JSR DELAYKURZ
2570 DEC PTR0
2580 BNE MOVE1
2590 RTS
2600 ;
2610 ;
2620 DELAYKURZ LDY #25
2630 LDX #0
2640 DELAYK1 NOP
2650 NOP
2660 DEX
2670 BNE DELAYK1
2680 DEY
2690 BNE DELAYK1
2700 RTS
2710 ;
2720 ;
2730 DELAYLANG STA PTR0
2740 DELAYL1 JSR DELAYKURZ
2750 DEC PTR0
2760 BNE DELAYL1
2770 RTS
2780 ;
2790 ;
2800 TEXT DFB "",0
2810 ;
2820 VICTAB DFB 0,110,0,110,0,131,0,131 ; KOORDINATEN 0-3
2830 DFB 80,110,160,110,240,110,0,0 ; KOORDINATEN 4-7
2840 DFB 0 ; MSB KOORD.
2850 DFB 139,55,0,0,15,8,112,18,15,0,0,0,112,0,0
2860 DFB 0,2,1,2,3,0,0 ; AB V+32
2870 DFB 1,1,1,1,1,1,1 ; FARBEN
2880 ;
2890 ZERSTTAB DFB 9,128,9,128,"",34
2900 SIDTAB DFB 0,2,0,0,0,255,255
2910 DFB 1,3,0,0,0,255,255
2920 DFB 0,4,0,0,0,255,255
2930 DFB 0,0,199,31
READY.
