1 g_LineWidth=10
2 g_LineHeight=15
3 g_Speed=300;越小越快
4
5 g_DrawPosX=3
6 g_DisplayBuffer=0B80ah;
7 g_FrameColor=01110000b;框架顏色
8 g_PrepareColor=00100000b;準備方塊顏色
9 g_CurrentColor=10111000b;當前方塊顏色
10 g_ExistColor=01000000b;存在方塊顏色
11
12 assume cs:code,ss:stack
13
14 stack segment
15 db 256 dup(0)
16 stack ends
17
18 ;每個格用兩個并列字符
19 g_Current segment;當前下落的四個格
20 db 8 dup(0);x1,y1,x2,y2,x3,y3,x4,y4
21 db 8 dup(0);保存旋轉初始值
22 g_Current ends
23
24 data segment;方塊類型
25 db 0,0,1,0,2,0,3,0;I的初始格子
26 db 0,0,1,0,2,0,2,1;J
27 db 0,0,1,0,2,0,0,1;L
28 db 0,0,1,0,1,1,2,1;Z
29 db 1,0,2,0,0,1,1,1;S
30 db 0,0,1,0,0,1,1,1;O
31 db 0,0,1,0,2,0,1,1;T
32 data ends
33
34 g_State segment
35 db 'N';是否退出
36 db 2;下一個方塊類型 0,1,2,3,4,5,6對應IJLZSOT
37 db 0;時間tick
38 dw 0,0
39 g_State ends
40
41 code segment
42 main:
43 call FNextRectToCurrent
44 call FGenNextRect
45 call FClear
46
47 mov ax,0;安裝鍵盤回調函數
48 mov es,ax
49 mov ax,g_State
50 mov ds,ax
51 push es:[9*4]
52 pop ds:[3]
53 push es:[9*4+2]
54 pop ds:[5]
55 mov es:[9*4+2],cs
56 mov WORD ptr es:[9*4],offset FKeyboard
57
58 main_s:;游戲循環
59 mov ax,g_State
60 mov ds,ax
61 mov al,ds:[0]
62 cmp al,'Y'
63 je toexit
64 call GameLoop
65 jmp main_s
66 toexit:
67 mov ax,0
68 mov es,ax
69 mov ax,g_State
70 mov ds,ax
71 push ds:[5]
72 pop es:[9*4+2];還原鍵盤回調函數
73 push ds:[3]
74 pop es:[9*4]
75 mov ax,4c00H
76 int 21H
77
78 GameLoop:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
79 call FSleep
80 call FRender
81 call FJugeDown
82 ret
83
84 FRender:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
85 call FClean
86 call FShowNextRect
87 call FShowFrame
88 call FShowCurrentRect
89 ret
90
91 FKeyboard:;鍵盤中斷;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
92 push ax
93 push bx
94 push cx
95 push dx
96 push es
97 push ds
98 push si
99 push di
100 push bp
101
102 in al,60h
103 mov dl,al
104 pushf
105 pushf
106 pop bx
107 ;and bh,11111100b
108 push bx
109 popf
110
111 mov ax,g_State
112 mov ds,ax
113 call DWORD ptr ds:[3];調用原來的int 9
114 cmp dl,1;退出
115 je FKeyboard_exit
116 cmp dl,48h;上
117 je FKeyboard_change
118 cmp dl,50h;下
119 je FKeyboard_down
120 cmp dl,4bh;左
121 je FKeyboard_left
122 cmp dl,4dh;右
123 je FKeyboard_right
124 jmp FKeyboard_nop
125 FKeyboard_change:
126 call FDoChange
127 jmp FKeyboard_nop
128 FKeyboard_left:
129 call FDoLeft
130 jmp FKeyboard_nop
131 FKeyboard_right:
132 call FDoRight
133 jmp FKeyboard_nop
134 FKeyboard_down:
135 call FDoDown
136 jmp FKeyboard_nop
137 FKeyboard_exit:
138 mov ax,g_State
139 mov ds,ax
140 mov BYTE ptr ds:[0],'Y'
141
142 FKeyboard_nop:
143 pop bp
144 pop di
145 pop si
146 pop ds
147 pop es
148 pop dx
149 pop cx
150 pop bx
151 pop ax
152 iret
153
154 FDoLeft:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
155 mov ax,g_Current
156 mov ds,ax
157 mov cx,4
158 mov si,0
159 FDoLeft_s:
160 mov al,ds:[si+1];y
161 mov ah,ds:[si];x
162 cmp ah,0
163 jna FDoLeft_end
164 dec ah
165 push ds
166 push si
167 push cx
168 call FGetRect
169 pop cx
170 pop si
171 pop ds
172 cmp dl,g_ExistColor
173 je FDoLeft_end
174 add si,2
175 loop FDoLeft_s
176 mov cx,4
177 mov si,0
178 FDoLeft_s1:
179 mov ah,ds:[si];x
180 dec ah
181 mov ds:[si],ah
182 add si,2
183 loop FDoLeft_s1
184 call FRender
185 FDoLeft_end:
186 ret
187
188 FDoRight:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
189 mov ax,g_Current
190 mov ds,ax
191 mov cx,4
192 mov si,0
193 FDoRight_s:
194 mov al,ds:[si+1];y
195 mov ah,ds:[si];x
196 cmp ah,g_LineWidth-1
197 jnb FDoRight_end
198 inc ah
199 push ds
200 push si
201 push cx
202 call FGetRect
203 pop cx
204 pop si
205 pop ds
206 cmp dl,g_ExistColor
207 je FDoRight_end
208 add si,2
209 loop FDoRight_s
210 mov cx,4
211 mov si,0
212 FDoRight_s1:
213 mov ah,ds:[si];x
214 inc ah
215 mov ds:[si],ah
216 add si,2
217 loop FDoRight_s1
218 call FRender
219 FDoRight_end:
220 ret
221
222 FApplyChange:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
223 mov ax,g_Current
224 mov ds,ax
225 mov cx,8
226 mov di,0
227 FApplyChange_loop:
228 mov al,ds:[di+8]
229 mov ds:[di],al
230 inc di
231 loop FApplyChange_loop
232 ret
233
234
235
236 FDoChange:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
237 mov ax,g_Current
238 mov ds,ax
239
240 mov bl,g_LineWidth;偏移值x
241 mov bh,g_LineHeight;y
242 mov cx,4
243 mov di,0
244 FDoChange_getxy:
245 mov al,ds:[di];
246 cmp al,bl
247 jnb FDoChange_getxy_xend
248 mov bl,al
249 FDoChange_getxy_xend:
250 mov al,ds:[di+1]
251 cmp al,bh
252 jnb FDoChange_getxy_yend
253 mov bh,al
254 FDoChange_getxy_yend:
255 add di,2
256 loop FDoChange_getxy
257
258 mov dl,0;y偏移
259 mov cx,4
260 mov di,0
261 FDoChange_loop:;(x,y)-->(-y,x)
262 mov al,ds:[di];(x,)-->(,x)
263 sub al,bl
264 mov ds:[di+9],al
265
266 mov al,ds:[di+1];(,y)-->(-y,)
267 sub al,bh
268 cmp al,dl
269 jna FDoChange_off
270 mov dl,al;y最大偏移
271 FDoChange_off:
272 mov ah,0
273 sub ah,al;-y
274 mov ds:[di+8],ah
275 add di,2
276 loop FDoChange_loop
277
278 mov di,8
279 mov cx,4
280 FDoChange_s:
281 add ds:[di],dl
282 add di,2
283 loop FDoChange_s
284
285 call FApplyChange
286 call FRender
287 ret
288
289 FDoDown:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
290 call FJugeDown
291 call FRender
292 ret
293
294 FSleep:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
295 mov bx,g_Speed
296 FSleep0:
297 mov ah, 2ch
298 int 21h
299 mov ax,g_State
300 mov es,ax
301 mov es:[2], dl
302 FSleep1:
303 mov ah, 2ch
304 int 21h
305 mov ax,g_State
306 mov es,ax
307 cmp es:[2], dl
308 je FSleep1
309
310 sub bx, 55
311 cmp bx, 0
312 jg FSleep0
313 ret
314
315 FKill:
316 mov cx,g_LineHeight;檢查的行
317 mov bx,0;刪除了多少行
318 FKill_loop:
319 mov al,cl;檢查的行
320 dec al
321 push cx
322 push bx
323 call FJugeKill_line;檢查
324 pop bx
325 pop cx
326 cmp dl,'Y'
327 jne FKill_notkill
328 je FKill_kill
329
330 FKill_kill:;清除
331 push bx
332 push cx
333 mov bl,cl
334 dec bl
335 mov al,bl
336 call FCopyLine;清除當前行
337 pop cx
338 pop bx
339 inc bx
340 jmp FKill_next
341 FKill_notkill:;不清除
342 cmp bx,0
343 je FKill_next
344 push bx
345 push cx
346 mov al,cl
347 dec al;from
348 add bl,al;to
349 call FCopyLine
350 pop cx
351 pop bx
352 FKill_next:;下一行
353 loop FKill_loop
354 ret
355
356 FCopyLine:;某行剪切到某行，同一行時清除。輸入from al，to bl;;;;;;;;;;;;;;;;;;;;;;
357 mov cx,g_LineWidth
358 FCopyLine_loop:
359 mov ah,cl
360 dec ah;x
361
362 push cx
363 push ax
364 push bx
365 call FGetRect
366 pop bx
367 pop ax
368 pop cx
369
370 push cx
371 push ax
372 push bx
373 push dx
374 mov dl,0
375 call FShowRect
376 pop dx
377 pop bx
378 pop ax
379 pop cx
380
381 push ax
382 push cx
383 push bx
384 mov al,bl;new y
385 call FShowRect
386 pop bx
387 pop cx
388 pop ax
389
390 loop FCopyLine_loop
391 ret
392
393 FJugeKill_line:;是否可以清除某行，輸入al:y,輸出dl,是否可清除
394 mov cx,g_LineWidth
395 mov ah,0;x
396 FJugeKill_line_s:
397 push cx
398 push ax
399 call FGetRect
400 pop ax
401 pop cx
402 cmp dl,g_ExistColor
403 jne FJugeKill_line_n
404 inc ah
405 loop FJugeKill_line_s
406 mov dl,'Y'
407 jmp FJugeKill_line_y
408 FJugeKill_line_n:
409 mov dl,'N'
410 FJugeKill_line_y:
411 ret
412
413 FJugeDown:;是否可以下降處理;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
414 mov ax,g_Current
415 mov ds,ax
416 mov di,0
417 mov cx,4
418 FJugeDown_s:
419 mov al,ds:[di+1];y
420 cmp al,g_LineHeight-1
421 jnb FJugeDown_false;y>=高度
422 inc al
423 mov ah,ds:[di];x
424 push di
425 push cx
426 push ds
427 call FGetRect
428 pop ds
429 pop cx
430 pop di
431 cmp dl,g_ExistColor
432 je FJugeDown_false
433 add di,2
434 loop FJugeDown_s
435
436 FJugeDown_true:;可下降
437 mov di,0
438 mov cx,4
439 FJugeDown_s1:
440 mov al,ds:[di+1];y
441 inc al
442 mov ds:[di+1],al
443 add di,2
444 loop FJugeDown_s1
445 jmp FJugeDown_end
446
447 FJugeDown_false:;不可下降
448 mov di,0
449 mov cx,4
450 FJugeDown_s2:
451 mov al,ds:[di+1];y
452 mov ah,ds:[di];x
453 mov dl,g_ExistColor
454 push di
455 push ds
456 push cx
457 call FShowRect
458 pop cx
459 pop ds
460 pop di
461 add di,2
462 loop FJugeDown_s2
463 call FKill;
464
465 call FNextRectToCurrent
466 call FGenNextRect
467 call FJugeFail
468
469 FJugeDown_end:
470 ret
471
472 FJugeFail:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
473 mov ax,g_Current
474 mov ds,ax
475 mov di,0
476 mov cx,4
477 FJugeFail_s:
478 mov al,ds:[di+1];y
479 mov ah,ds:[di];x
480 push cx
481 push di
482 call FGetRect
483 pop di
484 pop cx
485 cmp dl,g_ExistColor
486 je FJugeFail_fail
487 add di,2
488 loop FJugeFail_s
489 jmp FJugeFail_nop
490 FJugeFail_fail:
491 mov ax,g_State
492 mov ds,ax
493 mov BYTE ptr ds:[0],'Y'
494 FJugeFail_nop:
495 ret
496
497 FClear:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
498 mov ax,g_DisplayBuffer
499 mov ds,ax
500 mov cx,20
501 mov bx,0
502 FClear_s:
503 push cx
504 mov cx,80
505 FClear_s1:
506 mov BYTE ptr ds:[bx],' '
507 mov BYTE ptr ds:[bx+1],0
508 add bx,2
509 loop FClear_s1
510 pop cx
511 loop FClear_s
512 ret
513
514 FClean:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
515 mov ax,g_DisplayBuffer
516 mov ds,ax
517 mov cx,80*g_LineHeight
518 mov bx,0
519 FClean_s:
520 mov dl,ds:[bx+1]
521 cmp dl,g_FrameColor
522 je FClean_nop
523 cmp dl,g_ExistColor
524 je FClean_nop
525 mov BYTE ptr ds:[bx+1],0
526
527 FClean_nop:nop
528 add bx,2
529 loop FClean_s
530 ret
531
532 FShowCurrentRect:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
533 mov ax,g_Current
534 mov ds,ax
535 mov di,0
536 mov cx,4
537 mov dl,g_CurrentColor
538 FShowCurrentRect_s:
539 mov ah,ds:[di]
540 mov al,ds:[di+1]
541
542 push ds
543 push di
544 push cx
545 push dx
546 call FShowRect
547 pop dx
548 pop cx
549 pop di
550 pop ds
551
552 add di,2
553 loop FShowCurrentRect_s
554 ret
555
556 FGenNextRect:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
557 mov ah,2ch
558 mov al,0
559 int 21h;CH=小時，CL=分鐘，DH=秒，DL=百分秒
560 mov ah,0
561 mov al,dl
562 mov dl,7
563 div dl
564 mov bl,ah;余數作為隨機值
565 mov ax,g_State
566 mov ds,ax
567 mov BYTE ptr ds:[1],bl
568 ret
569
570 FNextRectToCurrent:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
571 mov ax,g_State
572 mov ds,ax
573 mov al,ds:[1]
574 mov ah,8
575 mul ah
576 mov bx,ax;位移
577 mov ax,g_Current
578 mov ds,ax
579 mov ax,data
580 mov es,ax
581 mov cx,8
582 mov di,0
583 FNextRectToCurrent_s:
584 mov al,es:[bx+di]
585 mov ds:[di],al
586 inc di
587 loop FNextRectToCurrent_s
588 ret
589
590 FShowNextRect:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
591 mov ax,g_State
592 mov es,ax
593 mov al,es:[1];方塊類型
594 mov ah,8
595 mul ah
596 mov si,ax;方塊類型在data位置
597 mov ax,data
598 mov es,ax
599
600 mov cx,4
601 mov dl,g_PrepareColor
602 FShowNextRect_s:
603 mov al,es:[si+1];y
604 mov ah,es:[si];x
605 add ah,g_LineWidth+2
606
607 push cx
608 push ax
609 push si
610 push es
611 push dx
612 call FShowRect
613 pop dx
614 pop es
615 pop si
616 pop ax
617 pop cx
618
619 add si,2
620 loop FShowNextRect_s
621 ret
622
623 FShowRect:;畫一個格 輸入格：ah:x,al:y,dl顏色;;;;;;;;;;;;;;;;;;;;;
624 mov bh,ah
625 mov bl,160
626 mul bl
627 mov si,ax
628 mov al,4
629 mul bh
630 add si,ax;
631 mov ax,g_DisplayBuffer
632 mov ds,ax
633 mov BYTE ptr ds:[si+g_DrawPosX*2+2],' '
634 mov ds:[si+g_DrawPosX*2+3],dl
635 mov BYTE ptr ds:[si+g_DrawPosX*2+4],' '
636 mov ds:[si+g_DrawPosX*2+5],dl
637 ret
638
639 FGetRect:;輸入格：ah:x,al:y 輸出dl顏色
640 mov bh,ah
641 mov bl,160
642 mul bl
643 mov si,ax
644 mov al,4
645 mul bh
646 add si,ax;
647 mov ax,g_DisplayBuffer
648 mov ds,ax
649 mov dl,ds:[si+g_DrawPosX*2+3]
650 ret
651
652 FShowFrame:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
653 mov ax,g_DisplayBuffer
654 mov ds,ax
655 mov cx,g_LineHeight
656 mov bx,0
657 mov si,g_DrawPosX
658 add si,g_DrawPosX
659 FShowFrame_s:
660 mov BYTE ptr ds:[bx+g_DrawPosX*2],' '
661 mov BYTE ptr ds:[bx+g_DrawPosX*2+1],g_FrameColor
662 mov BYTE ptr ds:[bx+g_DrawPosX*2+g_LineWidth*4+2],' '
663 mov BYTE ptr ds:[bx+g_DrawPosX*2+g_LineWidth*4+3],g_FrameColor
664 add bx,160
665 loop FShowFrame_s
666 mov cx,g_LineWidth*2+2
667 mov si,0
668 FShowFrame_s1:
669 mov BYTE ptr ds:[bx+si+g_DrawPosX*2],' '
670 mov BYTE ptr ds:[bx+si+g_DrawPosX*2+1],g_FrameColor
671 add si,2
672 loop FShowFrame_s1
673 ret
674 code ends
675 end main
