Init_game macro op1,op2,op3,op4,op5,op6 

mov cx,00h 
mov dh,op1 
mov dl,op2 
op6: 
mov ah,02h 
mov bh,00h 
int 10h 

push cx 
mov ah,0ah 
mov al,op3 
mov bh,00h 
mov cx,01h 
int 10h 
pop cx 

inc cx 
inc op4 
cmp cx,op5 
jne op6 

endm 

clear_screen macro op1,op2,op3,op4 
mov ah,06h 
mov al,00h 
mov bh,07h 
mov ch,op1 
mov cl,op2 
mov dh,op3 
mov dl,op4 
int 10h 

mov ah,02h 
mov bh,00h 
mov dh,00h 
mov dl,00h 
int 10h 
endm 


menu macro op1,op2,op3 
mov ah,02h 
mov bh,00h 
mov dh,op1 
mov dl,op2 
int 10h 

mov ah,09h 
lea dx,op3 
int 21h 
endm 


data segment 
 
meg db "hello teacher!!$" 
meg1 db "**Menu**$" 
meg2 db "Please choose the game speed,press ESC to quit.$" 
meg3 db "level 1$" 
meg4 db "level 2$" 
meg5 db "level 3$" 
meg6 db "level 4$" 
meg7 db "level 5$" 
meg8 db "level 6$" 
meg9 db "*choose the number among 1-6 , press ENTER to start!*$" 
meg10 db "the speed level is:$" 

hotkey db "press$" 
hotkey1 db "ESC to return to menu$" 
hotkey2 db "SPACE to pause the game$" 
hotkey3 db "Press any key to play games......$" 
hotkey4 db " $" 

failmeg db "The letter is arrive the bottom, You are lost ! :($" 
failmeg0 db "Press ENTER to go on......$" 
failmeg1 db "Game is over!$" 
failmeg2 db "Press ENTER to play again and press ESC to exit!$" 
failmeg3 db "88!!$" 
failmeg4 db "Press any key to quit......$" 

speed dw 00d,1200d,800d,600d,400d,200d,100d 


letters db "jwmilzoeucgpravskntxhdyqfb" 
db "iytpkwnxlsvxrmofzhgaebudjq" 
db "nwimzoexrphysfqtvdcgljukda" 

letters_bak db "jwmilzoeucgpravskntxhdyqfb" 
db "iytpkwnxlsvxrmofzhgaebudjq" 
db "nwimzoexrphysfqtvdcgljukda" 

letter_counter db 0 
life_flag db 78 dup(0) 

position_flag db 78 dup(0) 
present_position db 1 

data ends 

stack segment para stack 'stack' 
db 64 dup(0) 
stack ends 

code segment 
main proc far 
assume cs:code,ds:data,ss:stack 
start: 

mov ax,data 
mov ds,ax 

mov letter_counter,00h 
mov present_position,1 

lea si,position_flag 

mov ah,00h 
mov cx,00h 

init_postion_flag: 
mov [si],ah 
inc si 
inc cx 
cmp cx,78d 
jne init_postion_flag 

lea di,letters 
lea si,letters_bak 
mov cx,00h 
init_letters: 
mov ah,[si] 
mov [di],ah 
inc si 
inc di 
inc cx 
cmp cx,78d 
jne init_letters 


mov ah,00h 
lea si,life_flag 
mov cx,00h 
init_life_flag: 
mov [si],ah 
inc si 
inc cx 
cmp cx,78d 
jne init_life_flag 

mov cx,00h 
mov ah,01h 
or ch,00010000b 
int 10h 

clear_screen 00d,00d,24d,79d 

Init_game 00d,00d,0ah,dl,80d,nextsign1 

Init_game 24d,00d,0ah,dl,80d,nextsign2 

Init_game 00d,00d,0ah,dh,25d,nextsign3 

Init_game 00d,79d,0ah,dh,25d,nextsign4 


menu 01d,15d,meg ;菜單信息的宏展開  
menu 03d,20d,meg1 
menu 05d,15d,meg2 
menu 07d,15d,meg3 
menu 09d,15d,meg4 
menu 11d,15d,meg5 
menu 13d,15d,meg6 
menu 15d,15d,meg7 
menu 17d,15d,meg8 
menu 19d,15d,meg9 
menu 22d,15d,meg10 

input: mov ah,02h 
mov bh,00h 
mov dh,22d 
mov dl,33d 
int 10h 

mov ah,0ah 
mov al," " 
mov bh,00h 
mov cx,01h 
int 10h 

mov ah,01h 
int 21h 
retry: cmp al,"1" 
je speed1 
cmp al,"2" 
je speed2 
cmp al,"3" 
je speed3 
cmp al,"4" 
je speed4 
cmp al,"5" 
je speed5 
cmp al,"6" 
je speed6 
cmp al,1bh 
je to_over0 
jmp input 

to_over0:jmp over 


speed1: mov ah,01h 
int 21h 
cmp al,0dh 
jne otherkey 
mov ax,speed+2 
mov speed,ax 
jmp begin 

speed2: mov ah,01h 
int 21h 
cmp al,0dh 
jne otherkey 
mov ax,speed+4 
mov speed,ax 
jmp begin 

speed3: mov ah,01h 
int 21h 
cmp al,0dh 
jne otherkey 
mov ax,speed+6 
mov speed,ax 
jmp begin 

speed4: mov ah,01h 
int 21h 
cmp al,0dh 
jne otherkey 
mov ax,speed+8 
mov speed,ax 
jmp begin 

speed5: mov ah,01h 
int 21h 
cmp al,0dh 
jne otherkey 
mov ax,speed+10 
mov speed,ax 
jmp begin 

speed6: mov ah,01h 
int 21h 
cmp al,0dh 
jne otherkey 
mov ax,speed+12 
mov speed,ax 
jmp begin 

otherkey: ; 處理重復輸入的代碼段 

push ax 
mov ah,02h 
mov bh,00h 
mov dh,22d 
mov dl,34d 
int 10h 

mov ah,0ah 
mov al," " 
mov bh,00h 
mov cx,01h 
int 10h 

mov ah,02h 
mov bh,00h 
mov dh,22d 
mov dl,33d 
int 10h 
pop ax 

mov dx,ax 
mov ah,02h 
int 21h 

jmp retry 

begin: 

clear_screen 01d,01d,23d,78d 

menu 08d,20d,hotkey 
menu 10d,20d,hotkey1 
menu 12d,20d,hotkey2 
menu 14d,20d,hotkey4 
menu 16d,20d,hotkey3 

mov ah,07h 
int 21h 

clear_screen 01d,01d,23d,78d 
Init_game 23d,01d,01h,dl,78d,nextsign5 

mov ah,02h ;光標初始化 
mov bh,00h 
mov dh,01h 
mov dl,01h 
int 10h 

mov cx,00h 
lea si,letters 
nextletter: ; 初始化屏幕上方的字母 
mov ah,02h 
mov dl,[si] 
int 21h 

inc si 
inc cx 
cmp cx,78d 
je nextcycle 
jmp nextletter 


from_front: ; 相關循環的算法 
sub present_position,78d 
jmp gobackto_si 

find_zero:cmp letter_counter,78d 
je recycle 

cmp present_position,78d 
je from_one 

mov ah,00h 
nextsi: add present_position,01h 
inc si 
cmp [si],ah 
je gobackto_di 

cmp present_position,78d 
je from_one 

jmp nextsi 

from_one:mov present_position,01h 

jmp gobackto_si 

recycle:mov letter_counter,00h 
mov present_position,01d 
lea si,position_flag 
mov cx,00h 

mov ah,00h 
clearsi: mov [si],ah 
inc cx 
cmp cx,78d 
je nextcycle 
inc si 
jmp clearsi 

nextcycle: 
lea di,letters 
lea si,position_flag 
add present_position,31d 
cmp present_position,78 
ja from_front 


gobackto_si: 
add si,word ptr present_position 
dec si 
mov ah,[si] 
cmp ah,01h 
je find_zero 


gobackto_di: 
mov ah,01h 
mov [si],ah 
add di,word ptr present_position 
dec di 
mov dl,present_position 

mov ah,02h ; 字母下落的代碼段部分 
mov bh,00h 
mov dh,01h 
int 10h 

mov cx,00h 
nextrow:push cx ; 新的一行 


mov cx,00h 
out_cycle: ; 延遲 
push cx 
mov cx,00h 
in_cycle: 
add cx,01h 
cmp cx,50000d 
jne in_cycle 

push dx 
mov ah,06h 
mov dl,0ffh 
int 21h 
pop dx 

jz pass ; 如果鍵盤緩沖區部分為空,則跳轉 


cmp al,1bh ; 如果鍵入ESC，則返回主菜單 
je to_start1 

cmp al," " ;如果鍵入SPACE，則游戲暫停 
je pause 

cmp al,[di] ;輸入字母正確！跳轉! 
je disappear 

pass: 
pop cx 
inc cx 
cmp cx,speed 
je print 
jmp out_cycle 


pause: push dx ;暫停處理 
mov ah,06h 
mov dl,0ffh 
int 21h 
pop dx 
cmp al," " 
jne pause 

jmp pass 


to_start1: ;返回主菜單 
jmp start 

print: 


mov ah,0ah 
mov al," " 
mov bh,00h 
mov cx,01h 
int 10h 

inc dh 
mov ah,02h 
mov bh,00h 
int 10h 

mov ah,0ah 
mov al,[di] 
mov bh,00h 
mov cx,01h 
int 10h 

pop cx 
inc cx 
cmp cx,21d 
je print_next_letter 
jmp nextrow ; 下一行 

disappear: ; 擊中字母后的相關處理 
pop cx 
pop cx 

mov ah,0ah 
mov al," " 
mov bh,00h 
mov cx,01h 
int 10h 


jmp hit 


print_next_letter: ; 處理原位置的空缺 
lea si,life_flag 
add si,word ptr present_position 
dec si 

mov ah,[si] 
cmp ah,1 
je fail 

mov ah,0ah 
mov al," " 
mov bh,00h 
mov cx,01h 
int 10h 


inc dh 
mov ah,02h 
mov bh,00h 
int 10h 

mov ah,0ah 
mov al," " 
mov bh,00h 
mov cx,01h 
int 10h 


mov ah,1 
mov [si],ah 


hit: mov ah,02h 
mov bh,00h 
mov dh,01h 
mov dl,present_position 
int 10h 

mov al,[di] ; 出現下一個新字母的算法 
add al,7 
cmp al,7ah 
ja convey_letter 
mov ah,0ah 
mov bh,00h 
mov cx,01h 
int 10h 

mov [di],al 
add letter_counter,01h 
jmp nextcycle 

convey_letter: 
sub al,7ah 
add al,61h 
mov ah,0ah 
mov bh,00h 
mov cx,01h 
int 10h 

mov [di],al 
add letter_counter,01h 
jmp nextcycle 

fail: mov ah,0ah ;游戲失敗后的相關處理 
mov al," " 
mov cx,01h 
int 10h 

inc dh 
mov ah,02h 
mov bh,00h 
int 10h 

mov ah,0ah 
mov al,[di] 
mov bh,00h 
mov cx,01h 
int 10h 

mov ah,02h 
mov bh,00h 
mov dh,12d 
mov dl,17d 
int 10h 

push dx 
mov ah,09h 
lea dx,failmeg 
int 21h 
pop dx 

add dh,2 
mov ah,02h 
mov bh,00h 
int 10h 

mov ah,09h 
lea dx,failmeg0 
int 21h 

re: mov ah,07h 
int 21h 
cmp al,0dh 
jne re 


clear_screen 01,01,23,78 
mov ah,02h 
mov bh,00h 
mov dh,11d 
mov dl,20d 
int 10h 

push dx 
mov ah,09h 
lea dx,failmeg1 
int 21h 
pop dx 

inc dh 
inc dh 
mov ah,02h 
mov bh,00h 
int 10h 

mov ah,09h 
lea dx,failmeg2 
int 21h 

notkey: 
mov ah,07h 
int 21h 
cmp al,0dh 
je to_start 
cmp al,1bh 
je over 
jmp notkey 
to_start: 
clear_screen 00,00,24,79 
jmp start 

over: clear_screen 01,01,23,78 
mov ah,02h 
mov bh,00h 
mov dh,11d 
mov dl,15h 
int 10h 

mov ah,09h 
lea dx,failmeg3 
int 21h 

mov ah,02h 
mov bh,00h 
mov dh,13d 
mov dl,15h 
int 10h 

mov ah,09h 
lea dx,failmeg4 
int 21h 

mov ah,07h 
int 21h 

mov ah,07h 
int 21h 

clear_screen 00,00,24,79 

mov ax,4c00h 
int 21h 

main endp 
code ends 
end start