




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
.纯为个人思路,无特殊,惊人语句….初学完的;程序功能:最原始简单版俄罗斯方块;硬件连接:接双色点阵;晶振型号: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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 四年级下册数学教案-8.2 条形统计图 1-西师大版
- 小学普法教育
- 物业客服接待流程及礼仪培训
- 客户资金监管协议适用于人民币账户两方协议(2025年版)
- 三年级下册数学教案-第1单元:商是几位数-北师大版
- 三年级下册数学教案-7.5 求一个数的几分之几是多少的简单实际问题 丨苏教版
- 村级项发言材料
- 浙江省衢州市仲尼中学高二体育与健康《乒乓球》教学实录 新人教版
- 分香蕉(教学设计)-2024-2025学年二年级上册数学北师大版
- 2023六年级数学上册 七 负数的初步认识教学实录 西师大版
- 宣传片基本报价单三篇
- 初中必背260个固定搭配
- (正式版)SHT 3115-2024 石油化工管式炉轻质浇注料衬里工程技术规范
- 无人机发展助力各行各业的创新1
- 心脏血管旋磨术护理
- 2024年九年级中考数学专题训练-动点最值之胡不归模型
- 2024年考研英语真题及答案(完整版)
- 2024年中国太平洋财产保险股份有限公司招聘笔试参考题库含答案解析
- 氯碱行业收益如何分析
- 尺寸不符回复报告
- 中华人民共和国护士管理办法
评论
0/150
提交评论