汇编俄罗斯方块8.8点阵_第1页
汇编俄罗斯方块8.8点阵_第2页
汇编俄罗斯方块8.8点阵_第3页
汇编俄罗斯方块8.8点阵_第4页
汇编俄罗斯方块8.8点阵_第5页
已阅读5页,还剩45页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

.纯为个人思路,无特殊,惊人语句….初学完的;程序功能:最原始简单版俄罗斯方块;硬件连接:接双色点阵;晶振型号: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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论