标题: 发一个用汇编写LCD12864的俄罗斯方块游戏 [打印本页]

---

作者: bayga456    时间: 2017-3-29 21:00
标题: 发一个用汇编写LCD12864的俄罗斯方块游戏
先说明：1，游戏页面是借鉴了网络上的图片的，本想用适合LCD12864的位置显示，基于学习的目的所以高仿游戏页面。
2，看过网上有的多是C语言写的，所以特意用汇编编写。
3，认为程序写得不好请不要骂，谢谢。
4，欢迎各位指点。
5，首次发贴，排版什么的基本都不会，见谅。


汇编源码：

1. /*STC12 LCD1286动态点阵
   
2. 高128字节RAM只能间接寻址，特殊功能寄存器区只可直接寻址*/
   
3. 
   
4.         LCD_RS        EQU                P2.6                //LCD并口端口
   
5.         LCD_RW        EQU                P2.5
   
6.         LCD_EN        EQU                P2.7
   
7.         LCD_PSB        EQU                P3.2
   
8.         LCD_RST        EQU                P3.4
   
9.         LCD_PD        EQU                P0
   
10. 
    
11.         KEY_LEF        EQU                P1.0                ;左移按键
    
12.         KEY_RIG        EQU                P1.1                ;右称按键
    
13.         KEY_TUR        EQU                P1.2                ;转动按键
    
14.         KEY_DOW        EQU                P1.3                ;下降按键
    
15.         KEY_SET        EQU                P1.4                ;设置按键
    
16. 
    
17.         GDRAM_Y        DATA        30H                        ;LCD_GDRAM_Y轴数据
    
18.         GDRAM_X        DATA        31H                        ;LCD_GDRAM_X轴数据
    
19. 
    
20.         SCORE_G        DATA        32H                        ;计分个位
    
21.         SCORE_S        DATA        33H                        ;计分十位
    
22.         SCORE_B        DATA        34H                        ;计分百位
    
23.         SCORE_Q        DATA        35H                        ;计分千位
    
24.         SCORE_W        DATA        36H                        ;计分万位
    
25. 
    
26.         ELIM_NUM        DATA        37H                ;1次性消除的行数 0-4
    
27. 
    
28.         SPEED_G        DATA        38H                        ;等级记录数据
    
29. 
    
30.         RAN_NUM        DATA        39H                        ;预览区模型数据
    
31. 
    
32.         RAN_FIGN        EQU        20H.0                ;生成随机标记
    
33.         PRE_FIGN        EQU        20H.1                ;移入模型标记
    
34.         SCORE_FIGN        EQU        20H.2                ;分数刷新标记
    
35.         SPEED_FIGN        EQU        20H.3                ;等级刷新标记
    
36. 
    
37.         POS_FIGN        EQU        20H.4                ;位置数据高低半字节定位
    
38. 
    
39.         LEF_FIGN        EQU        20H.5                ;左移标记，按键
    
40.         RIG_FIGN        EQU        20H.6                ;右移标记，按键
    
41.         TUR_FIGN        EQU        20H.7                ;转动标记，按键
    
42.         DOW_FIGN        EQU        21H.0                ;下移标记，按键
    
43.         SET_FIGN        EQU        21H.1                ;设置标记，页面
    
44. 
    
45.         HALF_FIGN        EQU        21H.2                ;上下半屏刷新标记
    
46. 
    
47.         REF_FIGN        EQU        21H.3                ;刷新标记
    
48. 
    
49.         LOST_FIGN        EQU        21H.4                ;游戏输了，结束标记
    
50. 
    
51.         BEAT_FIGN        EQU        21H.5                ;游戏达到10W分，通关标记
    
52. 
    
53.         MOD_NUM        DATA        3AH                        ;移动中模型的代码
    
54.         TUR_NUM        DATA        3BH                        ;移到中模型转动的代码
    
55. 
    
56.         BACK_P1        DATA        3CH                        ;0-15        POS_1备份
    
57.         BACK_P2        DATA        3DH                        ;0-15        POS_2备份
    
58.         BACK_P3        DATA        3EH                        ;0-9        POS_3备份
    
59.         BACK_P4        DATA        3FH                        ;0-9        POS_4备份
    
60. 
    
61.         POS_1        DATA        40H                        ;0-15        模型最上左位置
    
62.         POS_2        DATA        41H                        ;0-15       
    
63.         POS_3        DATA        42H                        ;0-9
    
64.         POS_4        DATA        43H                        ;0-9        模型最下右位置
    
65. 
    
66.         SPEED_DEY        DATA        44H                ;速度延时
    
67.         SPEED_NUM        EQU                235                ;游戏速度调节
    
68. 
    
69.         ISP_CONTR        EQU                0C7H        ;STC12C5A60S2的ISP/IAP控制寄存器地址
    
70. 
    
71. ;计分用RAM位置0C0H-0DBH(27字节)，等级数用RAM位置0E0H-0FB(27字节)
    
72. 
    
73.         ORG                00H
    
74.         JMP                START
    
75. ;        ORG                30H
    
76. START:
    
77.         MOV                R0,                #0FFH                                        /*清0片内256Byte RAM*/
    
78.         CLR                A
    
79. ST1:
    
80.         MOV                @R0,        A
    
81.         DJNZ        R0,                ST1                                                ;12MHz 用时约0.15ms
    
82.         MOV                SP,                #7FH                                                       
    
83. /*                                                                                         */  
    
84.         MOV                DPTR,        #0000H                                        /*清0片外1024Byte RAM(0000H-03FFH)*/
    
85. ST2:
    
86.         CLR                A                    
    
87.         MOVX        @DPTR,        A
    
88.         INC                DPTR
    
89.         MOV                A,                DPH
    
90.         CJNE        A,                #04H,        ST2                                ;12MHz 用时约1.2ms
    
91. MAIN:                                                                                /*开始*/
    
92.         CALL        INIT                                                                                 
    
93. ;        SETB        SET_FIGN                                                ;游戏开始先入设置页面
    
94.         MOV                SPEED_DEY,        #SPEED_NUM                        ;速度初始数据
    
95. ;        MOV                SPEED_G,        #9                                        ;等级测试
    
96. MN1:
    
97.         MOV                A,                #40
    
98.         CALL        DELAY
    
99.         CALL        OUT_LCD                  
    
100.         JNB                SET_FIGN,        MN1
     
101.         CALL        SETTING                                                                                 
     
102. ;        CPL                P2.0                                                        ;程序运行检测
     
103.         JMP                MN1
     
104. 
     
105. SETTING:                                                                        /*速度设置页面*/
     
106.         CALL        SET_DIS                                                        ;设置显示
     
107.         JNB                LOST_FIGN,        SG1
     
108.         JB                KEY_SET,        SETTING
     
109.         MOV                A,                #50
     
110.         CALL        DELAY
     
111.         JB                KEY_SET,        SETTING
     
112.         JNB                KEY_SET,        $
     
113.         ORL                ISP_CONTR,        #20H                                ;软件复位
     
114. SG1:               
     
115.         CALL        SET_KEYS                                                ;设置按键
     
116.         JB                SET_FIGN,        SETTING
     
117.         CALL        COME_GAME                                                ;回到游戏
     
118.         RET
     
119.                                                                                                           
     
120. COME_GAME:                                                                        /*回到游戏 清除右边的内容*/
     
121.         MOV                R1,                #98H+5
     
122.         MOV                R2,                #90H+5
     
123.         MOV                R3,                #88H+5
     
124.         MOV                R4,                #80H+5
     
125.         MOV                R0,                #4
     
126. CGE1:
     
127.         MOV                A,                @R0
     
128.         CALL        LCD_WRITE_CMD
     
129.         MOV                R7,                #6
     
130.         MOV                A,                #' '                 
     
131. CGE2:
     
132.         CALL        LCD_WRITE_DAT
     
133.         DJNZ        R7,                CGE2
     
134.         DJNZ        R0,                CGE1
     
135.         RET                                                                                                  
     
136.                                                                                         /*
     
137. COME_GAME:                                                                        回到游戏 保留右边内容
     
138.         MOV                DPTR,        #TAB_CHINESE3                        ;开始
     
139.         MOV                A,                #90H+6
     
140.         CALL        LCD_WRITE_CMD
     
141.         MOV                R7,                #4
     
142. CGE1:
     
143.         CLR                A
     
144.         MOVC        A,                @A+DPTR
     
145.         INC                DPTR
     
146.         CALL        LCD_WRITE_DAT
     
147.         DJNZ        R7,                CGE1
     
148.         RET                                                                                                   */
     
149. 
     
150. SET_KEYS:                                                                        /*设置页面按键检测*/
     
151.         JB                KEY_LEF,        SKS1                               
     
152.         MOV                A,                #20
     
153.         CALL        DELAY
     
154.         JB                KEY_LEF,        SKS1
     
155.         MOV                A,                SPEED_G
     
156.         XRL                A,                #9
     
157.         JZ                SKS1
     
158.         INC                SPEED_G                                                        ;左按键 等级/速度+1
     
159.         SETB        SPEED_FIGN                                                ;修改后标记等级刷新标记
     
160.         JNB                KEY_LEF,        $
     
161. SKS1:
     
162.         JB                KEY_RIG,        SKS2
     
163.         MOV                A,                #20
     
164.         CALL        DELAY
     
165.         JB                KEY_RIG,        SKS2
     
166.         MOV                A,                SPEED_G
     
167.         JZ                SKS2
     
168.         DEC                SPEED_G                                                        ;右按键 等级/速度-1
     
169.         SETB        SPEED_FIGN                                                ;修改后标记等级刷新标记
     
170.         JNB                KEY_RIG,        $
     
171. SKS2:
     
172.         JB                KEY_SET,        SKS3
     
173.         MOV                A,                #50
     
174.         CALL        DELAY
     
175.         JB                KEY_SET,        SKS3
     
176.         CLR                SET_FIGN                                                ;设置页面标记复位
     
177.         JNB                KEY_SET,        $
     
178. SKS3:       
     
179.         RET
     
180. 
     
181. SET_DIS:                                                                        /*设置显示*/
     
182.         MOV                A,                #30H
     
183.         CALL        LCD_WRITE_CMD
     
184.         MOV                DPTR,        #TAB_CHINESE1                        ;游戏
     
185.         MOV                A,                #80H+5
     
186.         CALL        LCD_WRITE_CMD
     
187.         MOV                R7,                #5
     
188. SDS1:
     
189.         CLR                A
     
190.         MOVC        A,                @A+DPTR
     
191.         INC                DPTR
     
192.         CALL        LCD_WRITE_DAT
     
193.         DJNZ        R7,                SDS1
     
194.         JNB                BEAT_FIGN,        SDS2
     
195.         MOV                DPTR,        #TAB_CHINESE4                        ;通关
     
196.         JMP                SDS3
     
197. SDS2:
     
198.         JNB                LOST_FIGN,        SDS4
     
199.         MOV                DPTR,        #TAB_CHINESE5                        ;结束
     
200.         JMP                SDS3
     
201. SDS4:
     
202.         MOV                DPTR,        #TAB_CHINESE2                        ;暂停
     
203. SDS3:
     
204.         MOV                A,                #90H+6
     
205.         CALL        LCD_WRITE_CMD
     
206.         MOV                R7,                #4
     
207. SDS5:
     
208.         CLR                A
     
209.         MOVC        A,                @A+DPTR
     
210.         INC                DPTR
     
211.         CALL        LCD_WRITE_DAT
     
212.         DJNZ        R7,                SDS5
     
213.         MOV                DPTR,        #TAB_CHINESE6                        ;‘SPEED’
     
214.         MOV                A,                #88H+5
     
215.         CALL        LCD_WRITE_CMD
     
216.         MOV                R7,                #6
     
217. SDS6:
     
218.         CLR                A
     
219.         MOVC        A,                @A+DPTR
     
220.         INC                DPTR
     
221.         CALL        LCD_WRITE_DAT
     
222.         DJNZ        R7,                SDS6
     
223.         MOV                DPTR,        #TAB_CHINESE7                        ;'0123456789'
     
224.         MOV                A,                #98H+6
     
225.         CALL        LCD_WRITE_CMD
     
226.         MOV                A,                SPEED_G
     
227.         MOVC        A,                @A+DPTR
     
228.         CALL        LCD_WRITE_DAT
     
229.         RET
     
230. 
     
231. TAB_CHINESE1:        DB        '游戏:'
     
232. TAB_CHINESE2:        DB        '暂停'
     
233. TAB_CHINESE3:        DB        '开始'
     
234. TAB_CHINESE4:        DB        '通关'
     
235. TAB_CHINESE5:        DB        '结束'
     
236. TAB_CHINESE6:        DB        'SPEED:'
     
237. TAB_CHINESE7:        DB        '0123456789'
     
238. 
     
239. OUT_LCD:                                                                        /*LCD显示*/
     
240. OUT_LCD_GDRAM:                                                                /*GDRAM显示*/
     
241.         CALL        CAL_SCORE                                                ;分数处理
     
242.         CALL        CAL_SPEED                                                ;等级数处理
     
243.         MOV                A,                #34H                                       
     
244.         CALL        LCD_WRITE_CMD                                        ;关GDRAM显示
     
245.         JNB                SCORE_FIGN,        OLG1
     
246.         CALL        OUT_SCORE                                                ;刷新显示分数值
     
247.         CLR                SCORE_FIGN
     
248. OLG1:
     
249.         JNB                SPEED_FIGN,        OLG2
     
250.         CALL        OUT_SPEED                                                ;刷新显示等级值
     
251.         CLR                SPEED_FIGN
     
252. OLG2:
     
253.         JNB                RAN_FIGN,        OLG3                                        
     
254.         CALL        CAL_MODEL_RAN                                        ;生成随机模型                                                       
     
255.         CALL        PRE_MODEL_RAN                                        ;写入预览随机模型
     
256.         SETB        REF_FIGN                                                ;刷新标记
     
257.         CLR                RAN_FIGN
     
258. OLG3:
     
259.         MOV                A,                ELIM_NUM
     
260.         JZ                OLG4                                                        ;没有消除跳转
     
261.         CALL        REFRESH_ALL                                                ;游戏全部刷新
     
262.         MOV                ELIM_NUM,        #0
     
263.         JMP                OLG5
     
264. OLG4:
     
265.         JNB                REF_FIGN,        OLG5                                ;模型没有变动跳转   
     
266.         CALL        REFRESH_ALL_POS                                        ;游戏局部刷新
     
267.         CLR                REF_FIGN
     
268. OLG5:
     
269.         MOV                A,                #36H
     
270.         CALL        LCD_WRITE_CMD                                        ;开GDRAM显示
     
271.         JNB                PRE_FIGN,        OLG6
     
272.         CALL        MODEL_OUT_GAME                                        ;预览模型传到游戏        确定模型位置MODLE_POS       
     
273.         CLR                PRE_FIGN
     
274.         SETB        RAN_FIGN
     
275. OLG6:
     
276.         CALL        DRAW_POINTS                                                ;画点
     
277.         CALL        MOVE                                                        ;移动
     
278.         CALL        LOST                                                        ;检查游戏是否结束
     
279.         RET
     
280. 
     
281. LOST:                                                                                /*检查游戏是否结束*/
     
282.         JNB                PRE_FIGN,        LT1
     
283.         MOV                R0,                #8
     
284.         MOVX        A,                @R0
     
285.         JZ                LT1
     
286.         SETB        SET_FIGN
     
287.         SETB        LOST_FIGN
     
288. LT1:
     
289.         RET
     
290. 
     
291. REFRESH_ALL_POS:                                                        /*刷新 BACK_P1到POS_4 大行位置*/
     
292.         MOV                A,                POS_4
     
293.         ANL                A,                #0F0H
     
294.         MOV                R7,                A                                                ;最低POS_4存入R7
     
295.         CLR                C
     
296.         SUBB        A,                #40H
     
297.         JNC                RAP1                                                        ;A>=30H 跳转
     
298.         CLR                A
     
299. RAP1:
     
300.         MOV                R6,                A                                                ;行地址存入R6
     
301. RAP3:
     
302.         CALL        REFRESH_POS                                                ;刷新1个点
     
303.         MOV                A,                R7
     
304.         XRL                A,                R6
     
305.         JZ                RAP2
     
306.         MOV                A,                R6
     
307.         ADD                A,                #10H
     
308.         MOV                R6,                A
     
309.         JMP                RAP3
     
310. RAP2:
     
311.         RET                                                                                         
     
312. 
     
313. REFRESH_POS:                                                                /*刷新1个点的1大行位置*/
     
314.         RLC                A
     
315.         MOV                HALF_FIGN,        C
     
316.        
     
317. 
     
318. 
     
319. …………限于本文篇幅 余下代码请从51黑下载附件…………

复制代码

下载：
51汇编俄罗斯方块.rar (68.85 KB, 下载次数: 68)

2017-3-29 20:51 上传

点击文件名下载附件
51汇编俄罗斯方块
下载积分: 黑币 -5

---

作者: shenparty    时间: 2019-7-8 23:30
感谢分享

---

欢迎光临 (http://www.51hei.com/bbs/)

Powered by Discuz! X3.1