汇编俄罗斯方块8.8点阵

.纯为个人思路,无特殊,惊人语句….初学完的;程序功能：最原始简单版俄罗斯方块;硬件连接：接双色点阵;晶振型号：12M;单片机：STC89C52;编写时间：;编程人：HANGBITP2.0;点阵行输入HWBITP2.1HZBITP2.2LIEBITP2.3;点阵列输入LWBITP2.4LZBITP2.5WEIBITP2.6DUANBITP2.7XIANEQUP1BiaoXBIT20H.0Biao_zBIT20H.1;按键是否按下标志Biao_yBIT20H.2Biao_xBIT20H.3Dou_zBIT20H.4;按键相应标志位Ying_zBIT20H.5.Dou_yBIT20H.6Ying_yBIT20H.7Dou_xBIT21H.0Ying_xBIT21H.1Biao_ZYBIT21H.2Biao_ztBIT21H.3;开始、暂停标志KEY_zBITP0.0;左、右、旋转按键KEY_yBITP0.1KEY_xBITP0.2ORG0000HAJMPStartORG0003HAJMPInt0_serORG000BHAJMPT0_serORG0030H;*************************Start:MOVR0,#08HMOVR1,#51HMOVR3,#03HMOVR4,#08H.//MOV46H,#99MOV40H,#03HMOV30H,#0FEHMOV33H,#0FEHMOV37H,#80HMOVTMOD,#01HMOVTH0,#(65536-10000)/256MOVTL0,#(65536-10000)MOD256SETBEASETBEX0SETBET0SETBIT0SETBTR0;*****************************Main:CALLZhanting;暂停响应CALLXianshi;点阵显示CALLCMkey_z;左移按键CALLCMkey_y;右移按键CALLCMkey_x;旋转按键CALLPanduan_z;判断是否可以左移CALLPanduan_y;判断是否可以右移.CALLPanduan_x;判断是否可以旋转CALLPanduan_xia;判断是否可以下移CALLPanduan_xh;判断消行CALLSaomiao_xh;扫描消行CALLJifen;计算分值CALLJifenXianshi;分值显示ORLPCON,#01HAJMPMain;*****************************Zhanting:JBBiao_zt,Out_zt;判断是否暂停Zhanti:MOVA,37H;显示STARTRLCAMOV37H,AMOVLIE,CCLRLWSETBLWDJNZR0,ZhantiMOVR0,#08HCLRLZSETBLZ.MOV A,37HRLC ARR AMOV 37H,AZhan:SETB HANGCLR HWSETB HWDJNZ R0,ZhanMOV R0,#08HMOVA,38HINC38HMOVDPTR,#TABZMOVCA,@A+DPTRMOV39H,AZhant:MOVA,39HRLCAMOV39H,AMOVHANG,C.CLR

HWSETB

HWDJNZ

R0,ZhantMOV

R0,#08HCLRSETBCALLCALL

HZHZDelayDelayQing:SETBCLRSETBDJNZMOV

HANGHWHWR0,QingR0,#08HQing1:SETBCLRSETBDJNZMOV

HANGHWHWR0,Qing1R0,#08HCLR

HZSETB

HZ.DJNZR4,ZhantiMOVR4,#08HCLRCYMOVA,38HSUBBA,#08HMOV38H,A//MOV38H,#00HMOVA,44HMOV34H,#00HCJNEA,#10,ZhantingINC38HMOV44H,#00HMOVA,38HCJNEA,#31,ZhantingMOV38H,#00HAJMPZhantingOut_zt:RET;*****************************谢谢阅读Xianshi: ;移动积木显示SETB HANG.CLRSETBDJNZMOV

HWHWR0,XianshiR0,#08HLoop:MOV

A,30HRLC

AMOVMOV

30H,AHANG,CCLRSETBDJNZMOV

HWHWR0,LoopR0,#08HCLRSETB

HZHZMOV

A,30HRLCRL

AAMOV

30H,ACALL XingzMOV A,31H.INC 31HMOVCA,@A+DPTRMOV 32H,ACALL HengyiLoop1:MOV A,32HRLC AMOV 32H,AMOV LIE,CCLR LWSETB LWDJNZ R0,Loop1MOV R0,#08HCLR LZSETB LZCALL DelayCALL QingpingBeijing: ;背景显示SETB HANGCLR HWSETB HW.DJNZMOV

R0,BeijingR0,#08HLoop3:MOV

A,33HRLC

AMOVMOV

33H,AHANG,CCLRSETBDJNZMOV

HWHWR0,Loop3R0,#08HCLRSETB

HZHZMOV

A,33HRLCRL

AAMOV

33H,AMOV A,@R1MOV 50H,ALoop2:MOV A,50H.RLC

AMOVMOV

50H,ALIE,CCLRSETBDJNZMOV

LWLWR0,Loop2R0,#08HINCCLRSETBCALLCALLCJNEMOVMOV

R1LZLZDelayQingpingR1,#59H,Xianshi0R1,#51H31H,#00HRETXianshi0:AJMP

Xianshi;************

确认显示形状Xingz:MOVCJNE

A,40HA,#0,S1.MOV DPTR,#TAB0RETS1:CJNE A,#1,S2CALL Xuanz1RETS2:CJNE A,#2,S3CALL Xuanz2RETS3:CJNE A,#3,S4CALL Xuanz3RETS4:CJNE A,#4,S5CALL Xuanz4RETS5:CJNE A,#5,S6CALL Xuanz5RETS6:CALL Xuanz6RETXuanz1:MOV A,41HCJNE A,#0,Xu1.MOV DPTR,#TAB1RETXu1:CJNE A,#2,Zhuan1MOV DPTR,#TAB1RETZhuan1:MOV DPTR,#TAB1_1RETXuanz2:MOV A,41HCJNE A,#0,Zhuan2_1MOV DPTR,#TAB2RETZhuan2_1:CJNE A,#1,Zhuan2_2MOV DPTR,#TAB2_1RETZhuan2_2:CJNE A,#2,Zhuan2_3MOV DPTR,#TAB2_2RETZhuan2_3:.MOV

DPTR,#TAB2_3RETXuanz3:MOVCJNEMOV

A,41HA,#0,Zhuan3_1DPTR,#TAB3RETZhuan3_1:CJNEMOV

A,#1,Zhuan3_2DPTR,#TAB3_1RETZhuan3_2:CJNEMOV

A,#2,Zhuan3_3DPTR,#TAB3_2RETZhuan3_3:MOV

DPTR,#TAB3_3RETXuanz4:MOVCJNEMOV

A,41HA,#0,Zhuan4_1DPTR,#TAB4.RETZhuan4_1:CJNE A,#1,Zhuan4_2MOV DPTR,#TAB4_1RETZhuan4_2:CJNE A,#2,Zhuan4_3MOV DPTR,#TAB4_2RETZhuan4_3:MOV DPTR,#TAB4_3RETXuanz5:MOV A,41HCJNE A,#0,Zhuan5_1MOV DPTR,#TAB5RETZhuan5_1:CJNE A,#2,Zhuan5_2MOV DPTR,#TAB5RETZhuan5_2:.MOV

DPTR,#TAB5_1RETXuanz6:MOVCJNEMOV

A,41HA,#0,Zhuan6_1DPTR,#TAB6RETZhuan6_1:CJNEMOV

A,#2,Zhuan6_2DPTR,#TAB6RETZhuan6_2:MOV

DPTR,#TAB6_1RET;************

确认左右移动Hengyi:CJNE

R3,#03H,H1RETH1:MOV

A,32HRLCJNEAJMP

AR3,#02H,H2OUT1.H2:RLCJNEAJMPH3:RLCJNEAJMPH4:MOV

AR3,#01H,H3OUT1AR3,#00H,H4OUT1A,32HRRCJNEAJMPH5:RRCJNEAJMPH6:RRCJNEAJMPH7:RR

AR3,#04H,H5OUT1AR3,#05H,H6OUT1AR3,#06H,H7OUT1AOUT1:MOV

32H,ARET;*****************************左移按键谢谢阅读CMkey_z:.JBJBSETB

KEY_z,Loopz0Dou_z,Loopz2Dou_zRETLoopz2:INCJBSETBSETB

42HYing_z,OutzYing_zBiao_zRETLoopz0:CLRCLR

Dou_zYing_zOutz:RET;***************************** 右移按键精品文档放心下载CMkey_y:JBJBSETB

KEY_y,Loopy0Dou_y,Loopy2Dou_yRETLoopy2:.INCJBSETBSETB

42HYing_y,OutyYing_yBiao_yRETLoopy0:CLRCLR

Dou_yYing_yOuty:RET;***************************** 旋转按键谢谢阅读CMkey_x:JBJBSETB

KEY_x,Loopx0Dou_x,Loopx2Dou_xRETLoopx2:INCJBSETBSETB

42HYing_x,OutxYing_xBiao_xRET.Loopx0:CLR Dou_xCLR Ying_xOutx:RET;*****************************左移防冲突谢谢阅读Panduan_z:JBC

Biao_z,ZuoyiRETZuoyi:SETBCALLMOVJBCALLMOVJBCALLMOVJBMOV

Biao_ZYHangyiA,36HACC.7,YesZuoHangerA,36HACC.7,YesZuoHangsanA,36HACC.7,YesZuo45H,R3

;已到边上，不用移动DEC

R3.MOVCJNEAJMP

A,35HA,#0,Zuo_0YesZuo

;防移动冲突背景Zuo_0:CJNEAJMP

A,#1,Zuo_1YesZuoZuo_1:CJNECALLAJMP

A,#2,Zuo_2Xuan_1YesZuoZuo_2:CJNECALLAJMP

A,#3,Zuo_3Xuan_2YesZuoZuo_3:CJNECALLAJMP

A,#4,Zuo_4Xuan_3YesZuoZuo_4:CJNECALLAJMP

A,#5,Zuo_5Xuan_4YesZuo.Zuo_5:CALL Xuan_5YesZuo:RET;*****************************谢谢阅读Panduan_y:JBC Biao_y,YouyiRETYouyi:SETB Biao_ZYCALL HangyiMOV A,36HJB ACC.0,YesyouCALL HangerMOV A,36HJB ACC.0,YesyouCALL HangsiMOV A,36HJB ACC.0,YesyouMOV 45H,R3INC R3MOV A,35H

右移防冲突;已到边上.CJNEAJMP

A,#0,You_0Yesyou

;防右移冲突背景You_0:CJNEAJMP

A,#1,You_1YesyouYou_1:CJNECALLAJMP

A,#2,You_2Xuan_1YesyouYou_2:CJNECALLAJMP

A,#3,You_3Xuan_2YesyouYou_3:CJNECALLAJMP

A,#4,You_4Xuan_3YesyouYou_4:CJNECALLAJMP

A,#5,You_5Xuan_4YesyouYou_5:.CALL Xuan_5Yesyou:RET;***************************** 旋转防冲突谢谢阅读Panduan_x:JBC Biao_x,XuanzhuanRETXuanzhuan: ;方形不用旋转MOV A,40HCJNE A,#0,BieRETBie:MOVA,35HCJNEA,#0,PanyiRETPanyi:MOV43H,41HINC41HMOVA,40HCJNEA,#1,NoyiMOVA,35HCJNEA,#1,Xuanyi.MOV

41H,43HRETXuanyi:MOVCJNEAJMP

A,41HA,#1,Yi_1Yi_h

;一字型防出边界Yi_1:CJNEAJMP

A,#3,Yi_sYi_hYi_s:

;一字型防冲突背景CALLMOVANLCJNE

HangyiA,36HA,#83HA,#0,NoxuanYi_h:MOVCJNECALLCALL

A,35HA,#2,Yi_h2Xuan_1YesxuanRETYi_h2:MOV

A,35H.CJNE A,#3,Yi_h3CALL Xuan_2CALL YesxuanRETYi_h3:MOV A,35HCJNE A,#4,Yi_h4CALL Xuan_3CALL YesxuanRETYi_h4:MOV A,35HCJNE A,#5,Yi_h5CALL Xuan_4CALL HangsiMOV A,36HANL A,54HCJNE A,#0,NoxuanCALL YesxuanRETYi_h5:CALL Xuan_5.CALLMOVANLCJNECALL

HangsiA,36HA,55HA,#0,NoxuanYesxuanRETNoyi:

;另外五种变形防出边界冲突背景CALLMOVCJNECALL

YouchuA,35HA,#1,Xuanzh1YesxuanRETXuanzh1:

;防冲突背景CJNECALLCALL

A,#2,Xuanzh2Xuan_1YesxuanRETXuanzh2:CJNECALLCALL

A,#3,Xuanzh3Xuan_2YesxuanRET.Xuanzh3:CJNE A,#4,Xuanzh4CALL Xuan_3CALL YesxuanRETXuanzh4:CJNE A,#5,Xuanzh5CALL Xuan_4CALL YesxuanRETXuanzh5:CALL Xuan_5Yesxuan:MOV A,41HCJNE A,#4,OutqMOV 41H,#00HOutq:RETNoxuan:MOV 41H,43HRET.Youchu:;防右出边界子程序CALLHangyiMOVA,36HJBACC.0,NoxuanCALLHangerMOVA,36HJBACC.0,NoxuanCALLHangsanMOVA,36HJBACC.0,NoxuanRETXuan_1:;防冲突子程序CALLHangyiMOVA,36HANLA,54HCJNEA,#0,No_zyxRETXuan_2:CALLHangyiMOVA,36HANLA,55H.CJNECALLMOVANLCJNE

A,#0,No_zyxHangerA,36HA,54HA,#0,No_zyxRETXuan_3:CALLMOVANLCJNECALLMOVANLCJNECALLMOVANLCJNE

HangyiA,36HA,56HA,#0,No_zyxHangerA,36HA,55HA,#0,No_zyxHangerA,36HA,54HA,#0,No_zyxRETXuan_4:CALL

Hangyi.MOVANLCJNECALLMOVANLCJNECALLMOVANLCJNE

A,36HA,57HA,#0,No_zyxHangerA,36HA,56HA,#0,No_zyxHangerA,36HA,55HA,#0,No_zyxRETXuan_5:CALLMOVANLCJNECALLMOVANLCJNECALL

HangyiA,36HA,58HA,#0,No_zyxHangerA,36HA,57HA,#0,No_zyxHanger.MOVANLCJNE

A,36HA,56HA,#0,No_zyxRETNo_zyx:JBC

Biao_ZY,No_zNo_x:AJMP

Noxuan

;旋转冲突背景No_z:MOV

R3,45H

;左、右冲突背景RET;*****************************一秒下移子程序感谢阅读Panduan_xia:MOVA,34HCJNEA,#100,Out_xMOV34H,#00HMOVA,30HRLAMOV30H,AINC35HOut_x:RET.;*****************************判断是否可下移谢谢阅读Panduan_xh:MOV A,35HCJNE A,#00H,X1RETX1:CJNE A,#01H,X2CALL XH1RETX2:CJNE A,#02H,X3CALL XH2RETX3:CJNE A,#03H,X4CALL XH3RETX4:CJNE A,#04H,X5CALL XH4RETX5:CJNE A,#05,X6CALL XH5RETX6:CALL XH6RET.;************XH1:CALLMOVANLCJNE

HangyiA,36HA,54HA,#0,WanRETXH2:CALLMOVANLCJNECALLMOVANLCJNE

HangyiA,36HA,55HA,#0,WanHangerA,36HA,54HA,#0,WanRETWan:

;游戏结束AJMP

$XH3:

;防下移冲突背景子程序CALLMOV

HangyiA,36H.ANLA,56HCJNEA,#0,Noxia3CALLHangerMOVA,36HANLA,55HCJNEA,#0,Noxia3CALLHangsanMOVA,36HANLA,54HCJNEA,#0,WanRETNoxia3:CALLHangsanMOVA,36HCJNEA,#0,WanCALLHangyiMOVA,36HORLA,55HMOV55H,ACALLHangerMOVA,36HORLA,54H.MOVCALL

54H,ASMHang;扫描行RETXH4:CALLMOVANLCJNECALLMOVANLCJNECALLMOVANLCJNE

HangyiA,36HA,57HA,#0,Noxia4HangerA,36HA,56HA,#0,Noxia4HangsanA,36HA,55HA,#0,Noxia4RETNoxia4:CALLMOVCJNECALL

HangsiA,36HA,#0,WanHangyi.MOVA,36HORLA,56HMOV56H,ACALLHangerMOVA,36HORLA,55HMOV55H,ACALLHangsanMOVA,36HORLA,54HMOV54H,ACALLSMHang;扫描行RETXH5:CALLHangyiMOVA,36HANLA,58HCJNEA,#0,Noxia5CALLHangerMOVA,36HANLA,57HCJNEA,#0,Noxia5.CALLHangsanMOVA,36HANLA,56HCJNEA,#0,Noxia5RETNoxia5:CALLHangyiMOVA,36HORLA,57HMOV57H,ACALLHangerMOVA,36HORLA,56HMOV56H,ACALLHangsanMOVA,36HORLA,55HMOV55H,ACALLHangsiMOVA,36HORLA,54HMOV54H,A.CALLSMHang;扫描行RETXH6:CALLHangyiMOVA,36HORLA,58HMOV58H,ACALLHangerMOVA,36HORLA,57HMOV57H,ACALLHangsanMOVA,36HORLA,56HMOV56H,ACALLHangsiMOVA,36HORLA,55HMOV55H,ACALLSMHang;扫描行RET.SMHang:SETB BiaoXMOV 30H,#0FEHMOV 31H,#00HMOV 34H,#00HMOV 35H,#00HRET;************Hangyi:CALL XingzMOV A,#01HMOVCA,@A+DPTRMOV 32H,ACALL HengyiMOV 36H,32HRETHanger:CALL XingzMOV A,#00HMOVCA,@A+DPTRMOV 32H,ACALL Hengyi

;积木停止，出新积木.MOV

36H,32HRETHangsan:CALLMOVMOVCMOVCALLMOV

XingzA,#07HA,@A+DPTR32H,AHengyi36H,32HRETHangsi:CALLMOVMOVCMOVCALLMOV

XingzA,#06HA,@A+DPTR32H,AHengyi36H,32HRET;*****************************扫描是否消行谢谢阅读Saomiao_xh:JBC BiaoX,SaomiaoRET.Saomiao:MOV41H,#00H;消行MOVR3,#03HMOVA,42HMOVB,#07HDIVABMOV40H,BMOVA,54HCJNEA,#0FFH,Sao1MOV54H,#00HINCR5Sao1:MOVA,55HCJNEA,#0FFH,Sao2MOV55H,54HMOV54H,#00HINCR5Sao2:MOVA,56HCJNEA,#0FFH,Sao3MOV56H,55HMOV55H,54H.MOV54H,#00HINCR5Sao3:MOVA,57HCJNEA,#0FFH,Sao4MOV57H,56HMOV56H,55HMOV55H,54HMOV54H,#00HINCR5Sao4:MOVA,58HCJNEA,#0FFH,Sao5MOV58H,57HMOV57H,56HMOV56H,55HMOV55H,54HMOV54H,#00HINCR5Sao5:RET;*****************************消行记分感谢阅读.Jifen:CJNE R5,#0,Jia1RETJia1:MOV A,R5MOV R5,#00HCJNE A,#1,Jia2INC 46HRETJia2:CJNE A,#2,Jia3MOV A,#3ADD A,46HMOV 46H,ARETJia3:CJNE A,#3,Jia4MOV A,#7ADD A,46HMOV 46H,ARETJia4:.MOV A,#10ADD A,46HMOV 46H,ARET;*****************************得分显示谢谢阅读JifenXianshi:MOV XIAN,#0BFHSETB WEICLR WEIMOV A,46HMOV B,#10DIV ABMOV DPTR,#TABMOVCA,@A+DPTRMOV XIAN,ASETB DUANCLR DUANCALL DelayMOV XIAN,#7FHSETB WEICLR WEIMOV A,B.MOVC A,@A+DPTRMOV XIAN,ASETB DUANCLR DUANCALL DelayMOV XIAN,#0FFHSETB WEICLR WEIRET;***************************** 暂停标志位感谢阅读Int0_ser:CPL Biao_ztRETI;***************************** 定时计数，并出随机数谢谢阅读T0_ser:MOVTH0,#(65536-10000)/256MOVTL0,#(65536-10000)MOD256INC34HINC42HINC44HRETI;***************************** 清屏子程序精品文档放心下载.Qingping:CLR LIECLR LWSETB LWDJNZ R0,QingpingMOV R0,#08HCLR LZSETB LZ;***************************** 延时子程序精品文档放心下载RET;***************************** 随机积木7类型谢谢阅读TAB0:DB18H,18H,00H,00H,00H,00H,00H,00H感谢阅读TAB1:DB00H,3CH,00H,00H,00H,00H,00H,00H谢谢阅读TAB1_1:

;田字型;一字型.DB10H,10H,00H,00H,00H,00H,10H,10H感谢阅读TAB2:DB38H,20H,00H,00H,00H,00H,00H,00H谢谢阅读

;L