1800 ;--------------------›1810 ;MACHINE CODE LIBRARY›1820 ;by Steve Williamson›1830 ;FOR PAGE 6›1840 ;____________________›1850 ;#3.2 - MOVE PLAYERS ›1860 ;____________________›1870 .OPT OBJ›1880 *= 36221›1890 STICK0 = 632›1900 SETPM = 36000›1910 PMLOAD = SETPM+76›1920 ;›1930 MOVE LDA STICK0›1940 CMP #15›1950 BEQ EXIT1›1960 JSR CHECKSTICK›1970 EXIT1 RTS ›1980 CHECKSTICK›1990 UP CMP #14›2000 BNE DOWN›2010 LDA FLAG0›2020 CMP #1›2030 BNE U1›2040 DEC VP0›2050 U1 LDA FLAG1›2060 CMP #1›2070 BNE U2›2080 DEC VP1›2090 U2 LDA FLAG2›2100 CMP #1›2110 BNE U3›2120 DEC VP2›2130 U3 LDA FLAG3›2140 CMP #1›2150 BNE U4›2160 DEC VP3›2170 U4 JSR DELAY›2180 JSR LOAD›2190 RTS ›2200 DOWN CMP #13›2210 BNE LEFT›2220 LDA FLAG0›2230 CMP #1›2240 BNE D1›2250 INC VP0›2260 D1 LDA FLAG1›2270 CMP #1›2280 BNE D2›2290 INC VP1›2300 D2 LDA FLAG2›2310 CMP #1›2320 BNE D3›2330 INC VP2›2340 D3 LDA FLAG3›2350 CMP #1›2360 BNE D4›2370 INC VP3›2380 D4 JSR DELAY›2390 JSR LOAD›2400 RTS ›2410 LEFT CMP #11›2420 BNE RIGHT›2430 LDA FLAG0›2440 CMP #1›2450 BNE LF1›2460 DEC HP0›2470 LF1 LDA FLAG1›2480 CMP #1›2490 BNE LF2›2500 DEC HP1›2510 LF2 LDA FLAG2›2520 CMP #1›2530 BNE LF3›2540 DEC HP2›2550 LF3 LDA FLAG3›2560 CMP #1›2570 BNE LF4›2580 DEC HP3›2590 LF4 JSR DELAY›2600 JSR LOAD›2610 RTS ›2620 RIGHT CMP #7›2630 BNE DIAG1›2640 LDA FLAG0›2650 CMP #1›2660 BNE R1›2670 INC HP0›2680 R1 CMP #1›2690 BNE R2›2700 INC HP1›2710 R2 LDA FLAG2›2720 CMP #1›2730 BNE R3›2740 INC HP2›2750 R3 LDA FLAG3›2760 CMP #1›2770 BNE R4›2780 INC HP3›2790 R4 JSR DELAY›2800 JSR LOAD›2810 RTS ›2820 DIAG1 CMP #10›2830 BNE DIAG2›2840 LDA FLAG0›2850 CMP #1›2860 BNE D1.1›2870 DEC HP0›2880 DEC VP0›2890 D1.1 LDA FLAG1›2900 CMP #1›2910 BNE D1.2›2920 DEC HP1›2930 DEC VP1›2940 D1.2 LDA FLAG2›2950 CMP #1›2960 BNE D1.3›2970 DEC HP2›2980 DEC VP2›2990 D1.3 LDA FLAG3›3000 CMP #1›3010 BNE D1.4›3020 DEC HP3›3030 DEC VP3›3040 D1.4 JSR DELAY›3050 JSR LOAD›3060 RTS ›3070 DIAG2 CMP #6›3080 BNE DIAG3›3090 LDA FLAG0›3100 CMP #1›3110 BNE D2.1›3120 INC HP0›3130 DEC VP0›3140 D2.1 LDA FLAG1›3150 CMP #1›3160 BNE D2.2›3170 DEC VP1›3180 INC HP1›3190 D2.2 LDA FLAG2›3200 CMP #1›3210 BNE D2.3›3220 DEC VP2›3230 INC HP2›3240 D2.3 LDA FLAG3›3250 CMP #1›3260 BNE D2.4›3270 DEC VP3›3280 INC HP3›3290 D2.4 JSR DELAY›3300 JSR LOAD›3310 RTS ›3320 DIAG3 CMP #5›3330 BNE DIAG4›3340 LDA FLAG0›3350 CMP #1›3360 BNE D3.1›3370 INC VP0›3380 INC HP0›3390 D3.1 LDA FLAG1›3400 CMP #1›3410 BNE D3.2›3420 INC VP1›3430 INC HP1›3440 D3.2 LDA FLAG2›3450 CMP #1›3460 BNE D3.3›3470 INC VP2›3480 INC HP2›3490 D3.3 LDA FLAG3›3500 CMP #1›3510 BNE D3.4›3520 INC VP3›3530 INC HP3›3540 D3.4 JSR DELAY›3550 JSR LOAD›3560 RTS ›3570 DIAG4 CMP #9›3580 BNE EXIT2›3590 LDA FLAG0›3600 CMP #1›3610 BNE D4.1›3620 DEC HP0›3630 INC VP0›3640 D4.1 LDA FLAG1›3650 CMP #1›3660 BNE D4.2›3670 DEC HP1›3680 INC VP1›3690 D4.2 LDA FLAG2›3700 CMP #1›3710 BNE D4.3›3720 DEC HP2›3730 INC VP2›3740 D4.3 LDA FLAG3›3750 CMP #1›3760 BNE D4.4›3770 DEC HP3›3780 INC VP3›3790 D4.4 JSR DELAY›3800 JSR LOAD›3810 EXIT2 RTS ›3820 DELAY LDY #100›3830 L7 LDX #25›3840 L8 DEX ›3850 BNE L8›3860 DEY ›3870 BNE L7›3880 RTS ›ÿ '1;EOYcmw‹•Ÿ©³½ÇÑÛåïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ