0005 .LI OFF 0010 POINTER1 .EQ $F9 0015 POINTER2 .EQ $FB 0020 POINTER3 .EQ $FD 0025 POINTER4 .EQ $EE 0030 SCRPNT1 .EQ $F5 0035 SCRPNT2 .EQ $F7 0040 RNDBYTE1 .EQ $F3 0045 RNDBYTE2 .EQ $F4 0050 TEMP1 .EQ $F0 0055 TEMP2 .EQ $F1 0060 TEMP3 .EQ $F2 0065 TEMP5 .EQ $94 0070 NO.OF.PLAYERS .EQ $8F 0075 PLAYERNUM .EQ $B3 0080 SECONDS .EQ $8D 0085 MINUTES .EQ $8E 0090 ALL.FOOD.OFF .EQ $87 0095 ROUND .EQ $B4 0100 THE.END.Z .EQ $A48 0105 WIDTH .EQ $A9 0110 NO.OF.FOODS1 .EQ $8A 0115 NO.OF.FOODS2 .EQ $8C 0120 ANTNUM .EQ $D8 0125 ANTBYT1 .EQ $1000 0130 SWATLEGAL .EQ $C3 0135 WASPSTATE .EQ $B2 0140 WASP.CHANCE .EQ $97 0145 MANX .EQ $CB 0150 MANXOLD .EQ $BC 0155 MANXX .EQ $CA 0160 MANXXOLD .EQ $BB 0165 MANY .EQ $C9 0170 MANYOLD .EQ $BA 0175 MANSTATE .EQ $C7 0180 NEXTSTATE .EQ $C6 0185 MANDIR .EQ $C8 0190 PARALYZE .EQ $A2 0195 SWAT .EQ $C5 0200 GRAB.FOOD .EQ $B7 0205 BYFOOD .EQ $B6 0210 SET.CAN .EQ $B5 0215 FOODNUM .EQ $AD 0220 FOODX .EQ $AC 0225 FOODY .EQ $AB 0230 SPIDERBYT1 .EQ $4100 0235 WASP.SPLAT.COUNT .EQ $98 0240 FLAP .EQ $96 0245 K1 .EQ $D1 0250 INIT.K1 .EQ $D0 0255 K2 .EQ $CF 0260 INIT.K2 .EQ $CE 0265 K3 .EQ $B9 0270 INIT.K3 .EQ $B8 0275 K4 .EQ $9D 0280 INIT.K4 .EQ $9C 0285 K5 .EQ $9F 0290 INIT.K5 .EQ $9E 0295 K6 .EQ $A1 0300 INIT.K6 .EQ $A0 0305 K7 .EQ $89 0310 INIT.K7 .EQ $88 0315 K8 .EQ $AF 0320 INIT.K8 .EQ $AE 0325 SET.CAN2 .EQ $81 0330 CAN.KEY.PRESSED .EQ $80 0335 SET.CAN1 .EQ $7F 0340 HISCOREHI .EQ $7C 0345 HISCORELO .EQ $7B 0350 FOODBYT1 .EQ $65D0 0355 FOODBYT2 .EQ $65D8 0360 FOODBYT3 .EQ $65E0 0365 ANTPOSITIONS .EQ $65F0 0370 ANT.ORIENTATIONS .EQ $65F8 0375 HEIGHT .EQ $ED 0380 PATINDEX .EQ $EC 0385 RANDOM1 .EQ $1706 0390 DESTBYT1 .EQ $1080 0395 DESTBYT2 .EQ $10A0 0400 CREATE.ANT .EQ $171E 0405 MOVE.4.ANTS .EQ $1100 0410 MAN.MASTER .EQ $4600 0415 WASP.MASTER .EQ $5806 0420 SPIDER.MASTER .EQ $6003 0425 FOOD.MASTER .EQ $6953 0430 PLOT.FOOD2 .EQ $6962 0435 DELAY.Z .EQ $5800 0440 SCORE .EQ $4F09 0445 CAN.MASTER.Z .EQ $C00 0450 C4.Z .EQ $C03 0455 PLOT.NUM2.Z .EQ $4F15 0460 STING.MAN.Z .EQ $600F 0465 Z4.Z .EQ $8E6 0470 MUSIC.Z .EQ $8E9 0475 .OR $7900 0480 .TA $2900 0485 MASTER 0490 LDA #$01 0495 STA ROUND 0500 STA NO.OF.PLAYERS 0505 LDY #$00 0510 STY HISCOREHI 0515 STY HISCORELO 0520 JSR SETUP 0525 M1 JSR SELECT2 0530 JSR C4.Z 0535 LDA #$00 0540 STA $90 0545 STA $91 0550 STA $92 0555 STA $93 0560 STA PLAYERNUM 0565 STA SET.CAN1 0570 STA SET.CAN2 0575 LDY #$08 0580 STY NO.OF.FOODS1 0585 STY NO.OF.FOODS2 0590 LDY #$40 0595 STY TEMP1 0600 LDX #$A0 0605 LDY #$20 0610 JSR MOVE.MEMORY 0615 M2 LDA $C056 0620 .3 LDA $C010 0625 LDA #$20 0630 STA TEMP5 0635 .4 JSR PLOT.LORES.NUMS 0640 LDA $C000 0645 BPL .2 0650 SEC 0655 SBC #$B0 0660 BEQ .2 0665 CMP #$0A 0670 BCS .2 0675 STA ROUND 0680 JMP .3 0685 .2 LDA #$03 0690 JSR DAZZLE 0695 DEC TEMP5 0700 BNE .4 0705 JSR INITIALIZE.1 0710 JSR DRAW.SCREEN 0715 JSR PLOT.HISCORE 0720 LDA $C057 0725 LDA $C054 0730 LDA #$40 0735 STA TEMP1 0740 LDA #$00 0745 STA CAN.KEY.PRESSED 0750 LDX #$80 0755 LDY #$20 0760 EXT2 0765 .25 JSR MOVE.MEMORY 0770 .12 LDX ROUND 0775 LDA TABLE412,X 0780 JSR DELAY.Z 0785 JSR MOVE.4.ANTS 0790 JSR MAN.MASTER 0795 JSR SPIDER.MASTER 0800 JSR WASP.MASTER 0805 JSR FOOD.MASTER 0810 LDA CAN.KEY.PRESSED 0815 BNE .21 0820 .22 LDX PLAYERNUM 0825 LDA $7D0 0830 BNE .25 0835 LDA NO.OF.FOODS1,X 0840 BEQ .14 0845 DEC K7 0850 BNE .12 0855 LDA INIT.K7 0860 STA K7 0865 SED 0870 LDA SECONDS 0875 SEC 0880 SBC #$01 0885 STA SECONDS 0890 CLD 0895 BPL .13 0900 LDA #$59 0905 STA SECONDS 0910 DEC MINUTES 0915 BMI .11 0920 .13 JSR PLOT.CLOCK 0925 JMP .12 0930 .11 JSR POINTS.FOR.FOOD 0935 LDA ALL.FOOD.OFF 0940 BEQ .14 0945 LDA NO.OF.PLAYERS 0950 CMP #$02 0955 BEQ .15 0960 .17 INC ROUND 0965 LDA ROUND 0970 CMP #$0A 0975 BCC .16 0980 DEC ROUND 0985 .16 LDA #$F0 0990 JSR DELAY.Z 0995 JMP M2 1000 .21 LDA #$00 1005 STA CAN.KEY.PRESSED 1010 LDX PLAYERNUM 1015 LDA SET.CAN1,X 1020 BEQ .22 1025 LDA #$00 1030 STA SET.CAN1,X 1035 LDA #$01 1040 JSR STING.MAN.Z 1045 JSR INITIALIZE.2 1050 JSR CAN.MASTER.Z 1055 JMP .22 1060 .15 LDA PLAYERNUM 1065 BEQ .18 1070 LDA NO.OF.FOODS1 1075 BEQ .17 1080 LDA #$00 1085 STA PLAYERNUM 1090 BEQ .17 1095 .18 LDA NO.OF.FOODS2 1100 BEQ .16 1105 LDA #$02 1110 STA PLAYERNUM 1115 BNE .16 1120 .14 LDX PLAYERNUM 1125 LDA #$00 1130 STA NO.OF.FOODS1,X 1135 LDA $91,X 1140 CMP HISCOREHI 1145 BCC .23 1150 BNE .24 1155 LDA $90,X 1160 CMP HISCORELO 1165 BCC .23 1170 .24 LDA $90,X 1175 STA HISCORELO 1180 LDA $91,X 1185 STA HISCOREHI 1190 JSR PLOT.HISCORE 1195 .23 JSR THE.END.Z 1200 LDA NO.OF.PLAYERS 1205 CMP #$02 1210 BNE .19 1215 TXA 1220 EOR #$02 1225 STA PLAYERNUM 1230 TAX 1235 LDA NO.OF.FOODS1,X 1240 BEQ .19 1245 TXA 1250 CMP #$01 1255 BEQ .17 1260 BNE .16 1265 .19 LDA $C010 1270 EXT1 1275 .20 LDA $C000 1280 BPL .20 1285 RESET 1290 LDA $C050 1295 LDA $C057 1300 LDA #$C0 1305 STA TEMP1 1310 LDA #$00 1315 LDY #$A0 1320 LDX #$20 1325 JSR MOVE.MEMORY 1330 LDA #$01 1335 STA ROUND 1340 JMP M1 1345 TABLE412 .HS 00090807060504030201 1350 INITIALIZE.1 1355 LDA #$1A 1360 STA L1+2 1365 STA L2+2 1370 LDA #$90 1375 STA L1+1 1380 STA L2+1 1385 L1 LDA $1A90 1390 AND #$40 1395 L2 STA $1A90 1400 INC L1+1 1405 INC L2+1 1410 BNE L1 1415 INC L1+2 1420 INC L2+2 1425 LDA L1+2 1430 CMP #$20 1435 BNE L1 1440 LDX ROUND 1445 LDA TABLE400,X 1450 STA K1 1455 STA INIT.K1 1460 LDA TABLE401,X 1465 STA K2 1470 STA INIT.K2 1475 LDA TABLE402,X 1480 STA K3 1485 STA INIT.K3 1490 LDA TABLE403,X 1495 STA K4 1500 STA INIT.K4 1505 LDA TABLE404,X 1510 STA WASP.CHANCE 1515 LDA TABLE405,X 1520 STA K5 1525 STA INIT.K5 1530 LDA TABLE406,X 1535 STA K6 1540 STA INIT.K6 1545 LDA TABLE408,X 1550 STA K8 1555 STA INIT.K8 1560 LDA TABLE407,X 1565 STA K7 1570 STA INIT.K7 1575 LDX #$07 1580 .3 LDA TABLE409,X 1585 STA FOODBYT1,X 1590 LDA TABLE410,X 1595 STA FOODBYT2,X 1600 LDA TABLE411,X 1605 STA ANTPOSITIONS,X 1610 LDA #$00 1615 STA ANT.ORIENTATIONS,X 1620 DEX 1625 BPL .3 1630 LDY #$BF 1635 BNE INITIALIZE.3 1640 INITIALIZE.2 1645 LDY #$7F 1650 INITIALIZE.3 1655 LDA #$20 1660 STA ANTNUM 1665 LDA #$00 1670 .1 STA ANTBYT1,Y 1675 DEY 1680 BNE .1 1685 STA ANTBYT1 1690 LDA #$80 1695 STA SWATLEGAL 1700 STA WASPSTATE 1705 LDA #$16 1710 STA MANX 1715 STA MANXOLD 1720 LDA #$02 1725 STA MANXX 1730 STA MANXXOLD 1735 LDA #$6C 1740 STA MANY 1745 STA MANYOLD 1750 LDA #$01 1755 STA MANSTATE 1760 STA NEXTSTATE 1765 LDA #$D0 1770 STA MANDIR 1775 LDA #$00 1780 STA PARALYZE 1785 STA SWAT 1790 STA GRAB.FOOD 1795 STA BYFOOD 1800 STA FOODNUM 1805 LDX #$1F 1810 .2 STA SPIDERBYT1,X 1815 DEX 1820 BPL .2 1825 LDA #$04 1830 STA WASP.SPLAT.COUNT 1835 RTS 1840 TABLE400 .HS 00010101010101010101 1845 TABLE401 .HS 00B0AAA49E98928C8680 1850 TABLE402 .HS 00030303030303030303 1855 TABLE403 .HS 00040404030303030303 1860 TABLE404 .HS 00010203040405050506 1865 TABLE405 .HS 002C2824201C1814100C 1870 TABLE406 .HS 00100F0E0D0C0B0A0908 1875 TABLE407 .HS 004F4C49484746454543 1880 TABLE408 .HS 00040403030302020202 1885 TABLE409 .HS 0C111B210C121B22 1890 TABLE410 .HS 0808080911131311 1895 TABLE411 .HS 0400000004000004 1900 DRAW.GREEN 1905 LDA #$1C 1910 STA TEMP1 1915 .2 LDY TEMP1 1920 LDA (SCRPNT1),Y 1925 STA POINTER2+1 1930 LDA (SCRPNT2),Y 1935 STA POINTER2 1940 LDY #$04 1945 .1 LDA #$2A 1950 STA (POINTER2),Y 1955 INY 1960 LDA #$55 1965 STA (POINTER2),Y 1970 INY 1975 CPY #$2C 1980 BCC .1 1985 INC TEMP1 1990 LDA TEMP1 1995 CMP #$CC 2000 BCC .2 2005 RTS 2010 DRAW.SCREEN 2015 JSR DRAW.GREEN 2020 LDY #$1C 2025 JSR D1 2030 LDY #$C8 2035 JSR D1 2040 LDY #$20 2045 JSR D2 2050 LDY #$80 2055 JSR D2 2060 LDA #$65 2065 STA POINTER2+1 2070 LDA #$70 2075 STA POINTER2 2080 LDX #$38 2085 JSR D3 2090 LDX #$80 2095 JSR D3 2100 LDA #$56 2105 STA POINTER2 2110 LDX #$3A 2115 JSR D3 2120 LDX #$82 2125 JSR D3 2130 JSR DRAW.LETTERS 2135 LDA PLAYERNUM 2140 PHA 2145 LDA #$00 2150 STA PLAYERNUM 2155 JSR SCORE 2160 LDA NO.OF.PLAYERS 2165 CMP #$01 2170 BEQ .8 2175 STA PLAYERNUM 2180 LDA #$00 2185 JSR SCORE 2190 .8 PLA 2195 STA PLAYERNUM 2200 LDA #$02 2205 STA MINUTES 2210 LDA #$00 2215 STA SECONDS 2220 JSR PLOT.CLOCK 2225 LDX PLAYERNUM 2230 LDY NO.OF.FOODS1,X 2235 LDA TABLE330,Y 2240 STA TEMP1 2245 JSR RANDOM1 2250 AND #$07 2255 TAY 2260 LDA TEMP1 2265 .4 LSR 2270 BCC .3 2275 ORA #$80 2280 .3 DEY 2285 BNE .4 2290 STA TEMP5 2295 LDX #$07 2300 .6 LSR TEMP5 2305 BCC .5 2310 LDA TABLE409,X 2315 STA FOODX 2320 LDA TABLE410,X 2325 STA FOODY 2330 JSR PLOT.FOOD2 2335 TXA 2340 ORA #$50 2345 STA TEMP1 2350 JSR SET.FOOD.STATUS 2355 JSR SET.DESTBYTS 2360 LDA #$81 2365 .7 STA FOODBYT3,X 2370 DEX 2375 BPL .6 2380 RTS 2385 .5 LDA #$00 2390 BEQ .7 2395 SET.DESTBYTS 2400 LDY TABLE351,X 2405 LDA TABLE352,X 2410 STA HEIGHT 2415 .1 LDA TABLE353,Y 2420 STA DESTBYT1,Y 2425 LDA TABLE354,Y 2430 STA DESTBYT2,Y 2435 INY 2440 DEC HEIGHT 2445 BNE .1 2450 RTS 2455 TABLE351 .HS 0004080B0E111418 2460 TABLE352 .HS 0404030303030404 2465 TABLE353 .HS 8E8E8E8E919293949B9C9DA0A0A08F8F8F9293949B9C9D9EA1A1A1A1 2470 TABLE354 .HS 444C545C505450545054504C545C88909894909490949094889098A0 2475 TABLE330 .HS 00048892AAABBBBFFF 2480 D3 JSR .3 2485 INX 2490 .3 STX TEMP2 2495 LDA #$0C 2500 STA HEIGHT 2505 .1 LDA #$00 2510 STA PATINDEX 2515 LDY TEMP2 2520 LDA (SCRPNT1),Y 2525 STA POINTER1+1 2530 LDA (SCRPNT2),Y 2535 STA POINTER1 2540 LDA #$0B 2545 STA TEMP1 2550 .2 LDY PATINDEX 2555 LDA (POINTER2),Y 2560 LDY TEMP1 2565 STA (POINTER1),Y 2570 INC PATINDEX 2575 INY 2580 STY TEMP1 2585 CPY #$25 2590 BCC .2 2595 LDA TEMP2 2600 CLC 2605 ADC #$04 2610 STA TEMP2 2615 DEC HEIGHT 2620 BNE .1 2625 RTS 2630 PLOT.CLOCK 2635 LDA #$65 2640 STA POINTER2+1 2645 LDX MINUTES 2650 LDA #$12 2655 LDY TABLE301A,X 2660 JSR .1 2665 LDA SECONDS 2670 AND #$0F 2675 TAX 2680 LDA #$15 2685 LDY TABLE301A,X 2690 JSR .1 2695 LDA SECONDS 2700 LSR 2705 LSR 2710 LSR 2715 LSR 2720 TAX 2725 LDA #$14 2730 LDY TABLE301A,X 2735 .1 STA TEMP1 2740 STY POINTER2 2745 LDA #$38 2750 STA POINTER1+1 2755 LDA #$98 2760 STA POINTER4+1 2765 LDA #$00 2770 STA POINTER1 2775 STA POINTER4 2780 LDA #$06 2785 STA HEIGHT 2790 .2 LDY HEIGHT 2795 LDA (POINTER2),Y 2800 LDY TEMP1 2805 STA (POINTER1),Y 2810 STA (POINTER4),Y 2815 LDA POINTER1+1 2820 SEC 2825 SBC #$04 2830 STA POINTER1+1 2835 CLC 2840 ADC #$60 2845 STA POINTER4+1 2850 DEC HEIGHT 2855 BPL .2 2860 RTS 2865 TABLE301A .HS C98A91989FA6ADB4BBC2 2870 PLOT.LORES.NUMS 2875 LDY #$00 2880 STY TEMP3 2885 LDA PLAYERNUM 2890 BNE .3 2895 LDX #$08 2900 BNE .4 2905 .3 LDX #$10 2910 .4 JSR .2 2915 LDY #$07 2920 STY TEMP3 2925 LDA ROUND 2930 ASL 2935 ASL 2940 ASL 2945 TAX 2950 .2 LDA #$07 2955 STA HEIGHT 2960 .1 LDY TEMP3 2965 LDA TABLE310,Y 2970 STA POINTER1+1 2975 LDA TABLE311,Y 2980 STA POINTER1 2985 LDY #$23 2990 LDA TABLE312,X 2995 STA TEMP2 3000 LDA #$00 3005 ASL TEMP2 3010 ROR 3015 STA (POINTER1),Y 3020 INY 3025 ASL TEMP2 3030 LDA #$00 3035 ROR 3040 STA (POINTER1),Y 3045 INY 3050 ASL TEMP2 3055 LDA #$00 3060 ROR 3065 STA (POINTER1),Y 3070 INY 3075 ASL TEMP2 3080 LDA #$00 3085 ROR 3090 STA (POINTER1),Y 3095 INC TEMP3 3100 INX 3105 DEC HEIGHT 3110 BNE .1 3115 RTS 3120 TABLE310 .HS 0606070704040507040405050606 3125 TABLE311 .HS 0080008028A828A850D050D050D0 3130 TABLE312 .HS 000000000000000060E060606060F00060F0103060C0F000F01010701010F00080809090F0101000F08080F01010F000F08080F09090F000F0103060C0808000F09090F09090F000F090F01010101000 3135 D1 3140 STY TEMP1 3145 LDA #$04 3150 STA HEIGHT 3155 .5 LDY TEMP1 3160 LDA (SCRPNT1),Y 3165 STA POINTER2+1 3170 LDA (SCRPNT2),Y 3175 STA POINTER2 3180 LDY #$04 3185 .3 LDA (POINTER2),Y 3190 ORA #$80 3195 STA (POINTER2),Y 3200 INY 3205 CPY #$16 3210 BCC .3 3215 LDY #$1A 3220 .4 LDA (POINTER2),Y 3225 ORA #$80 3230 STA (POINTER2),Y 3235 INY 3240 CPY #$2C 3245 BCC .4 3250 INC TEMP1 3255 DEC HEIGHT 3260 BNE .5 3265 RTS 3270 D2 3275 STY TEMP1 3280 LDA #$48 3285 STA HEIGHT 3290 .1 LDY TEMP1 3295 LDA (SCRPNT1),Y 3300 STA POINTER2+1 3305 LDA (SCRPNT2),Y 3310 STA POINTER2 3315 LDY #$04 3320 LDA (POINTER2),Y 3325 ORA #$80 3330 STA (POINTER2),Y 3335 LDY #$2B 3340 LDA (POINTER2),Y 3345 ORA #$80 3350 STA (POINTER2),Y 3355 INC TEMP1 3360 DEC HEIGHT 3365 BNE .1 3370 RTS 3375 DRAW.LETTERS 3380 LDA #$07 3385 STA HEIGHT 3390 LDA #$3C 3395 STA POINTER1+1 3400 LDA #$00 3405 STA POINTER1 3410 .8 LDY #$00 3415 TYA 3420 .7 STA (POINTER1),Y 3425 .9 INY 3430 CPY #$10 3435 BEQ .9 3440 CPY #$17 3445 BEQ .9 3450 CPY #$28 3455 BCC .7 3460 LDA POINTER1+1 3465 SEC 3470 SBC #$04 3475 STA POINTER1+1 3480 DEC HEIGHT 3485 BPL .8 3490 LDA #$06 3495 STA HEIGHT 3500 LDA #$38 3505 STA POINTER1+1 3510 LDX #$00 3515 STX POINTER1 3520 .3 LDY #$00 3525 .1 LDA TABLE390,X 3530 STA (POINTER1),Y 3535 INX 3540 INY 3545 CPY #$09 3550 BCC .1 3555 LDY #$0E 3560 LDA TABLE390,X 3565 STA (POINTER1),Y 3570 INX 3575 LDY #$13 3580 .2 LDA TABLE390,X 3585 STA (POINTER1),Y 3590 INX 3595 LDA NO.OF.PLAYERS 3600 CMP #$02 3605 BEQ .5 3610 TXA 3615 CLC 3620 ADC #$0A 3625 TAX 3630 BNE .6 3635 .5 LDA #$06 3640 STA $3C1D 3645 LDY #$19 3650 .4 LDA TABLE390,X 3655 STA (POINTER1),Y 3660 INX 3665 INY 3670 CPY #$22 3675 BCC .4 3680 LDY #$27 3685 LDA TABLE390,X 3690 STA (POINTER1),Y 3695 INX 3700 .6 LDA POINTER1+1 3705 SEC 3710 SBC #$04 3715 STA POINTER1+1 3720 DEC HEIGHT 3725 BPL .3 3730 LDA #$0C 3735 STA $3C04 3740 LDA #$18 3745 STA $3C13 3750 RTS 3755 TABLE390 .HS 301E0F7E4C6740610F0C66184F073F66336070070C306073190C1843010333181870790C064C61300033 3760 .HS 70614C1933664C010333007830664C19336640013330664C1933667C010333001833664C19337E000633 3765 .HS 3C660C0633180C000333181E330643190C0600063330660C000000006003336618330600000000300633 3770 .HS 7001030000000000030C187840010000000040010C 3775 MOVE.MEMORY 3780 STA L3+1 3785 STA L4+1 3790 STY L3+2 3795 STX L4+2 3800 L3 LDA $2000 3805 L4 STA $4000 3810 INC L3+1 3815 INC L4+1 3820 BNE L3 3825 INC L3+2 3830 INC L4+2 3835 LDA L3+2 3840 CMP TEMP1 3845 BNE L3 3850 .LI ON 3855 RTS 3860 .LI OFF 3865 .OR $15BC 3870 .TA $15BC 3875 SET.FOOD.STATUS 3880 STX TEMP2 3885 LDA #$00 3890 STA PATINDEX 3895 STA POINTER1 3900 LDA #$1C 3905 STA POINTER1+1 3910 .14 DEX 3915 BPL .11 3920 .12 LDY PATINDEX 3925 LDA TABLE350,Y 3930 BEQ .8 3935 CMP #$FA 3940 BEQ .9 3945 CMP #$FF 3950 BEQ .10 3955 TAY 3960 LDA TEMP1 3965 STA (POINTER1),Y 3970 .13 INC PATINDEX 3975 BNE .12 3980 .9 INC POINTER1+1 3985 BNE .13 3990 .10 DEC POINTER1+1 3995 BNE .13 4000 .11 LDY PATINDEX 4005 LDA TABLE350,Y 4010 BEQ .15 4015 CMP #$FA 4020 BEQ .16 4025 CMP #$FF 4030 BEQ .17 4035 INC PATINDEX 4040 BNE .11 4045 .15 INC PATINDEX 4050 BNE .14 4055 .16 INC POINTER1+1 4060 INC PATINDEX 4065 BNE .11 4070 .17 DEC POINTER1+1 4075 INC PATINDEX 4080 BNE .11 4085 .8 LDX TEMP2 4090 RTS 4095 TABLE350 .HS 1C1D4C4D7C7DACAD002122232451525354002B2C2D5B5C5D00616263919293C1C2C300FACCCDCEFCFDFEFA2C2D2E00323334626364003B3C3D3E6B6C6D6E00FFE2E3FA12134243727300 4100 TABLE380 .HS E0C7B4A79583746D 4105 TABLE381 .HS 0303050505050303 4110 TABLE382 .HS 0606101010100606 4115 TABLE383 .HS 808F9EADBCCBDAE9 4120 POINTS.FOR.FOOD 4125 LDX #$00 4130 STX ALL.FOOD.OFF 4135 .2 LDA FOODBYT3,X 4140 BMI .1 4145 .7 INX 4150 CPX #$08 4155 BCC .2 4160 RTS 4165 .1 STX TEMP5 4170 LDA TABLE380,X 4175 STA TEMP1 4180 LDA #$50 4185 STA TEMP2 4190 .4 LDY TEMP1 4195 LDA $C030 4200 .3 DEY 4205 BNE .3 4210 DEC TEMP2 4215 BNE .4 4220 LDA FOODBYT3,X 4225 AND #$04 4230 BEQ .5 4235 LDA TABLE381,X 4240 BNE .6 4245 .5 INC ALL.FOOD.OFF 4250 LDA TABLE382,X 4255 .6 JSR SCORE 4260 LDX TEMP5 4265 LDA TABLE383,X 4270 JSR DELAY.Z 4275 JMP .7 4280 DAZZLE 4285 STA TEMP1 4290 LDX #$03 4295 .3 LDY #$00 4300 STY POINTER1 4305 LDA #$04 4310 STA POINTER1+1 4315 .2 LDA (POINTER1),Y 4320 BEQ .1 4325 JSR RANDOM1 4330 STA (POINTER1),Y 4335 .1 INY 4340 BNE .2 4345 INC POINTER1+1 4350 LDA POINTER1+1 4355 CMP #$08 4360 BNE .2 4365 DEX 4370 BEQ .4 4375 .7 DEC TEMP1 4380 BNE .3 4385 RTS 4390 .4 LDX #$03 4395 LDA #$22 4400 STA TEMP2 4405 LDA #$2A 4410 STA TEMP3 4415 .6 LDY TEMP2 4420 LDA $C030 4425 .5 DEY 4430 BNE .5 4435 DEC TEMP3 4440 BNE .6 4445 .LI ON 4450 BEQ .7 4455 .LI OFF 4460 .OR $1A14 4465 .TA $1A14 4470 PLOT.HISCORE 4475 LDA #$00 4480 TAY 4485 TAX 4490 .3 STA $27D0,Y 4495 STA $2BD0,Y 4500 STA $2FD0,Y 4505 STA $33D0,Y 4510 STA $37D0,Y 4515 STA $3BD0,Y 4520 STA $3FD0,Y 4525 INY 4530 CPY #$26 4535 BNE .3 4540 LDA HISCOREHI 4545 LSR 4550 LSR 4555 LSR 4560 LSR 4565 LDY #$E7 4570 JSR PLOT.NUM2.Z 4575 LDA HISCOREHI 4580 AND #$0F 4585 LDY #$E8 4590 JSR PLOT.NUM2.Z 4595 LDA HISCORELO 4600 LSR 4605 LSR 4610 LSR 4615 LSR 4620 LDY #$E9 4625 JSR PLOT.NUM2.Z 4630 LDA HISCORELO 4635 AND #$0F 4640 LDY #$EA 4645 JSR PLOT.NUM2.Z 4650 LDA ROUND 4655 LDY #$F4 4660 JSR PLOT.NUM2.Z 4665 LDA #$23 4670 STA POINTER1+1 4675 LDA #$DC 4680 STA POINTER1 4685 LDA #$07 4690 STA HEIGHT 4695 .2 LDY #$0F 4700 LDA TABLE395,X 4705 STA (POINTER1),Y 4710 LDY #$09 4715 INX 4720 .1 LDA TABLE395,X 4725 STA (POINTER1),Y 4730 INX 4735 DEY 4740 BPL .1 4745 LDA POINTER1+1 4750 ADC #$04 4755 STA POINTER1+1 4760 DEC HEIGHT 4765 BNE .2 4770 LDA #$0C 4775 STA $3FDE 4780 .LI ON 4785 RTS 4790 .LI OFF 4795 .OR $4E4A 4800 .TA $1E4A 4805 TABLE395 .HS 0C0000000003000600014C33000000000C600600014C33180313000060060C194C33663F0C6703001E33017F3366330C614C006633194C3318314C614C60674F194C0C6760031E33006660660C 4810 .OR $5EB0 4815 .TA $1DB0 4820 SELECT2 4825 JSR Z4.Z 4830 SELECT3 4835 LDA $C010 4840 SELECT 4845 JSR .4 4850 JSR MUSIC.Z 4855 LDA $C000 4860 STA TEMP1 4865 .1 INC RNDBYTE1 4870 BEQ .1 4875 .2 DEC RNDBYTE2 4880 BEQ .2 4885 LDA TEMP1 4890 BPL SELECT 4895 STA $C010 4900 CMP #$CB 4905 BEQ .10 4910 CMP #$B1 4915 BEQ .7 4920 CMP #$B2 4925 BEQ .8 4930 CMP #$CA 4935 BEQ .9 4940 CMP #$8D 4945 BNE SELECT 4950 RTS 4955 .4 LDA #$6D 4960 STA POINTER1 4965 LDA #$20 4970 STA POINTER1+1 4975 LDA #$07 4980 STA HEIGHT 4985 LDX #$00 4990 INC FLAP 4995 LDA FLAP 5000 AND #$01 5005 BEQ .6 5010 LDX #$0E 5015 .6 LDY #$00 5020 LDA TABLE399,X 5025 STA (POINTER1),Y 5030 INY 5035 INX 5040 LDA TABLE399,X 5045 STA (POINTER1),Y 5050 LDA POINTER1+1 5055 CLC 5060 ADC #$04 5065 STA POINTER1+1 5070 INX 5075 DEC HEIGHT 5080 BNE .6 5085 RTS 5090 .7 LDA #$01 5095 .11 CMP NO.OF.PLAYERS 5100 BEQ SELECT 5105 STA NO.OF.PLAYERS 5110 LDY #$0A 5115 JMP FLIP 5120 .8 LDA #$02 5125 BNE .11 5130 .10 LDA #$09 5135 BNE .12 5140 .9 LDA #$06 5145 .12 CMP $460D 5150 BEQ SELECT 5155 STA $460D 5160 LDY #$1C 5165 .LI ON 5170 JMP FLIP 5175 .OR $F54 5180 .TA $1F54 5185 FLIP 5190 STY TEMP1 5195 .LI OFF 5200 LDA #$14 5205 STA HEIGHT 5210 LDA #$B6 5215 STA TEMP2 5220 .3 LDA #$0F 5225 STA WIDTH 5230 LDY TEMP2 5235 LDA (SCRPNT1),Y 5240 STA POINTER1+1 5245 LDA (SCRPNT2),Y 5250 STA POINTER1 5255 LDY TEMP1 5260 .2 LDA (POINTER1),Y 5265 BEQ .1 5270 EOR #$FF 5275 STA (POINTER1),Y 5280 .1 INY 5285 DEC WIDTH 5290 BNE .2 5295 INC TEMP2 5300 DEC HEIGHT 5305 BNE .3 5310 JMP SELECT3 5315 .LI ON 5320 TABLE399 .HS 400F30600C600C0C030367002A00000000000000600F183006307E0F 5325 .OR $45BA 5330 .TA $25BA 5335 JMP INITIALIZE.1 5340 JMP DRAW.GREEN 5345 JMP MOVE.MEMORY 5350 SETUP 5355 .LI OFF 5360 STY $3F3 5365 LDA #$43 5370 STA SCRPNT1+1 5375 LDA #$C0 5380 STA SCRPNT1 5385 LDA #$44 5390 STA SCRPNT2+1 5395 LDA #$A8 5400 STA SCRPNT2 5405 LDA $C057 5410 LDA $C054 5415 LDA $C052 5420 LDA $C050 5425 LDA #$4C 5430 STA $31 5435 LDA #$41 5440 STA $33 5445 LDA #$31 5450 STA $3F2 5455 LDA #$A5 5460 STA $3F4 5465 LDA #$12 5470 .1 STA $45C3,Y 5475 INY 5480 CPY #$33 5485 BNE .1 5490 .LI ON 5495 RTS 5500 .OR $41FF 5505 .TA $11FF 5510 JMP RESET 5515 .LI OFF