mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-06 01:31:57 +00:00
1077 lines
23 KiB
Plaintext
1077 lines
23 KiB
Plaintext
0005 .LI OFF
|
|
0010 AAMSBYT .EQ $10C0
|
|
0015 AALSBYT .EQ $10E0
|
|
0020 HPDL .EQ $E9
|
|
0025 VPDL .EQ $EA
|
|
0030 PDLSEL .EQ $EB
|
|
0035 TEMP1 .EQ $F0
|
|
0040 TEMP2 .EQ $F1
|
|
0045 TEMP3 .EQ $F2
|
|
0050 SCRPNT1 .EQ $F5
|
|
0055 SCRPNT2 .EQ $F7
|
|
0060 POINTER1 .EQ $F9
|
|
0065 POINTER2 .EQ $FB
|
|
0070 POINTER3 .EQ $FD
|
|
0075 PARALYZE .EQ $A2
|
|
0080 MANX .EQ $CB
|
|
0085 MANXX .EQ $CA
|
|
0090 MANY .EQ $C9
|
|
0095 MANDIR .EQ $C8
|
|
0100 MANSTATE .EQ $C7
|
|
0105 NEXTSTATE .EQ $C6
|
|
0110 HEIGHT .EQ $ED
|
|
0115 SWAT .EQ $C5
|
|
0120 MOD2 .EQ $C4
|
|
0125 SWATLEGAL .EQ $C3
|
|
0130 PATINDEX .EQ $EC
|
|
0135 MANY8 .EQ $C2
|
|
0140 MANY10 .EQ $C1
|
|
0145 MANX3 .EQ $C0
|
|
0150 SWTRX .EQ $BF
|
|
0155 SWTRXX .EQ $BE
|
|
0160 SWTRY .EQ $BD
|
|
0165 MANXOLD .EQ $BC
|
|
0170 MANXXOLD .EQ $BB
|
|
0175 MANYOLD .EQ $BA
|
|
0180 DESTBYT1 .EQ $1080
|
|
0185 ANTBYT4 .EQ $1060
|
|
0190 ANTNUM .EQ $D8
|
|
0195 K3 .EQ $B9
|
|
0200 INIT.K3 .EQ $B8
|
|
0205 GRAB.FOOD .EQ $B7
|
|
0210 BYFOOD .EQ $B6
|
|
0215 SPIDERNUM .EQ $A3
|
|
0220 CAN.KEY.PRESSED .EQ $80
|
|
0225 GRAB.SQUELCH .EQ $86
|
|
0230 FOOTSTEP .EQ $85
|
|
0235 ERASE.WEB.Z .EQ $600C
|
|
0240 PLOT.NEW.SWTR.Z .EQ $4F00
|
|
0245 ERASE.OLD.SWTR.Z .EQ $4F03
|
|
0250 VACATE.ANTS.BLOCKS.Z .EQ $4F06
|
|
0255 SCORE.Z .EQ $4F09
|
|
0260 PLOT.SPIDER.Z .EQ $6006
|
|
0265 STING.MAN.Z .EQ $600F
|
|
0270 VACATE.WASPS.BLOCKS.Z .EQ $580C
|
|
0275 SPIDERBYT4 .EQ $4118
|
|
0280 PLOT.WASP.Z .EQ $580F
|
|
0285 CARRY.FOOD.Z .EQ $7340
|
|
0290 RANDOM1.Z .EQ $1706
|
|
0295 RANDOM2.Z .EQ $1709
|
|
0300 DELAY.Z .EQ $5800
|
|
0305 PROTECT.Z .EQ $4230
|
|
0310 .OR $10C0
|
|
0315 .HS 1A1A1A1B1B1B1B1B1C1C1C1C1C1D1D1D1D1D1D1E1E1E1E1E1F1F1F1F1F
|
|
0320 .OR $10E0
|
|
0325 .HS 90C0F0205080B0E0104070A0D000306090C0F0205080B0E0104070A0D0
|
|
0330 .OR $4600
|
|
0335 .TA $2600
|
|
0340 JMP MAN.MASTER
|
|
0345 JMP MAN.RIGHT
|
|
0350 JMP JOYSTICK
|
|
0355 JMP KYBD
|
|
0360 JMP $4606
|
|
0365 JMP PLOT.MAN
|
|
0370 JMP ERASE.LEFT
|
|
0375 JMP SWTR.SOUND
|
|
0380 JOYSTICK
|
|
0385 LDY #$00
|
|
0390 INC PDLSEL
|
|
0395 LDA PDLSEL
|
|
0400 AND #$01
|
|
0405 BEQ .1
|
|
0410 STY HPDL
|
|
0415 LDA $C070
|
|
0420 .3 LDA #$11
|
|
0425 JSR DELAY.Z
|
|
0430 LDA $C064
|
|
0435 BPL .2
|
|
0440 INC HPDL
|
|
0445 LDA #$11
|
|
0450 JSR DELAY.Z
|
|
0455 LDA $C064
|
|
0460 BPL .2
|
|
0465 INC HPDL
|
|
0470 BNE .2
|
|
0475 .1 STY VPDL
|
|
0480 LDA $C070
|
|
0485 LDA #$11
|
|
0490 JSR DELAY.Z
|
|
0495 LDA $C065
|
|
0500 BPL .2
|
|
0505 INC VPDL
|
|
0510 LDA #$11
|
|
0515 JSR DELAY.Z
|
|
0520 LDA $C065
|
|
0525 BPL .2
|
|
0530 INC VPDL
|
|
0535 .2 LDA $C062
|
|
0540 BPL .4
|
|
0545 LDA #$80
|
|
0550 STA GRAB.FOOD
|
|
0555 LDA BYFOOD
|
|
0560 BEQ .4
|
|
0565 LDA GRAB.SQUELCH
|
|
0570 BNE .7
|
|
0575 JSR GRAB.FOOD.SOUND
|
|
0580 BNE .7
|
|
0585 .4 LDA #$00
|
|
0590 STA GRAB.SQUELCH
|
|
0595 .7 LDX #$80
|
|
0600 LDA $C061
|
|
0605 BPL .8
|
|
0610 LDA #$00
|
|
0615 STA GRAB.FOOD
|
|
0620 LDA #$80
|
|
0625 BMI .9
|
|
0630 .8 LDA #$00
|
|
0635 .9 STA SWAT
|
|
0640 BEQ .10
|
|
0645 LDA MOD2
|
|
0650 AND #$02
|
|
0655 BEQ .10
|
|
0660 LDX #$00
|
|
0665 .10 STX SWATLEGAL
|
|
0670 LDY VPDL
|
|
0675 LDA HPDL
|
|
0680 CLC
|
|
0685 ADC TABLEJ1,Y
|
|
0690 TAY
|
|
0695 LDA TABLEJ2,Y
|
|
0700 STA MANDIR
|
|
0705 LDA $C000
|
|
0710 CMP #$D8
|
|
0715 BNE .11
|
|
0720 STA CAN.KEY.PRESSED
|
|
0725 .11 CMP #$9B
|
|
0730 BNE .12
|
|
0735 LDA $C010
|
|
0740 .13 LDA $C000
|
|
0745 BPL .13
|
|
0750 LDA $C010
|
|
0755 .12 JMP KYBD2
|
|
0760 TABLEJ1 .HS 00030606
|
|
0765 TABLEJ2 .HS B8B9B0C941D0CBCCBB
|
|
0770 KYBD
|
|
0775 LDA $C000
|
|
0780 STA $C010
|
|
0785 BPL .3
|
|
0790 CMP #$9B
|
|
0795 BNE .1
|
|
0800 .7 LDA $C000
|
|
0805 BPL .7
|
|
0810 STA $C010
|
|
0815 .1 CMP #$A0
|
|
0820 BNE .2
|
|
0825 LDA #$80
|
|
0830 STA GRAB.FOOD
|
|
0835 LDA BYFOOD
|
|
0840 BEQ .6
|
|
0845 JSR GRAB.FOOD.SOUND
|
|
0850 .6 LDA #$00
|
|
0855 STA SWAT
|
|
0860 BEQ .3
|
|
0865 .2 CMP #$8D
|
|
0870 BNE .4
|
|
0875 LDA SWAT
|
|
0880 EOR #$80
|
|
0885 STA SWAT
|
|
0890 LDA #$00
|
|
0895 STA GRAB.FOOD
|
|
0900 .3 LDA MANDIR
|
|
0905 .4 STA MANDIR
|
|
0910 LDX #$80
|
|
0915 LDA SWAT
|
|
0920 BEQ .5
|
|
0925 LDA MOD2
|
|
0930 AND #$02
|
|
0935 BEQ .5
|
|
0940 LDX #$00
|
|
0945 .5 STX SWATLEGAL
|
|
0950 KYBD2
|
|
0955 LDY MANSTATE
|
|
0960 LDA MANDIR
|
|
0965 CMP #$B9
|
|
0970 BEQ B1
|
|
0975 CMP #$B0
|
|
0980 BEQ B2
|
|
0985 CMP #$D0
|
|
0990 BEQ B3
|
|
0995 CMP #$BB
|
|
1000 BEQ B4
|
|
1005 CMP #$CC
|
|
1010 BEQ B5
|
|
1015 CMP #$CB
|
|
1020 BEQ B6
|
|
1025 CMP #$C9
|
|
1030 BEQ B7
|
|
1035 CMP #$B8
|
|
1040 BEQ B8
|
|
1045 CMP #$D8
|
|
1050 BNE .1
|
|
1055 STA CAN.KEY.PRESSED
|
|
1060 .1 LDA #$41
|
|
1065 STA MANDIR
|
|
1070 RTS
|
|
1075 B1 JSR A1
|
|
1080 STA NEXTSTATE
|
|
1085 JMP MAN.UP
|
|
1090 B2 JSR A5
|
|
1095 STA NEXTSTATE
|
|
1100 JSR MAN.UP
|
|
1105 BNE C1
|
|
1110 JSR MAN.RIGHT
|
|
1115 BNE B2A
|
|
1120 RTS
|
|
1125 B2A JSR MAN.DOWN
|
|
1130 LDA #$40
|
|
1135 RTS
|
|
1140 B3 JSR A8
|
|
1145 STA NEXTSTATE
|
|
1150 JMP MAN.RIGHT
|
|
1155 B4 JSR A9
|
|
1160 STA NEXTSTATE
|
|
1165 JSR MAN.DOWN
|
|
1170 BNE C1
|
|
1175 JSR MAN.RIGHT
|
|
1180 BNE B4A
|
|
1185 RTS
|
|
1190 B4A JSR MAN.UP
|
|
1195 LDA #$40
|
|
1200 RTS
|
|
1205 B5 JSR A10
|
|
1210 STA NEXTSTATE
|
|
1215 JMP MAN.DOWN
|
|
1220 B6 JSR A13
|
|
1225 STA NEXTSTATE
|
|
1230 JSR MAN.DOWN
|
|
1235 BNE C1
|
|
1240 JSR MAN.LEFT
|
|
1245 BNE B4A
|
|
1250 RTS
|
|
1255 B7 JSR A17
|
|
1260 STA NEXTSTATE
|
|
1265 JMP MAN.LEFT
|
|
1270 B8 JSR A18
|
|
1275 STA NEXTSTATE
|
|
1280 JSR MAN.UP
|
|
1285 BNE C1
|
|
1290 JSR MAN.LEFT
|
|
1295 BNE B2A
|
|
1300 C1 RTS
|
|
1305 A1 TXA
|
|
1310 BPL A4
|
|
1315 CPY #$02
|
|
1320 BNE A3
|
|
1325 A2 LDA #$01
|
|
1330 RTS
|
|
1335 A3 LDA #$02
|
|
1340 RTS
|
|
1345 A4 LDA #$0B
|
|
1350 RTS
|
|
1355 A5 TXA
|
|
1360 BPL A7
|
|
1365 A6 CPY #$01
|
|
1370 BNE A2
|
|
1375 LDA #$02
|
|
1380 RTS
|
|
1385 A7 LDA #$07
|
|
1390 RTS
|
|
1395 A8 TXA
|
|
1400 BMI A6
|
|
1405 LDA #$05
|
|
1410 RTS
|
|
1415 A9 TXA
|
|
1420 BMI A6
|
|
1425 LDA #$09
|
|
1430 RTS
|
|
1435 A10 TXA
|
|
1440 BPL A12
|
|
1445 CPY #$04
|
|
1450 BNE A11
|
|
1455 LDA #$03
|
|
1460 RTS
|
|
1465 A11 LDA #$04
|
|
1470 RTS
|
|
1475 A12 LDA #$0C
|
|
1480 RTS
|
|
1485 A13 TXA
|
|
1490 BPL A16
|
|
1495 A14 CPY #$03
|
|
1500 BNE A15
|
|
1505 LDA #$04
|
|
1510 RTS
|
|
1515 A15 LDA #$03
|
|
1520 RTS
|
|
1525 A16 LDA #$0A
|
|
1530 RTS
|
|
1535 A17 TXA
|
|
1540 BMI A14
|
|
1545 LDA #$06
|
|
1550 RTS
|
|
1555 A18 TXA
|
|
1560 BMI A14
|
|
1565 LDA #$08
|
|
1570 RTS
|
|
1575 PLOT.MAN
|
|
1580 LDX MANSTATE
|
|
1585 LDA TABLE11,X
|
|
1590 STA POINTER1+1
|
|
1595 LDA TABLE12,X
|
|
1600 STA POINTER1
|
|
1605 LDX MANXX
|
|
1610 LDA #$10
|
|
1615 STA HEIGHT
|
|
1620 LDA #$00
|
|
1625 STA PATINDEX
|
|
1630 .6 LDY MANY
|
|
1635 LDA (SCRPNT1),Y
|
|
1640 STA POINTER2+1
|
|
1645 LDA (SCRPNT2),Y
|
|
1650 STA POINTER2
|
|
1655 LDY MANX
|
|
1660 LDA (POINTER2),Y
|
|
1665 AND TABLE13,X
|
|
1670 STA TEMP1
|
|
1675 LDY PATINDEX
|
|
1680 LDA (POINTER1),Y
|
|
1685 STA TEMP2
|
|
1690 LDY TABLE14,X
|
|
1695 LDA #$00
|
|
1700 .1 LSR TEMP2
|
|
1705 ROR
|
|
1710 DEY
|
|
1715 BNE .1
|
|
1720 LSR
|
|
1725 ORA TEMP1
|
|
1730 LDY MANX
|
|
1735 CPY #$04
|
|
1740 BCC .2
|
|
1745 CPY #$2C
|
|
1750 BCS .2
|
|
1755 STA (POINTER2),Y
|
|
1760 .2 INC MANX
|
|
1765 INC PATINDEX
|
|
1770 LDY PATINDEX
|
|
1775 LDA (POINTER1),Y
|
|
1780 STA TEMP1
|
|
1785 LDY TABLE14,X
|
|
1790 LDA #$00
|
|
1795 .3 LSR TEMP1
|
|
1800 ROR
|
|
1805 DEY
|
|
1810 BNE .3
|
|
1815 LSR
|
|
1820 ORA TEMP2
|
|
1825 LDY MANX
|
|
1830 CPY #$04
|
|
1835 BCC .4
|
|
1840 CPY #$2C
|
|
1845 BCS .4
|
|
1850 STA (POINTER2),Y
|
|
1855 .4 INY
|
|
1860 CPY #$04
|
|
1865 BCC .5
|
|
1870 CPY #$2C
|
|
1875 BCS .5
|
|
1880 LDA (POINTER2),Y
|
|
1885 AND TABLE15,X
|
|
1890 ORA TEMP1
|
|
1895 STA (POINTER2),Y
|
|
1900 .5 DEC MANX
|
|
1905 INC MANY
|
|
1910 INC PATINDEX
|
|
1915 DEC HEIGHT
|
|
1920 BNE .7
|
|
1925 LDA MANY
|
|
1930 SEC
|
|
1935 SBC #$10
|
|
1940 STA MANY
|
|
1945 RTS
|
|
1950 .7 JMP .6
|
|
1955 JMP .6
|
|
1960 ERASE.LEFT
|
|
1965 LDA MANY
|
|
1970 STA TEMP2
|
|
1975 LDA MANX
|
|
1980 STA TEMP1
|
|
1985 LDA #$10
|
|
1990 STA HEIGHT
|
|
1995 LDX MANXX
|
|
2000 BEQ .3
|
|
2005 CPX #$04
|
|
2010 BNE .1
|
|
2015 .3 DEC TEMP1
|
|
2020 .1 LDY TEMP2
|
|
2025 LDA (SCRPNT1),Y
|
|
2030 STA POINTER2+1
|
|
2035 LDA (SCRPNT2),Y
|
|
2040 STA POINTER2
|
|
2045 LDY TEMP1
|
|
2050 CPY #$2C
|
|
2055 BCS .2
|
|
2060 CPY #$04
|
|
2065 BCC .4
|
|
2070 LDA (POINTER2),Y
|
|
2075 AND TABLE16,X
|
|
2080 ORA TABLE17,X
|
|
2085 STA (POINTER2),Y
|
|
2090 .4 CPX #$04
|
|
2095 BNE .2
|
|
2100 INY
|
|
2105 CPY #$2C
|
|
2110 BCS .2
|
|
2115 CPY #$04
|
|
2120 BCC .2
|
|
2125 LDA (POINTER2),Y
|
|
2130 ORA #$01
|
|
2135 STA (POINTER2),Y
|
|
2140 .2 INC TEMP2
|
|
2145 DEC HEIGHT
|
|
2150 BNE .1
|
|
2155 RTS
|
|
2160 ERASE.RIGHT
|
|
2165 LDA MANY
|
|
2170 STA TEMP2
|
|
2175 LDA MANX
|
|
2180 CLC
|
|
2185 ADC #$02
|
|
2190 STA TEMP1
|
|
2195 LDA #$10
|
|
2200 STA HEIGHT
|
|
2205 LDX MANXX
|
|
2210 CPX #$03
|
|
2215 BEQ .3
|
|
2220 CPX #$06
|
|
2225 BNE .1
|
|
2230 .3 INC TEMP1
|
|
2235 .1 LDY TEMP2
|
|
2240 LDA (SCRPNT1),Y
|
|
2245 STA POINTER2+1
|
|
2250 LDA (SCRPNT2),Y
|
|
2255 STA POINTER2
|
|
2260 LDY TEMP1
|
|
2265 CPY #$2C
|
|
2270 BCS .4
|
|
2275 CPY #$04
|
|
2280 BCC .2
|
|
2285 LDA (POINTER2),Y
|
|
2290 AND TABLE18,X
|
|
2295 ORA TABLE19,X
|
|
2300 STA (POINTER2),Y
|
|
2305 .4 CPX #$06
|
|
2310 BNE .2
|
|
2315 DEY
|
|
2320 CPY #$2C
|
|
2325 BCS .2
|
|
2330 CPY #$04
|
|
2335 BCC .2
|
|
2340 LDA (POINTER2),Y
|
|
2345 ORA #$40
|
|
2350 STA (POINTER2),Y
|
|
2355 .2 INC TEMP2
|
|
2360 DEC HEIGHT
|
|
2365 BNE .1
|
|
2370 RTS
|
|
2375 ERASE.UP
|
|
2380 LDY MANY
|
|
2385 DEY
|
|
2390 E1 LDA (SCRPNT1),Y
|
|
2395 STA POINTER2+1
|
|
2400 LDA (SCRPNT2),Y
|
|
2405 STA POINTER2
|
|
2410 LDX MANXX
|
|
2415 LDY MANX
|
|
2420 CPY #$2C
|
|
2425 BCS .1
|
|
2430 CPY #$04
|
|
2435 BCC .2
|
|
2440 LDA (POINTER2),Y
|
|
2445 AND TABLE13,X
|
|
2450 ORA TABLE20,X
|
|
2455 STA (POINTER2),Y
|
|
2460 .2 INY
|
|
2465 CPY #$2C
|
|
2470 BCS .1
|
|
2475 CPY #$04
|
|
2480 BCC .3
|
|
2485 LDA TABLE22,X
|
|
2490 STA (POINTER2),Y
|
|
2495 .3 INY
|
|
2500 CPY #$2C
|
|
2505 BCS .1
|
|
2510 CPY #$04
|
|
2515 BCC .1
|
|
2520 LDA (POINTER2),Y
|
|
2525 AND TABLE15,X
|
|
2530 ORA TABLE21,X
|
|
2535 STA (POINTER2),Y
|
|
2540 .1 LDA #$00
|
|
2545 RTS
|
|
2550 ERASE.DOWN
|
|
2555 LDA MANY
|
|
2560 CLC
|
|
2565 ADC #$10
|
|
2570 TAY
|
|
2575 BNE E1
|
|
2580 GET.BLOCK2
|
|
2585 LDY MANX
|
|
2590 LDA MANY
|
|
2595 LSR
|
|
2600 LSR
|
|
2605 LSR
|
|
2610 TAX
|
|
2615 LDA AALSBYT,X
|
|
2620 STA POINTER3
|
|
2625 LDA AAMSBYT,X
|
|
2630 STA POINTER3+1
|
|
2635 LDA (POINTER3),Y
|
|
2640 RTS
|
|
2645 SET.VACANT
|
|
2650 JSR GET.BLOCK2
|
|
2655 LDA #$00
|
|
2660 STA (POINTER3),Y
|
|
2665 RTS
|
|
2670 SET.MAN
|
|
2675 JSR GET.BLOCK2
|
|
2680 LDA #$01
|
|
2685 STA (POINTER3),Y
|
|
2690 RTS
|
|
2695 MAN.MOVE.LEGAL.CHECK
|
|
2700 MAN.LEFT
|
|
2705 JSR .3
|
|
2710 BNE .9
|
|
2715 JMP ERASE.RIGHT
|
|
2720 .3 LDA MANXX
|
|
2725 BEQ .4
|
|
2730 CMP #$04
|
|
2735 BEQ .5
|
|
2740 DEC MANXX
|
|
2745 LDA #$00
|
|
2750 .9 RTS
|
|
2755 .5 LDA MANX
|
|
2760 CMP #$01
|
|
2765 BNE .4
|
|
2770 LDA MANY
|
|
2775 AND #$07
|
|
2780 BEQ .6
|
|
2785 JSR V3
|
|
2790 LDA #$2C
|
|
2795 STA MANX
|
|
2800 LDA #$00
|
|
2805 STA MANXX
|
|
2810 JMP V6
|
|
2815 .6 JSR V1
|
|
2820 LDA #$2C
|
|
2825 STA MANX
|
|
2830 LDA #$00
|
|
2835 STA MANXX
|
|
2840 JMP V4
|
|
2845 .4 LDA MANY
|
|
2850 STA TEMP2
|
|
2855 CLC
|
|
2860 ADC #$08
|
|
2865 STA MANY8
|
|
2870 ADC #$08
|
|
2875 STA MANY10
|
|
2880 DEC MANX
|
|
2885 LDA MANX
|
|
2890 STA TEMP1
|
|
2895 CLC
|
|
2900 ADC #$03
|
|
2905 STA MANX3
|
|
2910 JSR V7
|
|
2915 BNE .1
|
|
2920 LDA MANY8
|
|
2925 JSR V7A
|
|
2930 BNE .2
|
|
2935 LDA TEMP2
|
|
2940 AND #$07
|
|
2945 BEQ .7
|
|
2950 LDA MANY10
|
|
2955 JSR V7A
|
|
2960 BNE .2
|
|
2965 JSR SET.MAN
|
|
2970 LDA MANX3
|
|
2975 STA MANX
|
|
2980 JSR SET.VACANT
|
|
2985 LDA TEMP1
|
|
2990 STA MANX
|
|
2995 LDA MANY8
|
|
3000 STA MANY
|
|
3005 .7 JSR SET.MAN
|
|
3010 LDA TEMP2
|
|
3015 STA MANY
|
|
3020 JSR SET.MAN
|
|
3025 LDA MANX3
|
|
3030 STA MANX
|
|
3035 DEC MANXX
|
|
3040 BPL .8
|
|
3045 LDA #$06
|
|
3050 STA MANXX
|
|
3055 .8 JSR SET.VACANT
|
|
3060 LDA MANY8
|
|
3065 STA MANY
|
|
3070 JSR SET.VACANT
|
|
3075 LDA TEMP1
|
|
3080 STA MANX
|
|
3085 LDA TEMP2
|
|
3090 STA MANY
|
|
3095 LDA #$00
|
|
3100 RTS
|
|
3105 .1 STA TEMP3
|
|
3110 LDA TEMP1
|
|
3115 CLC
|
|
3120 ADC #$01
|
|
3125 STA MANX
|
|
3130 LDA TEMP3
|
|
3135 RTS
|
|
3140 .2 STA TEMP3
|
|
3145 LDA TEMP2
|
|
3150 STA MANY
|
|
3155 LDA MANX
|
|
3160 CLC
|
|
3165 ADC #$01
|
|
3170 STA MANX
|
|
3175 LDA TEMP3
|
|
3180 RTS
|
|
3185 MAN.RIGHT
|
|
3190 JSR .3
|
|
3195 BNE .9
|
|
3200 JMP ERASE.LEFT
|
|
3205 .3 LDA MANXX
|
|
3210 CMP #$06
|
|
3215 BEQ .4
|
|
3220 CMP #$03
|
|
3225 BEQ .5
|
|
3230 INC MANXX
|
|
3235 LDA #$00
|
|
3240 .9 RTS
|
|
3245 .5 LDA MANX
|
|
3250 CMP #$2C
|
|
3255 BNE .4
|
|
3260 LDA MANY
|
|
3265 AND #$07
|
|
3270 BEQ .6
|
|
3275 JSR V3
|
|
3280 LDA #$01
|
|
3285 STA MANX
|
|
3290 LDA #$06
|
|
3295 STA MANXX
|
|
3300 JMP V6
|
|
3305 .6 JSR V1
|
|
3310 LDA #$01
|
|
3315 STA MANX
|
|
3320 LDA #$06
|
|
3325 STA MANXX
|
|
3330 JMP V4
|
|
3335 .4 LDA MANY
|
|
3340 STA TEMP2
|
|
3345 CLC
|
|
3350 ADC #$08
|
|
3355 STA MANY8
|
|
3360 ADC #$08
|
|
3365 STA MANY10
|
|
3370 LDA MANX
|
|
3375 STA TEMP1
|
|
3380 CLC
|
|
3385 ADC #$03
|
|
3390 STA MANX3
|
|
3395 STA MANX
|
|
3400 JSR V7
|
|
3405 BNE .1
|
|
3410 LDA MANY8
|
|
3415 JSR V7A
|
|
3420 BNE .2
|
|
3425 LDA TEMP2
|
|
3430 AND #$07
|
|
3435 BEQ .7
|
|
3440 LDA MANY10
|
|
3445 JSR V7A
|
|
3450 BNE .2
|
|
3455 JSR SET.MAN
|
|
3460 LDA TEMP1
|
|
3465 STA MANX
|
|
3470 JSR SET.VACANT
|
|
3475 LDA MANY8
|
|
3480 STA MANY
|
|
3485 LDA MANX3
|
|
3490 STA MANX
|
|
3495 .7 JSR SET.MAN
|
|
3500 LDA TEMP2
|
|
3505 STA MANY
|
|
3510 JSR SET.MAN
|
|
3515 LDA TEMP1
|
|
3520 STA MANX
|
|
3525 LDX MANXX
|
|
3530 INX
|
|
3535 CPX #$07
|
|
3540 BNE .8
|
|
3545 LDX #$00
|
|
3550 .8 STX MANXX
|
|
3555 JSR SET.VACANT
|
|
3560 LDA MANY8
|
|
3565 STA MANY
|
|
3570 JSR SET.VACANT
|
|
3575 LDA TEMP2
|
|
3580 STA MANY
|
|
3585 LDX TEMP1
|
|
3590 INX
|
|
3595 STX MANX
|
|
3600 LDA #$00
|
|
3605 RTS
|
|
3610 .1 STA TEMP3
|
|
3615 LDA TEMP1
|
|
3620 STA MANX
|
|
3625 LDA TEMP3
|
|
3630 RTS
|
|
3635 .2 STA TEMP3
|
|
3640 LDA TEMP2
|
|
3645 STA MANY
|
|
3650 LDA TEMP1
|
|
3655 STA MANX
|
|
3660 LDA TEMP3
|
|
3665 RTS
|
|
3670 MAN.UP
|
|
3675 JSR .6
|
|
3680 BNE .4
|
|
3685 JMP ERASE.DOWN
|
|
3690 .6 LDA MANY
|
|
3695 CMP #$0A
|
|
3700 BNE .1
|
|
3705 JSR V3
|
|
3710 LDA #$D0
|
|
3715 STA MANY
|
|
3720 JMP V4
|
|
3725 .1 SEC
|
|
3730 SBC #$01
|
|
3735 STA MANY
|
|
3740 AND #$07
|
|
3745 BEQ .5
|
|
3750 CMP #$07
|
|
3755 BEQ .3
|
|
3760 LDA #$00
|
|
3765 RTS
|
|
3770 .3 JSR V8
|
|
3775 BEQ .4
|
|
3780 INC MANY
|
|
3785 TAX
|
|
3790 .4 RTS
|
|
3795 .5 LDA MANY
|
|
3800 CLC
|
|
3805 ADC #$10
|
|
3810 STA MANY
|
|
3815 JSR SET.VACANT
|
|
3820 INC MANX
|
|
3825 JSR SET.VACANT
|
|
3830 INC MANX
|
|
3835 JSR SET.VACANT
|
|
3840 DEC MANX
|
|
3845 DEC MANX
|
|
3850 LDA MANY
|
|
3855 SEC
|
|
3860 SBC #$10
|
|
3865 STA MANY
|
|
3870 LDA #$00
|
|
3875 RTS
|
|
3880 MAN.DOWN
|
|
3885 JSR .5
|
|
3890 BNE .9
|
|
3895 JMP ERASE.UP
|
|
3900 .5 LDA MANY
|
|
3905 CMP #$CE
|
|
3910 BNE .1
|
|
3915 JSR V3
|
|
3920 LDA #$0A
|
|
3925 STA MANY
|
|
3930 JMP V4
|
|
3935 .1 CLC
|
|
3940 ADC #$01
|
|
3945 STA MANY
|
|
3950 AND #$07
|
|
3955 BEQ .4
|
|
3960 CMP #$01
|
|
3965 BEQ .2
|
|
3970 LDA #$00
|
|
3975 .9 RTS
|
|
3980 .2 LDA MANY
|
|
3985 CLC
|
|
3990 ADC #$10
|
|
3995 STA MANY
|
|
4000 JSR V8
|
|
4005 STA TEMP1
|
|
4010 BEQ .3
|
|
4015 LDA MANY
|
|
4020 SEC
|
|
4025 SBC #$11
|
|
4030 STA MANY
|
|
4035 LDA TEMP1
|
|
4040 RTS
|
|
4045 .3 LDA MANY
|
|
4050 SEC
|
|
4055 SBC #$10
|
|
4060 STA MANY
|
|
4065 LDA TEMP1
|
|
4070 RTS
|
|
4075 .4 DEC MANY
|
|
4080 JSR SET.VACANT
|
|
4085 INC MANX
|
|
4090 JSR SET.VACANT
|
|
4095 INC MANX
|
|
4100 JSR SET.VACANT
|
|
4105 DEC MANX
|
|
4110 DEC MANX
|
|
4115 INC MANY
|
|
4120 LDA #$00
|
|
4125 RTS
|
|
4130 V1 JSR SET.VACANT
|
|
4135 INC MANX
|
|
4140 JSR SET.VACANT
|
|
4145 INC MANX
|
|
4150 JSR SET.VACANT
|
|
4155 LDA MANY
|
|
4160 CLC
|
|
4165 ADC #$08
|
|
4170 V2 STA MANY
|
|
4175 JSR SET.VACANT
|
|
4180 DEC MANX
|
|
4185 JSR SET.VACANT
|
|
4190 DEC MANX
|
|
4195 JSR SET.VACANT
|
|
4200 LDA MANY
|
|
4205 SEC
|
|
4210 SBC #$08
|
|
4215 STA MANY
|
|
4220 RTS
|
|
4225 V3 JSR V1
|
|
4230 CLC
|
|
4235 ADC #$10
|
|
4240 INC MANX
|
|
4245 INC MANX
|
|
4250 JSR V2
|
|
4255 SEC
|
|
4260 SBC #$08
|
|
4265 STA MANY
|
|
4270 RTS
|
|
4275 V4 JSR SET.MAN
|
|
4280 INC MANX
|
|
4285 JSR SET.MAN
|
|
4290 INC MANX
|
|
4295 JSR SET.MAN
|
|
4300 LDA MANY
|
|
4305 CLC
|
|
4310 ADC #$08
|
|
4315 V5 STA MANY
|
|
4320 JSR SET.MAN
|
|
4325 DEC MANX
|
|
4330 JSR SET.MAN
|
|
4335 DEC MANX
|
|
4340 JSR SET.MAN
|
|
4345 LDA MANY
|
|
4350 SEC
|
|
4355 SBC #$08
|
|
4360 STA MANY
|
|
4365 LDX #$00
|
|
4370 RTS
|
|
4375 V6 JSR V4
|
|
4380 LDA MANY
|
|
4385 CLC
|
|
4390 ADC #$10
|
|
4395 INC MANX
|
|
4400 INC MANX
|
|
4405 JSR V5
|
|
4410 SEC
|
|
4415 SBC #$08
|
|
4420 STA MANY
|
|
4425 LDA #$00
|
|
4430 RTS
|
|
4435 V7A STA MANY
|
|
4440 V7 JMP GET.BLOCK2
|
|
4445 V8 JSR V7
|
|
4450 BNE .1
|
|
4455 INC MANX
|
|
4460 JSR V7
|
|
4465 BNE .2
|
|
4470 INC MANX
|
|
4475 JSR V7
|
|
4480 BEQ .3
|
|
4485 DEC MANX
|
|
4490 .2 DEC MANX
|
|
4495 TAX
|
|
4500 .1 RTS
|
|
4505 .3 JSR SET.MAN
|
|
4510 DEC MANX
|
|
4515 JSR SET.MAN
|
|
4520 DEC MANX
|
|
4525 JSR SET.MAN
|
|
4530 LDA #$00
|
|
4535 RTS
|
|
4540 MAN.MASTER
|
|
4545 DEC K3
|
|
4550 BEQ .11
|
|
4555 RTS
|
|
4560 .4 JMP EXT5
|
|
4565 .11 LDA INIT.K3
|
|
4570 STA K3
|
|
4575 LDY PARALYZE
|
|
4580 BNE .4
|
|
4585 LDA MANX
|
|
4590 STA MANXOLD
|
|
4595 LDA MANY
|
|
4600 STA MANYOLD
|
|
4605 LDA MANXX
|
|
4610 STA MANXXOLD
|
|
4615 INC MOD2
|
|
4620 JSR $460C
|
|
4625 BNE EXT6
|
|
4630 INC FOOTSTEP
|
|
4635 LDA #$03
|
|
4640 BIT FOOTSTEP
|
|
4645 BNE .3
|
|
4650 JSR FOOTSTEP.SOUND
|
|
4655 .3 LDA GRAB.FOOD
|
|
4660 BNE .1
|
|
4665 STA BYFOOD
|
|
4670 BEQ EXT2
|
|
4675 .1 LDA BYFOOD
|
|
4680 BNE .2
|
|
4685 STA GRAB.FOOD
|
|
4690 BEQ EXT2
|
|
4695 .2 JSR CARRY.FOOD.Z
|
|
4700 EXT2 LDA NEXTSTATE
|
|
4705 CMP #$05
|
|
4710 BCS .4
|
|
4715 LDY MANSTATE
|
|
4720 CPY #$05
|
|
4725 BCS .4
|
|
4730 CPY #$03
|
|
4735 BCC .6
|
|
4740 LDA NEXTSTATE
|
|
4745 CMP #$03
|
|
4750 BCS .5
|
|
4755 .4 JSR ERASE.OLD.SWTR.Z
|
|
4760 .5 JSR PLOT.NEW.SWTR.Z
|
|
4765 JSR PROTECT.Z
|
|
4770 LDA NEXTSTATE
|
|
4775 STA MANSTATE
|
|
4780 JMP PLOT.MAN
|
|
4785 .6 LDA NEXTSTATE
|
|
4790 CMP #$03
|
|
4795 BCS .4
|
|
4800 BCC .5
|
|
4805 EXT6 STA TEMP1
|
|
4810 AND #$40
|
|
4815 BNE EXT9
|
|
4820 LDA TEMP1
|
|
4825 CMP #$03
|
|
4830 BNE EXT4
|
|
4835 EXT9 LDA TEMP1
|
|
4840 AND #$3F
|
|
4845 CMP #$20
|
|
4850 BCS EXT3
|
|
4855 CMP #$10
|
|
4860 BCC EXT3
|
|
4865 STA BYFOOD
|
|
4870 EXT3 LDA TEMP1
|
|
4875 CMP #$41
|
|
4880 BEQ .2
|
|
4885 .1 JSR ERASE.OLD.SWTR.Z
|
|
4890 LDA NEXTSTATE
|
|
4895 STA MANSTATE
|
|
4900 .2 JSR PLOT.MAN
|
|
4905 JMP PLOT.NEW.SWTR.Z
|
|
4910 EXT5 LDA #$2A
|
|
4915 JSR DELAY.Z
|
|
4920 DEY
|
|
4925 STY PARALYZE
|
|
4930 JSR PLOT.MAN
|
|
4935 JSR PLOT.NEW.SWTR.Z
|
|
4940 LDA PARALYZE
|
|
4945 BNE EXT8
|
|
4950 RTS
|
|
4955 EXT4 AND #$20
|
|
4960 BEQ EXT7
|
|
4965 EXT10 JMP EXT2
|
|
4970 EXT8 AND #$08
|
|
4975 BEQ .14
|
|
4980 LDY #$F0
|
|
4985 STY TEMP1
|
|
4990 LDA #$02
|
|
4995 STA TEMP2
|
|
5000 .2 LDY TEMP1
|
|
5005 LDA $C030
|
|
5010 .1 DEY
|
|
5015 BNE .1
|
|
5020 DEC TEMP2
|
|
5025 BNE .2
|
|
5030 LDA #$A2
|
|
5035 STA $31BC
|
|
5040 LDA #$95
|
|
5045 STA $2DBB
|
|
5050 LDA #$D5
|
|
5055 STA $31BB
|
|
5060 STA $35BB
|
|
5065 .14 LDA #$22
|
|
5070 STA $31BC
|
|
5075 LDA $48
|
|
5080 STA SCRPNT2+1
|
|
5085 RTS
|
|
5090 EXT7 LDA TEMP1
|
|
5095 CMP #$01
|
|
5100 BNE .10
|
|
5105 RTS
|
|
5110 .10 LDA TEMP1
|
|
5115 BMI EXT10
|
|
5120 .15 CMP #$10
|
|
5125 BCS .19
|
|
5130 JSR ERASE.OLD.SWTR.Z
|
|
5135 LDA #$60
|
|
5140 JMP STING.MAN.Z
|
|
5145 .19 STA BYFOOD
|
|
5150 JMP EXT3
|
|
5155 TABLE11 .HS 00424242424242434343434343
|
|
5160 TABLE12 .HS 00406080A0C0E00020406080A0
|
|
5165 TABLE13 .HS 80838FBF81879F
|
|
5170 TABLE14 .HS 07050301060402
|
|
5175 TABLE15 .HS FEF8E080FCF0C0
|
|
5180 TABLE16 .HS 9FFCF3CFBFF9E7
|
|
5185 TABLE17 .HS 40020820000410
|
|
5190 TABLE18 .HS F9E79FFCF3CFFE
|
|
5195 TABLE19 .HS 02082001041000
|
|
5200 TABLE20 .HS 2A282000545040
|
|
5205 TABLE21 .HS 00020A2A010515
|
|
5210 TABLE22 .HS 555555552A2A2A
|
|
5215 GRAB.FOOD.SOUND
|
|
5220 LDY #$D0
|
|
5225 G1 STY TEMP1
|
|
5230 .1 LDY TEMP1
|
|
5235 LDA $C030
|
|
5240 .2 DEY
|
|
5245 BNE .2
|
|
5250 DEC TEMP1
|
|
5255 DEC TEMP1
|
|
5260 BNE .1
|
|
5265 LDA #$01
|
|
5270 STA GRAB.SQUELCH
|
|
5275 RTS
|
|
5280 FOOTSTEP.SOUND
|
|
5285 LDA #$FF
|
|
5290 STA TEMP1
|
|
5295 LDA #$02
|
|
5300 STA TEMP2
|
|
5305 .1 LDY TEMP1
|
|
5310 LDA $C030
|
|
5315 .2 DEY
|
|
5320 BNE .2
|
|
5325 DEC TEMP2
|
|
5330 BNE .1
|
|
5335 RTS
|
|
5340 SWTR.SOUND
|
|
5345 LDA $460D
|
|
5350 CMP #$09
|
|
5355 BNE .1
|
|
5360 RTS
|
|
5365 .1 LDY #$80
|
|
5370 .LI ON
|
|
5375 JMP G1
|
|
5380 .LI OFF
|