pingpangqiu.rar_pingpangqiu_乒乓球_乒乓球 汇编 程序

乒乓球比赛模拟机程序 请指点哦 org 0000h ljmp start start:mov r1,#00h ;记录甲的得分 mov r2,#00h ;记录乙的得分 mov r3,#00h ;记录发球次数 clr p1.0 clr p1.3 setb p1.1 setb p1.2 clr p1.4 clr p1.5 clr p3.4 setb p3.3 setb p3.5 setb p3.6 setb p3.0 setb p3.1 setb p3.2 mov dptr,#table ;使三个数码管均显示0 mov a,r3 movc a,@a+dptr mov p2,a clr p3.0 clr p3.1 clr p3.2 jfq: cjne r3,#05h,j1 ;判断发球权 ljmp next4 j1: cjne r3,#06h,j2 ljmp next4 j2: cjne r3,#07h,j3 ljmp next4 j3: cjne r3,#08h,j4 ljmp next4 j4: cjne r3,#09h,jixu ljmp next4 jixu: clr p3.4 ;甲发球二极管亮， p3.3所接二极管亮 setb p3.3 jb p0.1,$ ;等待甲发球 lcall delay1 jb p0.1,$ clr p3.6 ;发球允许二极管灭，此间发球无效 inc r3 ;发球次数加一 setb p3.2 ; 显示发球次数 mov dptr,#tabel3 mov a,r3 movc a,@a+dptr mov p2,a clr p3.2 mov a,#00h setb c clr p1.0 d7: setb p1.3 ;使74ls194实现右移 clr p1.1 setb p1.2 d3: jnb p1.7,d2 ;检测低电平 sjmp d3 d2: mov p1.0,c ;向p1.0写数据 rrc a jnb p1.7,$ ;等待上升沿 jnb p0.0,xd ;按键消抖 xd: lcall delay1 sjmp ymj jnb p0.0,an11 ;若乙接球，转向an1判断接球时机是否正确 ymj: jb p1.5,xian11 ;若乙没接球，则转向xian1，甲得分并显示 ljmp d7 an11: ljmp an1 xian11: ljmp xian1 next2: mov a,#00h ;乙接球子程序 clr c clr p1.0 d88: setb p1.3 ;使74ls194实现左移 setb p1.1 clr p1.2 d44: jnb p1.7,d55 ;检测低电平 sjmp d44 d55: mov p1.0,c ;向p1.0写数据 rrc a jnb p1.7,$ ;等待上升沿 jnb p0.1,xd11 ;按键消抖 sjmp jmj1 xd11: lcall delay1 jnb p0.1,an2 ;若甲接球，转向an2判断接球时机是否正确 jmj1: jb p1.4,xian22 ;若甲没接球，则转向xian2，乙得分并显示 ljmp d88 xian22:ljmp xian2 next3:mov a,#00h ;甲接球子程序 clr c clr p1.0 d77: setb p1.3 ;使74ls194实现右移 clr p1.1 setb p1.2 d33: jnb p1.7,d22 ;检测低电平 sjmp d33 d22: mov p1.0,c ;向p1.0写数据 rrc a jnb p1.7,$ ;等待上升沿 jnb p0.0,xd2 ;按键消抖 sjmp ymj2 xd2: lcall delay1 jnb p0.0,an1 ;若乙接球，转向an1判断接球时机是否正确 ymj2: jb p1.5,xian1 ;若乙没接球，则转向xian1，甲得分并显示 ljmp d77 next4:setb p1.3 ;乙发球程序 clr p3.3 ;乙发球权二极管点亮，表明乙具有发球权 setb p3.4 jb p0.0,$ ;等待乙发球 lcall delay1 jb p0.0,$ clr p3.6 ;发球允许二极管灭，此间发球无效 inc r3 ;发球次数加一 setb p3.2 ; 显示发球次数 mov dptr,#tabel3 mov a,r3 movc a,@a+dptr mov p2,a clr p3.2 mov a,#00h setb c clr p1.0 d8: setb p1.3 ; 实现74ls194左移 setb p1.1 clr p1.2 d4: jnb p1.7,d5 ;检测低电平 sjmp d4 d5: mov p1.0,c ;向p1.0写数据 rrc a jnb p1.7,$ ;等待上升沿 jnb p0.1,xd1 ;按键消抖 sjmp jmj2 xd1: lcall delay1 jnb p0.1,an2 ;若甲接球，转向an2判断接球时机是否正确 jmj2: jb p1.4,xian2 ;若甲没接住球，则转向xian2，乙得分并显示 ljmp d8 an1: jb p1.5,next22 ;判断乙接球时机是否正确的子程序 ljmp xian1 next22: ljmp next2 an2: jb p1.4,next3 ;判断甲接球时机是否正确的子程序 ljmp xian2 xian1: inc r1 ;甲得分显示程序 clr p1.3 ;使74ls194置零 mov dptr,#table ;显示得分 setb p3.0 mov a,r1 movc a,@a+dptr mov p2,a clr p3.0 clr p3.5 lcall delay2 ;延时三秒 setb p3.5 setb p3.6 cjne r1,#09h,st ;判断一局有没有结束 ljmp start xian2:inc r2 ;乙得分显示子程序 clr p1.3 ;使74ls194置零 mov dptr,#table ;显示得分 setb p3.1 mov a,42 movc a,@a+dptr mov p2,a clr p3.1 clr p3.5 lcall delay2 ;延时三秒 setb p3.5 setb p3.6 cjne r2,#09h,st ;判断一局有没有结束 ljmp start st:ljmp jfq delay1:mov r4,#0ah ;按键消抖延时子程序 del0: mov r5,#0fah del1: djnz r5,del1 djnz r4,del0 ret delay2:mov r4,#15 del2:mov r5,#200 del3:mov r6,#250 del4:djnz r6,del4 djnz r5,del3 djnz r4,del2 ret table:db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h tabel3:db 0c0h,0f9h,0a4h,0b0h,99h,92h,0f9h,0a4h,0b0h,99h,92h db 0f9h,0a4h,0b0h,99h,92h,0f9h,0a4h end