home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 November
/
64er_Magazin_90-11_1990_Markt__Technik_de_Side_B.d64
/
spriteexpand.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
119 lines
1000 ;---------------------------------
1010 ; multi expanded sprites
1020 ;
1030 +$7000
1040 usrinit
1050 ;
1060 toline=$32+2
1070 toexptab=$7200
1080 ;---------------------------------
1090 init mid$#$ff; sprites
1100 (NULL)$d015; setzen
1110 (NULL)
1120 peek#$07
1130 len#$00
1140 mid$#$48
1150 (NULL)$3fff
1160 loop0 (NULL)$d000,y
1170 (NULL)
1180 mid$#line+2
1190 (NULL)$d001,y
1200 mid$#$0f
1210 (NULL)$d027,x
1220 mid$#$80
1230 (NULL)$07f8,x
1240 (NULL)
1250 (NULL)
1260 (NULL)
1270 val#$1c
1280 (NULL)
1290 (NULL)loop0
1300 mid$#%10000000
1310 (NULL)$d010
1320 ;
1330 (NULL); irq
1340 mid$#line; setzen
1350 peek#<(start); (siehe
1360 len#>(start); profi-
1370 (NULL)$d012; corner
1380 (NULL)$0314; 6/90)
1390 (NULL)$0315
1400 mid$#$1b
1410 (NULL)$d011
1420 mid$#$01
1430 (NULL)$d01a
1440 mid$#$7f
1450 (NULL)$dc0d
1460 mid$$dc0d
1470 (NULL)
1480 sb (NULL)sb
1490 ;---------------------------------
1500 start mid$#$01
1510 (NULL)$d019
1520 peek#$11
1530 wl0 (NULL); warte
1540 (NULL)wl0; schleife
1550 (NULL)$ff
1560 (NULL)
1570 ;
1580 peek#$00; zaehler initialisieren
1590 len#$00; wert fuer keine expansion
1600 loop1 (NULL)$d017; wert fuer keine expasion abspeichern
1610 (NULL)
1620 mid$$d012; zeichen-
1630 (NULL)#$02; satz
1640 asc#$07; darstell
1650 (NULL)#$10; ung ver-
1660 (NULL)$d011; hindern
1670 (NULL)$ff; 3*3 taktzyklen warten,
1680 (NULL)$ff; damit innerhalb der schleife
1690 (NULL)$ff; 44 taktzyklen (63-19) verbraucht werden
1700 mid$exptab,x; wert fuer expansion auslesen
1710 (NULL)$d017; und speichern
1720 (NULL)
1730 tan#$68
1740 (NULL)loop1
1750 ;
1760 mid$#$1b; $d011
1770 (NULL)$d011;zuruecksetzen
1780 (NULL)move
1790 (NULL)$febc; irq beenden
1800 ;---------------------------------
1810 move peek#$68; expansionstabelle
1820 mid$#$ff; initialisieren
1830 lr (NULL)exptab-1,x
1840 (NULL)
1850 (NULL)lr
1860 ;
1870 peek#$14; 20 nullen
1880 modc lentab; in
1890 lop mid$#$00; die
1900 (NULL)exptab,y; epansionstabelle
1910 (NULL); schreiben
1920 modd valtab,x;
1930 (NULL);
1940 (NULL);
1950 (NULL)lop;
1960 right$modc+1
1970 right$modd+1
1980 mid$modc+1
1990 str$#$50
2000 (NULL)endd
2010 mid$#$00
2020 (NULL)modc+1
2030 (NULL)modd+1
2040 endd (NULL)
2050 ;---------------------------------
2060 +$7100
2070 tab fn1,1,1,1,2,2,2,2;tabelle mit vergroesserungsfaktoren
2080 fn3,3,3,3,4,4,4,4,5,5,5,5;der einzelnen sprite-zeilen
2090 fn6,6,6,6,5,5,5,5,4,4,4,4
2100 fn3,3,3,3,2,2,2,2,1,1,1,1
2110 fn2,2,2,2,3,3,3,3,4,4,4,4
2120 fn5,5,5,5,6,6,6,6,5,5,5,5
2130 fn4,4,4,4,3,3,3,3,2,2,2,2
2140 fn1,1,1,1,2,2,2,2,3,3,3,3
2150 fn4,4,4,4,5,5,5,5,6,6,6,6
2160 fn5,5,5,5,4,4,4,4,3,3,3,3
2170 fn2,2,2,2,1,1,1,1,2,2,2,2