100 LDA 110 A1F 120 AZE 130 JMP A1A 140 LDA 150 A3H /HORIZONTAL POSTION 160 ROR 3 170 BCL I 180 7000 190 ADA I 200 -4 210 STA 220 3 230 STA 240 4 250 ADA I 260 10 270 STC 7 280 ADD A3V 290 ROR 3 300 BCL I 310 7000 320 ADA I 330 -4 340 STA 350 5 360 SET I 6 370 -10 380 DIS 4 390 DIS 7 400 ADD A1Z 410 XSK I 6 420 JMP .-4 430 SET I 6 440 -10 450 A7Q, LDA 460 5 470 DIS 3 480 ADA I 490 10 500 DIS 3 510 LDA I 520 1 530 ADM 540 3 550 XSK I 6 560 JMP A7Q 570 JMP A1A /TO BEGINNING OF DISPLAY LOOP 580 EJECT 590 / DISPLAY PADDLE SUBROUTINE 600 610 A7P, SET 17 620 0 630 LDA 640 2 650 ADA I 660 -20 670 SET I 2 680 -20 690 DIS 3 700 ADA I 710 2 720 XSK I 2 730 JMP .-4 740 JMP 17 750 760 / INTERRUPT ROUTINE 770 780 A1I, SET 16 790 0 800 STC A1X 810 ADD A1Z 820 ADM 830 A2C 840 AZE 850 JMP A1J 860 LDA I 870 -1000 880 STC A2C 890 A6A, SNS 5 /LAP6 900 JMP .+6 910 SET I 15 920 RCG 930 SET I 16 940 7300 950 JMP 15 960 EJECT 970 ADD A1F 980 AZE I 990 SNS 4 /NEW GAME 1000 JMP A1K 1010 ADD A2S 1020 COM 1030 ADD A1S 1040 SCR 13 1050 STC A9H 1060 LDA I 1070 10 1080 STC A2V 1090 ADD A9H 1100 BCO I 1110 -20 1120 STC A2H 1130 STC A1S 1140 STC A2S 1150 ADD A1W 1160 STA 1170 A2F 1180 STC A1F 1190 / STC A1F /**** DELETED **** 1200 A1K, SAM 0 1210 SCR 2 1220 ADA I 1230 -42 /**** WAS -24 **** 1240 STC A2E 1250 A1J, LDA I 1260 1 1270 ADM 1280 A2F 1290 AZE I 1300 JMP A1N 1310 A1D, LDA I /EXIT 1320 A1X, 0 1330 ENI 1340 JMP 16 1350 EJECT 1360 A1N, ADD A2E 1370 STC A2F 1380 ADD A1F 1390 AZE 1400 JMP A3S /NO BALL, WE HAVE WAITED, SO SERVE 1410 ADD A2V 1420 ADM /MOVE BALL 1430 A3V 1440 FLO I /TEST BOUNCE 1450 JMP A6B 1460 A6C, LDA 1470 A2H 1480 ADM 1490 A3H 1500 ROR 3 1510 BCL I 1520 7000 1530 ADA I /TEST FOR PADDLE LINES 1540 -400 1550 APO 1560 COM 1570 ADA I 1580 -350 1590 APO I 1600 COM /NEGATIVE DISTANCE FROM PADDLE LINE 1610 ADD A9V 1620 AZE /COMPARE TOLERANCE 1630 APO I 1640 JMP A1V /JUMP + TST IF NEAR VERTICALLY 1650 LDA 1660 A9H /SEE IF A MISS 1670 AZE 1680 JMP A1D /EXIT IF NOT 1690 LDA 1700 A3H 1710 SCR 13 1720 SAE 1730 A9H /COMPARE TO MISS SIDE 1740 JSR A1H /SCORE AND SETUP SERVE 1750 A3P, JMP A1D 1760 EJECT 1770 / CHECK FOR A HIT 1780 1790 A1V, LDA 1800 A3H 1810 APO I /GET PADDLE HEIGHT 1820 JMP .+4 1830 LDA 1840 A2P 1850 JMP .+3 /**** SHOULD THIS CHANGE? **** 1860 1870 LDA 1880 A1P 1890 ROL 3 1900 SCR 3 1910 COM 1920 STC 10 1930 LDA 1940 A3V 1950 AZE I 1960 CLR 1970 SCR 3 1980 / BCL I 1990 / 7000 2000 ADD 10 2010 APO 2020 COM 2030 ADA I 2040 -30 /WAS -24 2050 APO I 2060 JMP A1M /A MISS 2070 ADA I /TEST FOR EDGE HIT 2080 7 /WAS 6 2090 APO I 2100 JMP A5E /EDGE HIT 2110 A6E, LDA 2120 A2H 2130 COM 2140 STA 2150 A2H 2160 ROL 1 2170 ADM 2180 A3H 2190 / STC A2H /BOUNCE 2200 JMP A1D 2210 EJECT 2220 / SCORE POINT 2230 2240 A1H, LDA I 2250 A1W, -3400 /WAIT 2260 STC A2F 2270 ADD A9H 2280 APO 2290 JMP .+6 2300 LDA I 2310 1 2320 ADM 2330 A1S 2340 JMP .+5 2350 2360 LDA I 2370 1 2380 ADM 2390 A2S 2400 / STA 2410 / A9H 2420 STC A1F /TURN OFF BALL 2430 JMP A1D 2440 2450 / HE MISSED 2460 2470 A1M, LDA 2480 A3H 2490 COM 2500 SCR 13 2510 STC A9H 2520 JMP A1D 2530 2540 / EDGE HIT PADDLE 2550 2560 A5E, LDA 2570 A3V 2580 SCR 3 /WAS ROR 3 2590 / BCL I 2600 / 7000 2610 ADD 10 2620 SCR 13 /WAS SCR 11 2630 STC A5F 2640 ADD A2H 2650 APO 2660 COM 2670 BCO I 2680 A5F, 0 2690 MUL I 2700 3 2710 SCR 3 2720 ADM 2730 A2V 2740 JSR A1C 2750 JMP A6E 2760 EJECT