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....)3=GQ[eo