该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

;左移右移End键结束游戏

;编译环境 TASM3.0 编译成.com文件比较好!

sleep macro timeb;延时宏指令

push cx

mov cx, timeb

call waits

pop  cx

endm

cls macro ;清屏宏指令

push ax

push bx

push cx

push dx

mov ah, 06H

mov al, 0

mov ch, 0

mov cl,  0

mov dh, 30h

mov dl,  5fh

mov bh, 0fh

int 10H

pop dx

pop cx

pop bx

pop ax

endm

drawRect macro x, y, w, h, att;绘图宏指令

push ax

push bx

push cx

push dx

mov ah, 06h

mov ch,  y

mov cl,   x

Call SafeXY;保证坐标安全

mov dl,  cl

mov dh, ch

add  dl,   w

add  dh,  h

mov al,   dh

sub  al,   ch

mov bh, att

int 10H

pop dx

pop cx

pop bx

pop ax

endm;==========主程序开始===========

Code segment USE16

assume cs:code, ds:code

org 100H

start:

mov dl,  1;dl,dh寄存器作为全局坐标增量

mov dh, 1

for1: cls;所有操作全部在for1 循环里

push cx;双For绘制砖块

mov cx,  4

mov byte ptr[recy],  0

mov si, offset rec_array

rec1:

push cx

mov cx, 12

mov byte ptr[recx], 0

rec2:

cmp byte ptr[si], 0;判断是否已经被销毁

JZ go4;已经不存在了

drawRectrecx, recy, 6, 2, clr1;还存在

mov bh, byte ptr[ypos];判断小球的临时坐标

mov bl,  byte ptr[xpos]

cmp bh,  recy;

JG go4;是否进入砖块区

push ax

mov ah, 0

mov al,  recx

cmp bl,  al

JL te

add  al,  6

cmp bl, al

JG te;是否撞上砖块

mov  byte ptr[si],  0;将此坐标置为0

NOT dh;小球要反弹

te: pop   ax

go4:

add byte  ptr[recx],  6

add byte  ptr[clr1],  0fh

cmp byte ptr[clr1],  7fh

JL go3

mov byte ptr[clr1],  1fh

go3: inc si

loop rec2

pop   cx

add  byte ptr[recy],  3

loop rec1

pop   cx

IN AL, 60H;读取键盘操作左右

CMP AL, 79

jne ifL

jmp Exit0

ifL: cmp al, 75;操作挡板左右移动

jne ifR

cmp byte ptr[ballx], 6

JL go2

sub byte ptr[ballx], 6

ifR: cmp al, 77

jne go2

cmp byte ptr[ballx], 64

JG go2

add byte ptr[ballx], 6

go2: ;移动小球

add byte ptr [xpos], dl

add byte ptr [ypos], dh

drawRect   xpos,  ypos,  1, 1,  2eh

drawRect   ballx,  bally,  12,1, 3eh

sleep  60

push bx

mov bl,  byte ptr[xpos]

mov bh, byte ptr[ypos]

b1: cmp bl, 72;撞上右边界?

JL b2

NOT dl

b2: cmp bl,   1;撞上左边界?

JG b3

add byte ptr[xpos], 4

NOT dl

b3: cmp bh,  46;掉到下边界,程序结束!

JL b4

jmp Exit0

b4: cmp bh,  1;撞上顶?

JG b5

add byte ptr[ypos], 2

NOT dh

b5: push ax;判断小球是否撞到挡板

mov ah, 0

mov al,  bally

sub  al,  12

cmp bh, al

JL be

mov al,  ballx

cmp bl,  al

JL be

add  al,   6

cmp bl,  al

JG be

NOT dh

be:   pop ax

go1: pop   bx

jmp for1;返回for1

Exit0: mov ah, 4ch

int 21h

;===========延时子程序===========

waits proc near

w1: Wait

push cx

mov cx, 0ffh

w2: Wait

push cx

mov cx, 0fffh

w3: Wait

Loop w3

pop   cx

Loop w2

pop   cx

Loop w1

RET

waits endp

SafeXY proc near;保证坐标安全子程序

d0: cmp ch, 1

jg d1

mov ch, 1

d1: cmp cl,  1

jg d2

mov cl, 1

d2: cmp cl, 64

jl d3

mov cl, 64

d3: ret

SafeXY endp

;============数据段=============

rec_arraydb 4*12 dup(1)

recxdb2

recydb0

clr1db1fh

xpos db12

ypos db7

xddb2

yddb1

ballxdb32

ballydb44

code ends

end start