【正文】 x,0 mov bx,si 。傳遞參數(shù) : si 數(shù)字的范圍最大值 +1 。函數(shù)名 : Rand 。Rec 的參數(shù)是 cl顏色 si左邊 bx上邊 di右邊 dx下邊 pop di pop si pop dx pop cx pop bx pop ax ret clearcut endp 。乘象素值 add ax,leftline 。加上邊界 mov bx , ax 23 add ax , 2 mov dx , ax push bx push dx mov ax,si 。取坐標值 mul cut_y 。****************************************************************************************** clearcut proc near push ax push bx push cx push dx push si push di mov cl , 0 。 si/di 游戲空間列 /游戲空間行 (50*50) 。功能 : 清除格 。****************************************************************************************** 。加上邊界 mov si , ax add ax , 3 mov di , ax pop dx pop bx call Rec 。取坐標值 mul cut_x 。乘象素值 add ax,topline 。置顏色 mov ax,di 。函數(shù)返回 : 空 。傳遞參數(shù) : 。函數(shù)名 : cutfood 。Rec 的參數(shù)是 cl顏色 si左邊 bx上邊 di右邊 dx下邊 pop di pop si pop dx pop cx pop bx pop ax ret cutsnake endp 。乘象素值 add ax,leftline 。加上邊界 mov bx , ax add ax , 2 mov dx , ax push bx push dx mov ax,si 。取坐標值 21 mul cut_y 。****************************************************************************************** cutsnake proc near push ax push bx push cx push dx push si push di mov cl, snake_color 。傳遞參數(shù) : 。函數(shù)名 : cutsnake 。顯示字符串 pop dx pop cx pop bx pop ax ret show_start_msg endp 。設(shè)置光標 call SetGb mov bl , white lea bp , msg4 。顯示作者信息 mov cx,11 call Msg 。****************************************************************************************** show_start_msg proc near push ax 20 push bx push cx push dx mov dx,1426h call SetGb mov bl,0a1h lea bp,msg1 mov cx,12 call Msg mov dx , 190bh call SetGb 。函數(shù)名 : show_start_msg 。****************************************************************************************** show_title proc near push ax push bx push cx push dx mov dl,10h mov cx,10h yidong: push cx dec dl mov dh,0fh call SetGb mov al,020h mov ah,0eh int 10h inc dl mov dh,0ch call SetGb 19 mov bl,yello lea bp,title1 mov cx,26 call Msg mov dh,0dh call SetGb mov bl,yello lea bp,title2 mov cx,26 call Msg mov dh,0eh call SetGb mov bl,yello lea bp,title3 mov cx,26 call Msg mov dh,0fh call SetGb mov bl,yello lea bp,title4 mov cx,26 call Msg call delay inc dl pop cx call show_start_msg loop yidong mov ah,0ch mov al,0 int 21h pop dx pop cx pop bx pop ax ret show_title endp 。函數(shù)名 : show_title 。將數(shù)據(jù)段 ds送 es mov al , 0 mov ah , 13h mov bh , 0 int 10h pop es pop bx pop ax ret Msg endp 。 dh/dl 行 /列 。 bp 字符串偏移地址 。傳遞參數(shù) : 。函數(shù)名 : Msg 。****************************************************************************************** SetGb proc near push ax push bx mov bh , 0 mov ah , 02h int 10h pop bx pop ax ret SetGb endp 。功能 : 設(shè)置光標位置 。****************************************************************************************** 。設(shè)置文本模式 mov ah , 4ch int 21h 。等待按鍵 cmp ah , QUIT jz start cmp ah , SPACE jz game_start jmp exit_loop 。顯示字符串 mov dx , 1605h mov bl , white 。設(shè)置光標位置 mov bl , white 。開始運動蛇 exit: mov dx , 1010h 。初始化蛇 call getfood 。打印邊框 call clear_area 。設(shè)置圖形模式 320*200，游戲在此模式下運行 mov al , 13h int 10h mov cl , 7 。等待按鍵 cmp ah , QUIT jz does 。設(shè)置圖形模式 640*480 call show_start_msg 。****************************************************************************************** 。 39。press space for pause/continue39。ESC for back, Space for retry39。Press any key for start! Esc for exit39。Game is over!39。by:xiaobin39。Greedy Snakes39。最大格數(shù)（橫） max_y dw 49 。每格寬 cut_y dw 3 。上邊界 leftline dw 60 。****************************************************************************************** 。食物坐標 foodY dw ? seed dw 2 。游戲結(jié)束標記 Point db 0 。食物色 speed db 0 。得分 snake_color db 0ah 。Score0000039。蛇的長度 Body dw 200 dup(0) 。檢查是否反向 add bl , 1 jz check_nokey mov Direction , ax jmp check_nokey check_QUIT: jmp check_exit check_exit: 。檢查是否反向 sub bl , 1 jz check_nokey mov Direction , ax jmp check_nokey check_DOWN: mov ah , 0 。檢查是否反向 add bx , Direction jz check_nokey mov Direction , ax jmp check_nokey check_UP: mov ah , 0 。檢查是否反向 add bx , Direction jz check_nokey mov Direction , ax jmp check_nokey check_RIGHT: 11 mov ah , 1 。結(jié)束游戲 jz check_QUIT jmp check_nokey check_LEFT: mov ah , 1 。往上移動 jz check_UP cmp ah , DOWN 。往左移動 jz check_LEFT cmp ah , RIGHT 。如果沒有按鍵就繼續(xù) mov ah , 0 。乘象素值 add ax,leftline mov cx,ax pop dx mov ah,0dh mov bh,0 int 10h cmp al,snake_color jz M1 call cutfood 。乘象素值 add ax,topline mov dx,ax push dx mov ax,si 。賦予食物坐標 y mov si,foodx mov di,foody mov ax,di 。置隨機數(shù)范圍（最大值 +1） call Rand 。產(chǎn)生隨機數(shù) mov foodx,ax 。調(diào)用 cutfood 函數(shù)，將隨機食物在顯示屏輸出 getfood proc push ax push bx push cx push dx push si push di M1: mov si,50 。檢查按鍵 jmp loop1 。取到蛇尾 add bx , ax sub bx , 2 mov