1000 ;
1010 ; WAPPEN-ANZEIGER
1020 ; 28-DEC-1987 CHW
1030 ; VERSION 1.0
1040 ; 01-JAN-1988 CHW
1050 ;
1060 ;
1070 ORG 20000
1080 ;
1090 V EQU 53248
1100 SPDATA EQU 20480
1110 SPBUF EQU 15872
1120 SPPTR EQU 2040
1130 SPNUM EQU 248
1140 ;
1150 TMP1 EQU 250
1160 ;
1170 ;
1180 INIT CMP #0
1190 BEQ SPRITEOFF
1200 ;
1210 TAX
1220 DEX
1230 LDY #0
1240 STY TMP1
1250 ASL ; 512ER BLOCKS
1260 CLC
1270 ADC #>SPDATA-2
1280 STA TMP1+1
1290 ;
1300 LDY #0
1310 MOV LDA (TMP1),Y
1320 STA SPBUF,Y
1330 INC TMP1+1
1340 LDA (TMP1),Y
1350 STA SPBUF+256,Y
1360 DEC TMP1+1
1370 DEY
1380 BNE MOV
1390 ;
1400 LDA #0
1410 STA V+39 ; FARBE SPR0
1420 STA V+40 ; FARBE SPR1
1430 STA V+41 ; FARBE SPR2
1440 STA V+42 ; FARBE SPR3
1450 STA V+43 ; FARBE SPR4
1460 STA V+44 ; FARBE SPR5
1470 LDA COL6,X
1480 STA V+45 ; SPR6
1490 LDA COL7,X
1500 STA V+46 ; SPR7
1510 LDA MCOL1,X
1520 STA V+37 ; FARBE 1
1530 LDA MCOL2,X
1540 STA V+38 ; FARBE 2
1550 LDX #15
1560 COLLOOP LDA COORDS,X
1570 STA V,X
1580 DEX
1590 BPL COLLOOP
1600 ;
1610 LDX #0
1620 LDA #SPNUM
1630 PTLOOP STA SPPTR,X
1640 CLC
1650 ADC #1
1660 INX
1670 CPX #8
1680 BNE PTLOOP
1690 ;
1700 LDA #%11000000
1710 STA V+29 ; EXPAND X
1720 STA V+28 ; MULTICOL
1730 LDA #%01000000
1740 STA V+23 ; EXPAND Y
1750 LDA #255
1760 STA V+21 ; ENABLE
1770 RTS
1780 ;
1790 ;
1800 SPRITEOFF LDA #0
1810 STA V+21
1820 RTS
1830 ;
1840 DFB ""
1850 ;
1860 ;
1870 COORDS DFB 100,130,124,130,100,151,124,151
1880 DFB 100,172,124,172,100,130,100,172
1890 ;
1900 COL6 DFB 7,7,1,5,1,1,7,7,5,5,1,1,5,1,1,1,1,1,2,7,7,5,1
1910 COL7 DFB 7,7,2,5,1,1,5,7,5,5,1,1,5,1,1,1,1,1,2,7,5,5,1
1920 MCOL1 DFB 2,6,7,1,2,1,7,6,2,2,1,2,2,2,2,2,2,7,7,2,7,2,7
1930 MCOL2 DFB 5,5,7,1,0,7,1,1,1,1,7,7,1,7,7,5,7,7,7,1,1,1,2
READY.
