64'er Special 30

home *** CD-ROM | disk | FTP | other *** search

/ 64'er Special 30 / 64er_Magazin_Sonderheft_30_19xx_Markt__Technik_de_Side_B.d64 / src.enemies (.txt) < prev next >

Wrap

Commodore BASIC | 2022-10-26 | 6KB | 429 lines

2606 jsreneani 2930 sprite sec 2940 ldaposenelo 2950 sbcposscrlo 2960 tay 2970 ldaposenehi 2980 sbcposscrhi 2990 tax 3000 beqspriteon 3010 cmp#1 3020 bnespriteoff 3030 tya 3040 cmp#89 3050 bcsspriteoff 3060 ldav+16 3070 ora820 3080 stav+16 3090 jsrnummer 3100 ldav+21 3110 ora820 3120 stav+21 3130 lda#1 3140 sta821 3150 rts 3160 spriteoff ldx820 3170 txa 3180 eor#-1 3190 sta820 3200 ldav+16 3210 and820 3220 stx820 3230 stav+16 3240 ldx820 3250 txa 3260 eor#-1 3270 sta820 3280 ldav+21 3290 and820 3300 stx820 3310 stav+21 3320 lda#0 3330 sta821 3340 rts 3350 spriteon ldx820 3360 txa 3370 eor#-1 3380 sta820 3390 ldav+16 3400 and820 3410 stx820 3420 stav+16 3430 jsrnummer 3440 ldav+21 3450 ora820 3460 stav+21 3470 lda#1 3480 sta821 3490 rts 3500 nummer lda820 3510 cmp#2 3520 bnenummer0 3530 styv+2 3540 nummer0 cmp#4 3550 bnenummer1 3560 styv+4 3570 nummer1 cmp#8 3580 bnenummer2 3590 styv+6 3600 nummer2 cmp#16 3610 bnenummer3 3620 styv+8 3630 nummer3 cmp#32 3640 bnenummer4 3650 styv+10 3660 nummer4 cmp#64 3670 bnenummer5 3680 styv+12 3690 nummer5 cmp#128 3700 bnenummer6 3710 styv+14 3720 nummer6 rts 3730 enemy1xlo brk 3740 enemy1xhi brk 3750 enemy1y brk 3760 enemy1dir brk 3770 enemy2xlo brk 3780 enemy2xhi brk 3790 enemy2y brk 3800 enemy2dir brk 3810 enemy3xlo brk 3820 enemy3xhi brk 3830 enemy3y brk 3840 enemy3dir brk 3850 enemy4xlo brk 3860 enemy4xhi brk 3870 enemy4y brk 3880 enemy4dir brk 3890 enemy5xlo brk 3900 enemy5xhi brk 3910 enemy5y brk 3920 enemy5dir brk 3930 enemy6xlo brk 3940 enemy6xhi brk 3950 enemy6y brk 3960 enemy6dir brk 3970 enemy7xlo brk 3980 enemy7xhi brk 3990 enemy7y brk 4000 enemy7dir brk 4010 posscrlo brk 4020 posscrhi brk 4030 posenelo brk 4040 posenehi brk 4050 zaehlen ldaposscrlo 4060 clc 4070 adc#1 4080 staposscrlo 4090 ldaposscrhi 4100 adc#0 4110 staposscrhi 4120 rts 4130 enemies lda#0 4140 sta821 4150 ldaenemy1dir 4160 beqlinks1 4170 ldaenemy1xlo 4180 clc 4190 adc#1 4200 staenemy1xlo 4210 ldaenemy1xhi 4220 adc#0 4230 staenemy1xhi 4240 ldaenemy1xlo 4250 cmp#70 4260 bneview1 4270 ldaenemy1xhi 4280 cmp#1 4290 bneview1 4300 decenemy1dir 4310 jmpview1 4320 links1 ldaenemy1xlo 4330 sec 4340 sbc#1 4350 staenemy1xlo 4360 ldaenemy1xhi 4370 sbc#0 4380 staenemy1xhi 4390 ldaenemy1xlo 4400 cmp#160 4410 bneview1 4420 ldaenemy1xhi 4430 cmp#0 ; ueberfluessig ! 4440 bneview1 4450 incenemy1dir 4460 view1 ldaenemy1xlo 4470 staposenelo 4480 ldaenemy1xhi 4490 staposenehi 4500 lda#2 4510 sta820 4520 jsrsprite 4530 lda821 4540 beqenemies2 4550 ldaenemy1y 4560 stav+3 4570 lda#1 4580 stav+40 4590 enemies2 lda#0 4600 sta821 4610 ldaenemy2dir 4620 beqoben1 4630 incenemy2y 4640 ldaenemy2y 4650 cmp#152 4660 bneview2 4670 decenemy2dir 4680 jmpview2 4690 oben1 decenemy2y 4700 ldaenemy2y 4710 cmp#96 4720 bneview2 4730 incenemy2dir 4740 view2 ldaenemy2xlo 4750 staposenelo 4760 ldaenemy2xhi 4770 staposenehi 4780 lda#4 4790 sta820 4800 jsrsprite 4810 lda821 4820 beqenemies3 4830 ldaenemy2y 4840 stav+5 4850 lda#1 4860 stav+41 4870 enemies3 lda#0 4880 sta821 4890 ldaenemy3dir 4900 beqoben2 4910 incenemy3y 4920 ldaenemy3y 4930 cmp#152 4940 bneview3 4950 decenemy3dir 4960 jmpview3 4970 oben2 decenemy3y 4980 ldaenemy3y 4990 cmp#96 5000 bneview3 5010 incenemy3dir 5020 view3 ldaenemy3xlo 5030 staposenelo 5040 ldaenemy3xhi 5050 staposenehi 5060 lda#8 5070 sta820 5080 jsrsprite 5090 lda821 5100 beqenemies4 5110 ldaenemy3y 5120 stav+7 5130 lda#1 5140 stav+42 5150 enemies4 lda#0 5160 sta821 5170 ldaenemy4dir 5180 beqoben3 5190 incenemy4y 5200 ldaenemy4y 5210 cmp#152 5220 bneview4 5230 decenemy4dir 5240 jmpview4 5250 oben3 decenemy4y 5260 ldaenemy4y 5270 cmp#96 5280 bneview4 5290 incenemy4dir 5300 view4 ldaenemy4xlo 5310 staposenelo 5320 ldaenemy4xhi 5330 staposenehi 5340 lda#16 5350 sta820 5360 jsrsprite 5370 lda821 5380 beqenemies5 5390 ldaenemy4y 5400 stav+9 5410 lda#1 5420 stav+43 5430 enemies5 lda#0 5440 sta821 5450 ldaenemy5dir 5460 beqoben4 5470 incenemy5y 5480 ldaenemy5y 5490 cmp#152 5500 bneview5 5510 decenemy5dir 5520 jmpview5 5530 oben4 decenemy5y 5540 ldaenemy5y 5550 cmp#96 5560 bneview5 5570 incenemy5dir 5580 view5 ldaenemy5xlo 5590 staposenelo 5600 ldaenemy5xhi 5610 staposenehi 5620 lda#32 5630 sta820 5640 jsrsprite 5650 lda821 5660 beqenemies6 5670 ldaenemy5y 5680 stav+11 5690 lda#1 5700 stav+44 5710 enemies6 lda#0 5720 sta821 5730 ldaenemy6dir 5740 beqoben5 5750 incenemy6y 5760 ldaenemy6y 5770 cmp#152 5780 bneview6 5790 decenemy6dir 5800 jmpview6 5810 oben5 decenemy6y 5820 ldaenemy6y 5830 cmp#96 5840 bneview6 5850 incenemy6dir 5860 view6 ldaenemy6xlo 5870 staposenelo 5880 ldaenemy6xhi 5890 staposenehi 5900 lda#64 5910 sta820 5920 jsrsprite 5930 lda821 5940 beqenemies7 5950 ldaenemy6y 5960 stav+13 5970 lda#1 5980 stav+45 5990 enemies7 lda#0 6000 sta821 6010 ldaenemy7dir 6020 beqoben6 6030 incenemy7y 6040 ldaenemy7y 6050 cmp#152 6060 bneview7 6070 decenemy7dir 6080 jmpview7 6090 oben6 decenemy7y 6100 ldaenemy7y 6110 cmp#96 6120 bneview7 6130 incenemy7dir 6140 view7 ldaenemy7xlo 6150 staposenelo 6160 ldaenemy7xhi 6170 staposenehi 6180 lda#128 6190 sta820 6200 jsrsprite 6210 lda821 6220 beqenemies8 6230 ldaenemy7y 6240 stav+15 6250 lda#1 6260 stav+46 6270 enemies8 rts 6280 eneani ldazeit2 6290 cmp#2 6300 beqdoanima2 6310 inczeit2 6320 rts 6330 doanima2 lda#0 6340 stazeit2 6350 ldadrehen2 6360 bnezu3 6370 auf3 lda2041 6380 cmp#40 6390 bneauf4 6400 incdrehen2 6410 jmpzu4 6420 auf4 dec2041 6430 dec2042 6440 dec2043 6450 dec2044 6460 dec2045 6470 dec2046 6480 dec2047 6490 rts 6500 zu3 lda2041 6510 cmp#47 6520 bnezu4 6530 decdrehen2 6540 jmpauf4 6550 zu4 inc2041 6560 inc2042 6570 inc2043 6580 inc2044 6590 inc2045 6600 inc2046 6610 inc2047 6620 rts 6630 drehen2 brk 6640 zeit2 brk 6650 initspr lda#0 6660 staposscrlo 6670 staposscrhi 6680 lda#43 6690 sta2041 6700 sta2042 6710 sta2043 6720 sta2044 6730 sta2045 6740 sta2046 6750 sta2047 6760 lda#16 6770 staenemy1xlo 6780 lda#1 6790 staenemy1xhi 6800 lda#126 6810 staenemy1y 6820 lda#12 6830 staenemy2xlo 6840 lda#3 6850 staenemy2xhi 6860 lda#100 6870 staenemy2y 6880 lda#52 6890 staenemy3xlo 6900 lda#3 6910 staenemy3xhi 6920 lda#121 6930 staenemy3y 6940 lda#92 6950 staenemy4xlo 6960 lda#3 6970 staenemy4xhi 6980 lda#142 6990 staenemy4y 7000 lda#132 7010 staenemy5xlo 7020 lda#3 7030 staenemy5xhi 7040 lda#100 7050 staenemy5y 7060 lda#172 7070 staenemy6xlo 7080 lda#3 7090 staenemy6xhi 7100 lda#121 7110 staenemy6y 7120 lda#212 7130 staenemy7xlo 7140 lda#3 7150 staenemy7xhi 7160 lda#142 7170 staenemy7y 7180 rts 8000 ; ...und das war's dann schon !!