汇编语言写贪吃蛇_汇编贪吃蛇

作者：AllinToyou | 2024-05-26 09:08:56
踩
汇编贪吃蛇
assume cs:code,ds:data,ss:stack

data segment

;**********************************************************************************************************
;**********************************************************************************************************
;**********************************************************************************************************

BOUNDARY_COLOR		dw	1131H
NEXT_ROW		dw	160

SNAKE_HEAD		dw	0
SNAKE_STERN		dw	12

SNAKE_COLOR		dw	2201H

SNAKE			dw	200 dup (0,0,0)


NEW_NODE		dw	18


FOOD_LOCTION		dw	160*5 + 30*2
FOOD_COLOR		dw	4439H


UP			db	48H
DOWN			db	50H
LEFT			db	4BH		
RIGHT			db	4DH

BACK_GROUND_COLOR	dw	0700H	


DIRECTION		dw	3					;up 0 down 1 left 2 right 3

DIRECTION_FUNTION	dw	OFFSET isMoveUp 	- OFFSET greedy_snake + 7E00H	; 0
			dw	OFFSET isMoveDown 	- OFFSET greedy_snake + 7E00H	; 1
			dw	OFFSET isMoveLeft 	- OFFSET greedy_snake + 7E00H	; 2
			dw	OFFSET isMoveRight 	- OFFSET greedy_snake + 7E00H	; 3

;**********************************************************************************************************
;**********************************************************************************************************
;**********************************************************************************************************

data ends

stack segment stack
	db	128 dup (0)
stack ends



code segment

	start:	mov ax,stack
		mov ss,ax
		mov sp,128


		call sav_old_int9
		call set_new_int9
		call cpy_greedy_snake



		mov bx,0
		push bx
		mov bx,7E00H
		push bx

		retf


		mov ax,4C00H
		int 21H


;================================================================
greedy_snake:	call init_reg
		call clear_screen
		call init_screen
		call init_direction
		call init_food
		

;nextDelay:	call delay
;		cli
;		call isMoveDirection
;		sti
;		jmp nextDelay


testA:		mov ax,1000H
		jmp testA


		mov ax,4C00H
		int 21H


;================================================================
init_food:	mov si,FOOD_LOCTION
		mov dx,FOOD_COLOR

		mov es:[si],dx

	
		ret
;================================================================
isMoveDirection:
		mov bx,DIRECTION
		add bx,bx

		call word ptr ds:DIRECTION_FUNTION[bx]	

		ret
;================================================================
delay:		push ax
		push dx

		mov dx,9000H
		sub ax,ax

delaying:	sub ax,1000H
		sbb dx,0
		cmp ax,0
		jne delaying
		cmp dx,0
		jne delaying

		pop dx
		pop ax
		ret
;================================================================
init_direction:
		mov DIRECTION,3
		ret
;================================================================
new_int9:	push ax

		in al,60H
		pushf
		call dword ptr cs:[200H]


		cmp al,UP
		je isUp
		cmp al,DOWN
		je isDown
		cmp al,LEFT
		je isLeft
		cmp al,RIGHT
		je isRight


		cmp al,3BH
		jne int9Ret
		call change_screen_color

int9Ret:	pop ax
		iret

;================================================================
isUp:		mov di,160*24 + 40*2
		mov byte ptr es:[di],'U'
		cmp DIRECTION,1
		je int9Ret
		call isMoveUp
		jmp int9Ret

isDown:		mov di,160*24 + 40*2
		mov byte ptr es:[di],'D'
		cmp DIRECTION,0
		je int9Ret
		call isMoveDown
		jmp int9Ret

isLeft:		mov di,160*24 + 40*2
		mov byte ptr es:[di],'L'
		cmp DIRECTION,3
		je int9Ret
		call isMoveLeft
		jmp int9Ret

isRight:	mov di,160*24 + 40*2
		mov byte ptr es:[di],'R'
		cmp DIRECTION,2
		je int9Ret
		call isMoveRight
		jmp int9Ret
	


;================================================================
isFood:		cmp byte ptr es:[si],'9'
		jne noFood
		call eat_food
		call new_food
		ret

noFood:		mov di,160*24 + 10 *2
		mov word ptr es:[di],5535H
		call game_over
		ret


;================================================================
game_over:	call clear_screen

		mov ax,4C00H
		int 21H

		ret
;================================================================
new_food:	push ax
		push bx


newFood:	mov al,0
		out 70H,al
		in al,71H

		mov dl,al				;AL = 0001 0002
		shr al,1
		shr al,1
		shr al,1
		shr al,1
		and dl,00001111B

		mov bl,10
		mul bl

		add al,dl
		mov bl,al

		mul bl

		shr ax,1
		shl ax,1
		add ax,168
		
		mov di,ax
		cmp byte ptr es:[di],0
		jne newFood

		push FOOD_COLOR
		pop es:[di]


		pop bx
		pop ax
		ret
;================================================================
eat_food:	push NEW_NODE
		pop ds:[bx+0]

		mov bx,OFFSET SNAKE
		add bx,NEW_NODE


		mov word ptr ds:[bx+0],0		;0

		mov ds:[bx+2],si			;2
		push SNAKE_COLOR
		pop es:[si]

		push SNAKE_HEAD				;4
		pop ds:[bx+4]

		push NEW_NODE
		pop SNAKE_HEAD

	
		add NEW_NODE,6
	
		ret
;================================================================
isMoveRight:	mov bx,OFFSET SNAKE
		add bx,SNAKE_HEAD
		mov si,ds:[bx+2]
		add si,2
	
		cmp byte ptr es:[si],0
		jne noMoveRight
		call new_snake
		mov DIRECTION,3
		ret

noMoveRight:	call isFood
		ret
;================================================================
isMoveLeft:	mov bx,OFFSET SNAKE
		add bx,SNAKE_HEAD
		mov si,ds:[bx+2]
		sub si,2
	
		cmp byte ptr es:[si],0
		jne noMoveLeft
		call new_snake
		mov DIRECTION,2
		ret

noMoveLeft:	call isFood
		ret
;================================================================
isMoveDown:	mov bx,OFFSET SNAKE
		add bx,SNAKE_HEAD
		mov si,ds:[bx+2]
		add si,NEXT_ROW
	
		cmp byte ptr es:[si],0
		jne noMoveDown
		call new_snake
		mov DIRECTION,1
		ret

noMoveDown:	call isFood
		ret
;================================================================
isMoveUp:	mov bx,OFFSET SNAKE
		add bx,SNAKE_HEAD
		mov si,ds:[bx+2]
		sub si,NEXT_ROW

		cmp byte ptr es:[si],0
		jne noMoveUp
		call new_snake	
		mov DIRECTION,0
		ret


noMoveUp:	call isFood
		ret


;================================================================
new_snake:	push SNAKE_STERN
		pop ds:[bx+0]

		mov bx,OFFSET SNAKE
		add bx,SNAKE_STERN

		push ds:[bx+0]
		mov word ptr ds:[bx+0],0
		
		mov di,ds:[bx+2]
		push BACK_GROUND_COLOR
		pop es:[di]

		mov ds:[bx+2],si
		push SNAKE_COLOR
		pop es:[si]

		push SNAKE_HEAD
		pop ds:[bx+4]

		
		push SNAKE_STERN
		pop SNAKE_HEAD

		pop SNAKE_STERN

		ret
;================================================================
change_screen_color:
		push bx
		push cx
		push dx

		mov bx,0B800H
		mov es,bx

		mov bx,1
		mov cx,2000

changeScreenColor:
		inc byte ptr es:[bx]
		add bx,2
		loop changeScreenColor

		pop dx
		pop cx
		pop bx
		ret
;================================================================
init_screen:	mov dx,BOUNDARY_COLOR
		call init_up_down_line
		call init_left_right_line

		call init_snake
		
		ret

;================================================================
init_snake:	mov bx,OFFSET SNAKE
		add bx,SNAKE_HEAD
		mov dx,SNAKE_COLOR
		mov si,160*10 + 40*2

		mov word ptr ds:[bx+0],0
		mov ds:[bx+2],si
		mov es:[si],dx
		mov word ptr ds:[bx+4],6

		add bx,6
		sub si,2

		mov word ptr ds:[bx+0],0
		mov ds:[bx+2],si
		mov es:[si],dx
		mov word ptr ds:[bx+4],12

		add bx,6
		sub si,2

		mov word ptr ds:[bx+0],6
		mov ds:[bx+2],si
		mov es:[si],dx
		mov word ptr ds:[bx+4],18

		ret
;================================================================
init_left_right_line:
		mov bx,0
		mov cx,23
	
initLeftRightLine:
		mov es:[bx],dx
		mov es:[bx+158],dx
		add bx,NEXT_ROW
		loop initLeftRightLine

		ret
;================================================================
init_up_down_line:
		mov bx,0
		mov cx,80

initUpDownLine:	mov es:[bx],dx
		mov es:[bx+160*23],dx
		add bx,2
		loop initUpDownLine

		ret
;================================================================
clear_screen:	mov bx,0
		mov dx,0700H
		mov cx,2000

clearScreen:	mov es:[bx],dx
		add bx,2
		loop clearScreen
		
		ret
;================================================================
init_reg:	mov bx,0B800H
		mov es,bx

		mov bx,data
		mov ds,bx		
		ret

snake_end:	nop








;================================================================
set_new_int9:
		mov bx,0
		mov es,bx

		cli
		mov word ptr es:[9*4],OFFSET new_int9 - OFFSET greedy_snake + 7E00H
		mov word ptr es:[9*4+2],0
		sti

		ret
;================================================================
sav_old_int9:
		mov bx,0
		mov es,bx

		push es:[9*4]
		pop es:[200H]
		push es:[9*4+2]
		pop es:[202H]

		ret
;================================================================
cpy_greedy_snake:
		mov bx,cs
		mov ds,bx
		mov si,OFFSET greedy_snake

		mov bx,0
		mov es,bx
		mov di,7E00H

		mov cx,OFFSET snake_end - OFFSET greedy_snake
		cld
		rep movsb


		ret

code ends



end start



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
运行效果如下：
在这里插入图片描述
声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/AllinToyou/article/detail/626119