1 DATAS SEGMENT 2 ;此处输入数据段代码 3 dw 0,0 4 snk db 1 ;蛇身的字符 5 snake_tail2 db 2 ;蛇倒数第二节的字符 6 food db 3 ;食物的字符 7 snake_tail db 4 ;蛇尾巴的字符 8 door_shape db 8 ;门的字符 9 squ db 9 ;障碍的字符 10 big_food db 15 ;大食物的字符 11 blank_space db 32 ;空字符 12 adrs db 5 ;读取的键盘数码 13 snake_length db ? ;蛇长 14 level db ? ;关卡 15 level_up_score db 4;过关条件 16 character db ? ;读取的字符 17 addrs dw ? ;蛇运动的方向 18 food_row db ? ;食物所在的行 19 food_column db ? ;食物所在列 20 hwrt db ? 21 gmov1 db' ####### ### ## ## ######## $' 22 gmov2 db' # # # # # # # # # $' 23 gmov3 db'# # # # # # # # $' 24 gmov4 db'########### # # # # # ####### $' 25 gmov5 db'# ####### # # # # $' 26 gmov6 db' # #### # # # # # # $' 27 gmov7 db' # # # # # # # # $' 28 gmov8 db' ###### # # # # # ######## $' 29 gmov9 db' $' 30 gmov10 db' ##### # # ######### ###### $' 31 gmov11 db' # # # # # # # $' 32 gmov12 db'# # # # # # # $' 33 gmov13 db'# # # # ######## # # $' 34 gmov14 db'# # # # # ###### $' 35 gmov15 db'# # # # # # ## $' 36 gmov16 db' # # # # # # ## $' 37 gmov17 db' ##### # ######### # ## $' 38 39 xing db '# $' 40 gmov db 'press r to restart press q to quit $' ;初始化信息 41 suc_msg db' You are successful going over all zhe levels $' 42 suc_msg1 db' Please press q to quit $' 43 score_msg db 'score :$' 44 score1 db 48 ;分数 45 score2 db 48 46 writer db 'Developer: $' 47 writer1 db 'Liu Gaoliang $' 48 ID db 'ID: 13349068 $' 49 level_msg db 'level: $' 50 msg1 db 'The way to play the game:$' 51 way db ' press w to up ,press s to down,press a to left,press d to right$' 52 msg db 'Press any key(except a,s,d,w) to start$' 53 DATAS ENDS 54 55 STACKS SEGMENT ;此处输入堆栈段代码 56 db 200 dup(0) 57 STACKS ENDS 58 59 CODES SEGMENT 60 ASSUME CS:CODES,DS:DATAS,SS:STACKS 61 62 START: 63 MOV AX,DATAS 64 MOV DS,AX ;此处输入代码段代码 65 mov ax,0 66 mov es,ax 67 ;******************************************** 68 ;清屏 69 clean_p macro 70 mov ah,6 71 mov al,0 72 mov ch,0 73 mov cl,0 74 mov dh,24 75 mov dl,79 76 mov bh,10 77 int 10h 78 endm 79 ;******************************************* 80 ;游戏左侧界面 81 firstrow macro 82 mov dh,2 ;score_msg的行 83 mov dl,2 ;score_msg的列 84 mov ah,2 ;int10h的功能号 85 mov bh,0 ;页号 86 int 10h 87 mov ah,9 88 lea dx,score_msg 89 int 21h 90 91 mov dh,3 92 mov dl,2 93 mov ah,2 94 mov bh,0 95 int 10h 96 mov ah,9 97 lea dx,level_msg 98 int 21h 99 100 mov dh,5 ;writer的行 101 mov dl,2 ;writer的列 102 mov ah,2 ;int10h的功能号 103 mov bh,0 ;页号 104 int 10h 105 mov ah,9 106 lea dx,writer 107 int 21h 108 109 mov dh,6 ;writer的行 110 mov dl,5 ;writer的列 111 mov ah,2 ;int10h的功能号 112 mov bh,0 ;页号 113 int 10h 114 mov ah,9 115 lea dx,writer1 116 int 21h 117 118 mov dh,8 119 mov dl,2 120 mov ah,2 121 mov bh,0 122 int 10h 123 mov ah,9 124 lea dx,ID 125 int 21h 126 127 ;----------------------------------------- 128 ;------------------------------------------- 129 mov dh,0 130 mov dl,19 131 mov ah,2 132 mov bh,0 133 int 10h 134 mov ah,9 135 lea dx,xing 136 int 21h 137 138 mov dh,1 139 mov dl,19 140 mov ah,2 141 mov bh,0 142 int 10h 143 mov ah,9 144 lea dx,xing 145 int 21h 146 147 mov dh,2 148 mov dl,19 149 mov ah,2 150 mov bh,0 151 int 10h 152 mov ah,9 153 lea dx,xing 154 int 21h 155 156 mov dh,3 157 mov dl,19 158 mov ah,2 159 mov bh,0 160 int 10h 161 mov ah,9 162 lea dx,xing 163 int 21h 164 165 mov dh,4 166 mov dl,19 167 mov ah,2 168 mov bh,0 169 int 10h 170 mov ah,9 171 lea dx,xing 172 int 21h 173 174 mov dh,5 175 mov dl,19 176 mov ah,2 177 mov bh,0 178 int 10h 179 mov ah,9 180 lea dx,xing 181 int 21h 182 183 mov dh,6 184 mov dl,19 185 mov ah,2 186 mov bh,0 187 int 10h 188 mov ah,9 189 lea dx,xing 190 int 21h 191 192 mov dh,7 193 mov dl,19 194 mov ah,2 195 mov bh,0 196 int 10h 197 mov ah,9 198 lea dx,xing 199 int 21h 200 201 mov dh,8 202 mov dl,19 203 mov ah,2 204 mov bh,0 205 int 10h 206 mov ah,9 207 lea dx,xing 208 int 21h 209 210 mov dh,9 211 mov dl,19 212 mov ah,2 213 mov bh,0 214 int 10h 215 mov ah,9 216 lea dx,xing 217 int 21h 218 219 mov dh,10 220 mov dl,19 221 mov ah,2 222 mov bh,0 223 int 10h 224 mov ah,9 225 lea dx,xing 226 int 21h 227 228 mov dh,11 229 mov dl,19 230 mov ah,2 231 mov bh,0 232 int 10h 233 mov ah,9 234 lea dx,xing 235 int 21h 236 237 mov dh,12 238 mov dl,19 239 mov ah,2 240 mov bh,0 241 int 10h 242 mov ah,9 243 lea dx,xing 244 int 21h 245 246 mov dh,13 247 mov dl,19 248 mov ah,2 249 mov bh,0 250 int 10h 251 mov ah,9 252 lea dx,xing 253 int 21h 254 255 mov dh,14 256 mov dl,19 257 mov ah,2 258 mov bh,0 259 int 10h 260 mov ah,9 261 lea dx,xing 262 int 21h 263 264 mov dh,15 265 mov dl,19 266 mov ah,2 267 mov bh,0 268 int 10h 269 mov ah,9 270 lea dx,xing 271 int 21h 272 273 mov dh,16 274 mov dl,19 275 mov ah,2 276 mov bh,0 277 int 10h 278 mov ah,9 279 lea dx,xing 280 int 21h 281 282 mov dh,17 283 mov dl,19 284 mov ah,2 285 mov bh,0 286 int 10h 287 mov ah,9 288 lea dx,xing 289 int 21h 290 291 mov dh,18 292 mov dl,19 293 mov ah,2 294 mov bh,0 295 int 10h 296 mov ah,9 297 lea dx,xing 298 int 21h 299 300 mov dh,19 301 mov dl,19 302 mov ah,2 303 mov bh,0 304 int 10h 305 mov ah,9 306 lea dx,xing 307 int 21h 308 309 mov dh,20 310 mov dl,19 311 mov ah,2 312 mov bh,0 313 int 10h 314 mov ah,9 315 lea dx,xing 316 int 21h 317 318 mov dh,21 319 mov dl,19 320 mov ah,2 321 mov bh,0 322 int 10h 323 mov ah,9 324 lea dx,xing 325 int 21h 326 327 mov dh,22 328 mov dl,19 329 mov ah,2 330 mov bh,0 331 int 10h 332 mov ah,9 333 lea dx,xing 334 int 21h 335 336 mov dh,23 337 mov dl,19 338 mov ah,2 339 mov bh,0 340 int 10h 341 mov ah,9 342 lea dx,xing 343 int 21h 344 345 346 mov dh,24 347 mov dl,19 348 mov ah,2 349 mov bh,0 350 int 10h 351 mov ah,9 352 lea dx,xing 353 int 21h 354 355 mov dh,25 356 mov dl,19 357 mov ah,2 358 mov bh,0 359 int 10h 360 mov ah,9 361 lea dx,xing 362 int 21h 363 364 ;------------------------------------------ 365 ;----------------------------------------- 366 367 endm 368 369 ;***************************************** 370 ;宏定义用于向当前光标处输出字符 371 write macro row,col,cnt,color 372 push bx 373 push cx 374 push dx 375 mov dh,row 376 mov dl,col 377 mov ah,2 378 mov bh,0 379 int 10h 380 mov ah,9 381 mov bl,color 382 mov cx,1 383 lea di,cnt 384 mov al,[di] 385 int 10h 386 pop dx 387 pop cx 388 pop bx 389 endm 390 391 ;*************************************** 392 ;用于读出当前光标处字符的宏定义 393 read macro row,col 394 push dx 395 push ax 396 push bx 397 mov dh,row 398 mov dl,col 399 mov ah,2 400 mov bh,0 401 int 10h 402 mov ah,08h 403 int 10h 404 mov character,al 405 pop bx 406 pop ax 407 pop dx 408 endm 409 ;************************************************************ 410 ;宏定义只用在宏中当readcg的所有判断都不成立调用此宏 411 wnear macro 412 local wnext1 413 local wnext2 414 local wnext3 415 local wnext4 416 push dx 417 dec dh 418 read dh,dl 419 cmp character,1 420 jne wnext1 421 write dh,dl,snake_tail2,9 422 jmp wnext4 423 wnext1: 424 inc dh 425 dec dl 426 read dh,dl 427 cmp character,1 428 jne wnext2 429 write dh,dl,snake_tail2,9 430 jmp wnext4 431 wnext2: 432 inc dh 433 inc dl 434 read dh,dl 435 cmp character,1 436 jne wnext3 437 write dh,dl,snake_tail2,9 438 jmp wnext4 439 wnext3: 440 dec dh 441 inc dl 442 read dh,dl 443 cmp character,1 444 jne wnext4 445 write dh,dl,snake_tail2,9 446 wnext4: 447 pop dx 448 endm 449 450 ;***************************************************** 451 ;宏定义用于改变判断出来的字符 452 ;实际就是实现蛇的前进过程 453 readcg macro row,col 454 local turn_up,turn_up1,turn_up2,turn_left,turn_left1,turn_left2,turn_down,turn_down1 ,turn_down2,turn_right,turn_right1,turn_right2,goout 455 push bx 456 push ax 457 push dx 458 ;row,col是倒数第二节蛇的行和列 459 write dh,dl,snake_tail,9 460 dec row 461 read dh,dl 462 cmp character,4 463 jne turn_up1 464 jmp turn_up2 465 turn_up1: 466 jmp turn_up 467 turn_up2: 468 write dh,dl,blank_space,0 469 inc dh 470 inc dh 471 read dh,dl 472 cmp character,1 473 jne turn_up 474 write dh,dl,snake_tail2,9 475 jmp near ptr goout 476 turn_up: 477 pop dx 478 push dx 479 dec col 480 read dh,dl 481 cmp character,4 482 jne turn_left1 483 jmp turn_left2 484 turn_left1: 485 jmp near ptr turn_left 486 turn_left2: 487 write dh,dl,blank_space,0 488 inc dl 489 inc dl 490 read dh,dl 491 cmp character,1 492 jne turn_left 493 write dh,dl,snake_tail2,9 494 jmp near ptr goout 495 turn_left: 496 pop dx 497 push dx 498 inc row 499 read dh,dl 500 cmp character,4 501 jne turn_down1 502 jmp turn_down2 503 turn_down1: 504 jmp near ptr turn_down 505 turn_down2: 506 write dh,dl,blank_space,0 507 dec dh 508 dec dh 509 read dh,dl 510 cmp character,1 511 jne turn_down 512 write dh,dl,snake_tail2,9 513 jmp near ptr goout 514 turn_down: 515 pop dx 516 push dx 517 inc col 518 read dh,dl 519 cmp character,4 520 jne turn_right1 521 jmp turn_right2 522 turn_right1: 523 jmp near ptr turn_right 524 turn_right2: 525 write dh,dl,blank_space,0 526 dec dl 527 dec dl 528 read dh,dl 529 cmp character,1 530 jne turn_right 531 write dh,dl,snake_tail2,9 532 jmp goout 533 turn_right: 534 pop dx 535 push dx 536 wnear 537 goout: 538 pop dx 539 pop ax 540 pop bx 541 endm 542 ;********************************************* 543 ;画一条初始蛇 544 creat_snake macro 545 local wrt 546 mov addrs,offset turnright 547 mov dh,10 548 mov dl,21 549 mov cx,3 550 write dh,dl,snake_tail,9 551 inc dl 552 write dh,dl,snake_tail2,9 553 wrt: 554 inc dl 555 write dh,dl,snk,9 556 loop wrt 557 endm 558 ;****************************************************** 559 ;画障碍方块的宏定义 560 creat_square macro square_row,square_col,row,col 561 local square1,square2,cycle1 562 mov dh, row 563 mov dl, col 564 mov cx ,square_row 565 square1: 566 push cx 567 mov cx,square_col 568 square2: 569 write dh,dl,squ,5 570 inc dl 571 cycle1: 572 loop square2 573 sub dl,square_col 574 inc dh 575 pop cx 576 loop square1 577 endm 578 579 ;*********************************************************8 580 ;程序开始运行的初始界面 581 mov dh,10 ;设置光标位置 582 mov dl,26 583 mov ah,2 584 mov bh,0 585 int 10h 586 mov ah,9 ;显示字符串 587 lea dx,msg1 588 int 21h 589 590 mov dh,11 ;设置光标位置 16 591 mov dl,7 592 mov ah,2 593 mov bh,0 594 int 10h 595 mov ah,9 ;显示字符串 596 lea dx,way 597 int 21h 598 599 mov dh,12 ;设置光标位置 600 mov dl,20 601 mov ah,2 602 mov bh,0 603 int 10h 604 mov ah,9 ;显示字符串 605 lea dx,msg 606 int 21h 607 608 mov ah,0 ;读字符 任意！ 609 int 16h 610 push es:[9*4] ;将原int9入口地址保存 611 pop ds:[0] 612 push es:[9*4+2] 613 pop ds:[2] 614 mov word ptr es:[9*4],offset int9 ;更改中断向量表 615 mov es:[9*4+2],cs 616 jmp begin_snake 617 ;********************************* 618 ;当蛇碰壁或自身转到此游戏结束 619 game_fail: 620 clean_p ;清屏 621 622 mov dh,1 623 mov dl,17 624 mov ah,2 625 mov bh,0 626 int 10h 627 mov ah,9 628 lea dx,gmov1 629 int 21h 630 631 mov dh,2 632 mov dl,17 633 mov ah,2 634 mov bh,0 635 int 10h 636 mov ah,9 637 lea dx,gmov2 638 int 21h 639 640 mov dh,3 641 mov dl,17 642 mov ah,2 643 mov bh,0 644 int 10h 645 mov ah,9 646 lea dx,gmov3 647 int 21h 648 649 mov dh,4 650 mov dl,17 651 mov ah,2 652 mov bh,0 653 int 10h 654 mov ah,9 655 lea dx,gmov4 656 int 21h 657 658 mov dh,5 659 mov dl,17 660 mov ah,2 661 mov bh,0 662 int 10h 663 mov ah,9 664 lea dx,gmov5 665 int 21h 666 667 mov dh,6 668 mov dl,17 669 mov ah,2 670 mov bh,0 671 int 10h 672 mov ah,9 673 lea dx,gmov6 674 int 21h 675 676 mov dh,7 677 mov dl,17 678 mov ah,2 679 mov bh,0 680 int 10h 681 mov ah,9 682 lea dx,gmov7 683 int 21h 684 685 mov dh,8 686 mov dl,17 687 mov ah,2 688 mov bh,0 689 int 10h 690 mov ah,9 691 lea dx,gmov8 692 int 21h 693 694 mov dh,9 695 mov dl,17 696 mov ah,2 697 mov bh,0 698 int 10h 699 mov ah,9 700 lea dx,gmov9 701 int 21h 702 703 mov dh,10 704 mov dl,17 705 mov ah,2 706 mov bh,0 707 int 10h 708 mov ah,9 709 lea dx,gmov10 710 int 21h 711 712 mov dh,11 713 mov dl,17 714 mov ah,2 715 mov bh,0 716 int 10h 717 mov ah,9 718 lea dx,gmov11 719 int 21h 720 721 mov dh,12 722 mov dl,17 723 mov ah,2 724 mov bh,0 725 int 10h 726 mov ah,9 727 lea dx,gmov12 728 int 21h 729 730 mov dh,13 731 mov dl,17 732 mov ah,2 733 mov bh,0 734 int 10h 735 mov ah,9 736 lea dx,gmov13 737 int 21h 738 739 mov dh,14 740 mov dl,17 741 mov ah,2 742 mov bh,0 743 int 10h 744 mov ah,9 745 lea dx,gmov14 746 int 21h 747 748 mov dh,15 749 mov dl,17 750 mov ah,2 751 mov bh,0 752 int 10h 753 mov ah,9 754 lea dx,gmov15 755 int 21h 756 757 mov dh,16 758 mov dl,17 759 mov ah,2 760 mov bh,0 761 int 10h 762 mov ah,9 763 lea dx,gmov16 764 int 21h 765 766 mov dh,17 767 mov dl,17 768 mov ah,2 769 mov bh,0 770 int 10h 771 mov ah,9 772 lea dx,gmov17 773 int 21h 774 ;------------------------------------------ 775 ;----------------------------------------- 776 777 mov dh,19 778 mov dl,17 779 mov ah,2 780 mov bh,0 781 int 10h 782 mov ah,9 783 lea dx,gmov 784 int 21h 785 786 mov ax,0 ;恢复int9中断 787 mov es,ax 788 push ds:[0] 789 pop es:[9*4] 790 push ds:[2] 791 pop es:[9*4+2] 792 stop: 793 mov ah,0 794 int 16h 795 cmp al,'r' 796 je restar 797 jmp quit 798 restar: 799 jmp near ptr start 800 quit: 801 cmp al,'q' 802 jne stop 803 jmp near ptr exit 804 ;*********************************************** 805 ;关卡升级 806 level_up: 807 inc level 808 cmp level,50 809 je new1 810 cmp level,51 811 je new2 812 cmp level,52 813 je new3 814 cmp level,53 815 je new4 816 817 new1: 818 jmp level_1 819 new2: 820 jmp level_2 821 new3: 822 jmp level_3 823 new4: 824 jmp succssul_exit 825 ;************************************************ 826 ;从这开始产生最原始的蛇 827 begin_snake: 828 clean_p 829 firstrow 830 creat_snake 831 mov snake_length,0 832 mov ax,0 833 mov score1,48 834 mov score2,48 835 mov level,49 836 call creat_food 837 write 2,9,level,5 838 jmp snake_run 839 level_1: 840 CLEAN_P 841 FIRSTROW 842 write 2,9,level,5 843 creat_square 13,4,7,40 844 creat_snake 845 mov snake_length,0 846 jmp level_back 847 848 level_2: 849 CLEAN_P 850 FIRSTROW 851 write 2,9,level,5 852 creat_square 7,20,0,20 853 creat_square 7,20,18,20 854 creat_square 7,20,0,60 855 creat_square 7,20,18,60 856 creat_snake 857 mov snake_length,0 858 jmp level_back 859 860 level_3: 861 CLEAN_P 862 FIRSTROW 21 863 write 2,9,level,5 864 creat_square 13,4,7,20 865 creat_square 13,4,7,60 866 creat_square 2,22,6,30 867 creat_square 2,22,20,30 868 creat_snake 869 mov snake_length,0 870 jmp level_back 871 ;************************************************** 872 ;************************************************* 873 ;此处蛇行走过程的无限循环,进入后也是在此一直循环 874 snake_run: 875 call dly 876 ;*********************************************** 877 ;判断进关卡门 878 push dx 879 lea ax,turnright 880 cmp addrs,ax ; 先判断，蛇前进的方向， 881 jne cgn_door2 ;再判断蛇头前面的是否是门 882 inc dl 883 read dh,dl 884 cmp character,8 885 je cgn_door1 886 jmp cgn_door2 887 cgn_door1: 888 jmp level_up 889 cgn_door2: 890 pop dx 891 push dx 892 lea ax,turnup 893 cmp addrs,ax 894 jne cgn_door4 895 dec dh 896 read dh,dl 897 cmp character,8 898 je cgn_door3 899 jmp cgn_door4 900 cgn_door3: 901 jmp level_up 902 cgn_door4: 903 pop dx 904 push dx 905 lea ax,turndown 906 cmp addrs,ax 907 jne cgn_door6 908 inc dh 909 read dh,dl 910 cmp character,8 911 je cgn_door5 912 jmp cgn_door6 913 cgn_door5: 914 jmp level_up 915 cgn_door6: 916 pop dx 917 push dx 918 lea ax,turnleft 919 cmp addrs,ax 920 jne cgn_door8 921 dec dl 922 read dh,dl 923 cmp character,8 924 je cgn_door7 925 jmp cgn_door8 926 cgn_door7: 927 jmp level_up 928 cgn_door8: 929 pop dx 930 ;********************************** 931 ;判断是否碰墙 932 push dx 933 inc dh 934 cmp dh,25 935 je tonxt1 936 inc dl 937 cmp dl,80 938 je tonxt1 939 pop dx 940 push dx 941 dec dh 942 cmp dh,0 943 je tonxt1 944 dec dl 945 cmp dl,18 946 je tonxt1 947 pop dx 948 ;判断是否碰自己，障碍 949 ;有判断前面那个是什么, 950 ;分上下左右4个情况 951 push dx 952 lea ax,turnright 953 cmp addrs,ax 954 jne tonxt2 955 inc dl 956 read dh,dl 957 cmp character,1 958 je tonxt1 959 cmp character,2 960 je tonxt1 961 cmp character,4 962 je tonxt1 963 cmp character,9 964 je tonxt1 965 jmp tonxt2 966 tonxt1: 967 jmp game_fail 968 tonxt2: 969 pop dx 970 push dx 971 lea ax,turnup 972 cmp addrs,ax 973 jne tonxt4 974 dec dh 975 read dh,dl 976 cmp character,1 977 je tonxt3 978 cmp character,2 979 je tonxt3 980 cmp character,4 981 je tonxt3 982 cmp character,9 983 je tonxt3 984 jmp tonxt4 985 tonxt3: 986 jmp game_fail 987 tonxt4: 988 pop dx 989 push dx 990 lea ax,turndown 991 cmp addrs,ax 992 jne tonxt6 993 inc dh 994 read dh,dl 995 cmp character,1 996 je tonxt5 997 cmp character,2 998 je tonxt5 999 cmp character,4 1000 je tonxt5 1001 cmp character,9 1002 je tonxt5 1003 jmp tonxt6 1004 tonxt5: 1005 jmp game_fail 1006 tonxt6: 1007 pop dx 1008 push dx 1009 lea ax,turnleft 1010 cmp addrs,ax 1011 jne tonxt8 1012 dec dl 1013 read dh,dl 1014 cmp character,1 1015 je tonxt7 1016 cmp character,2 1017 je tonxt7 1018 cmp character,4 1019 je tonxt7 1020 cmp character,9 1021 je tonxt7 1022 jmp tonxt8 1023 tonxt7: 1024 jmp game_fail 1025 tonxt8: 1026 pop dx 1027 jmp nexta ;再去判断前面的是否是食物 1028 crtf1: 1029 call addone 1030 crtf: 1031 push dx 1032 push cx 1033 push ax 1034 mov al,level_up_score 1035 cmp snake_length,al ;达到条件 1036 jb level_back ;创建一个门 1037 call creat_door 1038 pop ax 1039 pop cx 1040 pop dx 1041 level_back: 1042 call creat_food 1043 nexta: 1044 mov ah,food_row 1045 mov al,food_column 1046 cmp ax,dx 1047 je crtf12 1048 jmp crtf13 1049 crtf12: 1050 jmp crtf1 1051 crtf13: 1052 push dx 1053 cmp score2,58 1054 jb normal 1055 sub score2,10 1056 inc score1 1057 normal: 1058 mov dh,1 1059 mov dl,9 1060 write dh,dl,score1,4 1061 add dl,1 1062 write dh,dl,score2,4 1063 pop dx 1064 cmp adrs,17 1065 je jmp1 1066 cmp adrs,145 1067 je jmp1 1068 cmp adrs,31 1069 je jmp2 1070 cmp adrs,159 1071 je jmp2 1072 cmp adrs,32 1073 je jmp3 1074 cmp adrs,160 1075 je jmp3 1076 cmp adrs,30 1077 je jmp4 1078 cmp adrs,158 1079 je jmp4 1080 jmp addrs 1081 jmp1: 1082 lea ax, turndown 1083 cmp ax,addrs 1084 je jmp2 1085 mov addrs,offset turnup 1086 jmp near ptr turnup 1087 jmp2: 1088 lea ax,turnup 1089 cmp ax,addrs 1090 je jmp1 1091 mov addrs,offset turndown 1092 jmp near ptr turndown 1093 jmp3: 1094 lea ax,turnleft 1095 cmp ax,addrs 1096 je jmp4 1097 mov addrs,offset turnright 1098 jmp near ptr turnright 1099 jmp4: 1100 lea ax,turnright 1101 cmp ax,addrs 1102 je jmp3 1103 mov addrs,offset turnleft 1104 jmp near ptr turnleft 1105 ;*********************************** 1106 ;此处实现蛇向左走 1107 1108 turnright: 1109 push dx 1110 mov dh,1 1111 mov dl,0 1112 mov cx,23 1113 cmpr1: 1114 push cx 1115 mov cx,79 1116 cmpr2: 1117 read dh,dl 1118 cmp character,2 1119 je nextr4 1120 jmp near ptr nextr 1121 nextr4: 1122 readcg dh,dl 1123 pop cx 1124 jmp near ptr endr 1125 nextr: 1126 inc dl 1127 jmp nextr2 1128 chgr2: 1129 jmp near ptr cmpr2 1130 nextr2: 1131 loop chgr2 1132 sub dl,79 1133 inc dh 1134 pop cx 1135 jmp nextr1 1136 chgr1: 1137 jmp near ptr cmpr1 1138 nextr1: 1139 loop chgr1 1140 endr: 1141 pop dx 1142 inc dl 1143 write dh,dl,snk,9 ;食物变蛇，实现前进 1144 jmp near ptr snake_run 1145 1146 ;********************************* 1147 ;此处实现蛇向上走 1148 turnup: 1149 push dx 1150 mov dh,1 1151 mov dl,0 1152 mov cx,23 1153 cmpu1: 1154 push cx 1155 mov cx,79 1156 1157 cmpu2: 1158 read dh,dl 1159 cmp character,2 1160 jne nextu3 1161 jmp nextu4 1162 nextu3: 1163 jmp near ptr nextu 1164 nextu4: 1165 readcg dh,dl 1166 pop cx 1167 jmp near ptr endu 1168 nextu: 1169 inc dl 1170 jmp nextu2 1171 chgu2: 1172 jmp near ptr cmpu2 1173 nextu2: 1174 loop chgu2 1175 sub dl,79 1176 inc dh 1177 pop cx 1178 jmp nextu1 1179 chgu1: 1180 jmp near ptr cmpu1 1181 nextu1: 1182 loop chgu1 1183 endu: 1184 pop dx 1185 dec dh 1186 write dh,dl,snk,9 1187 jmp near ptr snake_run 1188 ;************************************* 1189 ;此处实现蛇向下走 1190 turndown: 1191 push dx 1192 mov dh,1 1193 mov dl,0 1194 mov cx,23 1195 cmpd1: 1196 push cx 1197 mov cx,79 1198 cmpd2: 1199 read dh,dl 1200 cmp character,2 1201 jne nextd3 1202 jmp nextd4 1203 nextd3: 1204 jmp near ptr nextd 1205 nextd4: 1206 readcg dh,dl 1207 pop cx 1208 jmp near ptr endd 1209 nextd: 1210 inc dl 1211 jmp nextd2 1212 chgd2: 1213 jmp near ptr cmpd2 1214 nextd2: 1215 loop chgd2 1216 sub dl,79 1217 inc dh 1218 pop cx 1219 jmp nextd1 1220 chgd1: 1221 jmp near ptr cmpd1 1222 nextd1: 1223 loop chgd1 1224 endd: 1225 pop dx 1226 inc dh 1227 write dh,dl,snk,9 1228 jmp near ptr snake_run 1229 ;********************************************** 1230 ;此处实现蛇向右走 1231 turnleft: 1232 push dx 1233 mov dh,1 1234 mov dl,0 1235 mov cx,23 1236 cmpb1: 1237 push cx 1238 mov cx,79 1239 cmpb2: 1240 read dh,dl 1241 cmp character,2 1242 jne nextb3 1243 jmp nextb4 1244 nextb3: 1245 jmp near ptr nextb 1246 nextb4: 1247 readcg dh,dl 1248 pop cx 1249 jmp near ptr endb 1250 nextb: 1251 inc dl 1252 jmp nextb2 1253 chgb2: 1254 jmp near ptr cmpb2 1255 nextb2: 1256 loop chgb2 1257 sub dl,79 1258 inc dh 1259 pop cx 1260 jmp nextb1 1261 chgb1: 1262 jmp near ptr cmpb1 1263 nextb1: 1264 loop chgb1 1265 endb: 1266 pop dx 1267 dec dl 1268 write dh,dl,snk,9 1269 jmp near ptr snake_run 1270 ;******************************** 1271 ;过关成功,从此退出 1272 succssul_exit: 1273 mov ah,6 1274 mov al,0 1275 mov ch,0 1276 mov cl,0 1277 mov dh,24 1278 mov dl,79 1279 mov bh,7 1280 int 10h 1281 mov dh,17 1282 mov dl,17 1283 mov ah,2 1284 mov bh,0 1285 int 10h 1286 mov ah,9 1287 lea dx,suc_msg 1288 int 21h 1289 1290 mov dh,19 1291 mov dl,17 1292 mov ah,2 1293 mov bh,0 1294 int 10h 1295 mov ah,9 1296 lea dx,suc_msg1 1297 int 21h 1298 1299 ;恢复int9中断 1300 mov ax,0 1301 mov es,ax 1302 push ds:[0] 1303 pop es:[9*4] 1304 push ds:[2] 1305 pop es:[9*4+2] 1306 stop1: 1307 mov ah,0 1308 int 16h 1309 cmp al,'q' 1310 jne stop1 1311 jmp near ptr exit 1312 ;************************* 1313 ;退出时,恢复int9中断 1314 exit: 1315 mov ax,0 1316 mov es,ax 1317 push ds:[0] 1318 pop es:[9*4] 1319 push ds:[2] 1320 pop es:[9*4+2] 1321 mov ah,4ch 1322 int 21h 1323 ;**************************** 1324 ;更改后的中断服务程序 1325 int9: 1326 push ax 1327 in al,60h 1328 mov adrs,al 1329 mov al,20h 1330 out 20h,al 1331 pop ax 1332 iret 1333 ;********************************************* 1334 ;延时子程序 1335 DLY PROC near 1336 PUSH CX 1337 PUSH DX 1338 MOV DX,50 1339 DL1: 1340 MOV CX,9801 1341 DL2: 1342 LOOP DL2 1343 DEC DX 1344 JNZ DL1 1345 POP DX 1346 POP CX 1347 RET 1348 DLY ENDP 1349 ;*********************************************** 1350 ;创建过关的门 1351 creat_door proc 1352 mov dh,10 1353 mov dl, 78 1354 mov cx ,4 1355 square1: 1356 push cx 1357 mov cx,2 1358 square2: 1359 write dh,dl,door_shape ,13 1360 inc dl 1361 1362 cycle1: 1363 loop square2 1364 sub dl,2 1365 inc dh 1366 pop cx 1367 loop square1 1368 ret 1369 creat_door endp 1370 ;************************************************ 1371 ;将蛇身增加一 1372 addone proc 1373 call music 1374 push dx 1375 inc score2 1376 cmp snake_length,6 1377 jb normal_score 1378 inc score2 1379 normal_score: 1380 inc snake_length 1381 mov dh,1 1382 mov dl,0 1383 mov cx,23 1384 cmpad1: 1385 push cx 1386 mov cx,79 1387 cmpad2: 1388 read dh,dl 1389 cmp character,2 1390 jne nextad3 1391 jmp nextad4 1392 nextad3: 1393 jmp near ptr nextad 1394 nextad4: 1395 write dh,dl,snk,9 1396 dec dh 1397 read dh,dl 1398 ;移动1位 1399 cmp character,4 1400 jne natup 1401 write dh,dl,snake_tail2,9 1402 dec dh 1403 write dh,dl,snake_tail,9 1404 jmp outo 1405 natup: ;上下左右四种情况 1406 inc dh 1407 dec dl 1408 read dh,dl 1409 cmp character,4 1410 jne natlf 1411 write dh,dl,snake_tail2,9 1412 dec dl 1413 write dh,dl,snake_tail,9 1414 jmp outo 1415 natlf: 1416 inc dh 1417 inc dl 1418 read dh,dl 1419 cmp character,4 1420 jne natdn 1421 write dh,dl,snake_tail2,9 1422 inc dh 1423 write dh,dl,snake_tail,9 1424 jmp outo 1425 natdn: 1426 dec dh 1427 inc dl 1428 read dh,dl 1429 cmp character,4 1430 jne natrt 1431 write dh,dl,snake_tail2,9 1432 inc dl 1433 write dh,dl,snake_tail,9 1434 natrt: 1435 outo: 1436 pop cx 1437 jmp near ptr endad 1438 nextad: 1439 inc dl 1440 jmp nextad2 1441 chgad2: 1442 jmp near ptr cmpad2 1443 nextad2: 1444 loop chgad2 1445 sub dl,79 1446 inc dh 1447 pop cx 1448 jmp nextad1 1449 chgad1: 1450 jmp near ptr cmpad1 1451 nextad1: 1452 loop chgad1 1453 endad: 1454 pop dx 1455 ret 1456 addone endp 1457 ;****************************************************** 1458 ;创建食物的子程序 1459 creat_food proc 1460 call rand1 1461 call rand2 1462 mov ah,food_row 1463 mov al,food_column 1464 re_creat_food: 1465 mov food_row,ah 1466 mov food_column,al 1467 push dx 1468 mov dh,1 1469 mov dl,0 1470 push cx 1471 mov cx,23 1472 check1: 1473 push cx 1474 mov cx,79 1475 check2: 1476 read dh,dl 1477 cmp character,1 1478 je nextn 1479 cmp character,2 1480 je nextn 1481 cmp character,4 1482 je nextn 1483 cmp character,5 1484 je nextn 1485 cmp character,9 1486 je nextn 1487 jmp nextnn 1488 nextn: 1489 cmp ax,dx 1490 jne nextnn 1491 inc ah 1492 inc al 1493 cmp ah,22 1494 jb go1 1495 sub ah,21 1496 go1: 1497 cmp al,78 ;食物位置的限制 1498 jb go2 1499 sub al,77 1500 go2: 1501 pop cx 1502 pop cx 1503 pop dx 1504 jmp re_creat_food 1505 1506 nextnn: 1507 inc dl 1508 loop check2 1509 inc dh 1510 sub dl,79 1511 pop cx 1512 loop check1 1513 pop cx 1514 pop dx 1515 cmp snake_length,5;length大于5 产生大食物 1516 ja bigfood 1517 write AH,AL,food,4 1518 jmp normalfood 1519 bigfood: 1520 write AH,AL,big_food,4 1521 jmp normalfood 1522 normalfood: 1523 ret 1524 creat_food endp 1525 ;******************************************************* 1526 ;随机数产生食物的行，列 1527 RAND1 PROC 1528 PUSH CX 1529 PUSH DX 1530 PUSH AX 1531 STI 1532 MOV AH,0 1533 INT 1AH 1534 MOV AX,DX 1535 AND AH,3 1536 MOV DL,21 ;除21 ，产生0~20余数 1537 DIV DL 1538 add ah,2 1539 MOV food_row,AH ;余数存food_row，作随机行数 1540 POP AX 1541 POP DX 1542 POP CX 1543 RET 1544 RAND1 ENDP 1545 1546 RAND2 PROC 1547 PUSH CX 1548 PUSH DX 1549 PUSH AX 1550 STI 1551 MOV AH,0 1552 INT 1AH 1553 MOV AX,DX 1554 AND AH,3 1555 MOV DL,57 ;除57，产生0~57余数 1556 DIV DL 1557 inc ah 1558 add ah,20 1559 MOV food_column,AH ;余数存food_column，作随机列数 1560 POP AX 1561 POP DX 1562 POP CX 1563 RET 1564 RAND2 ENDP 1565 ;********************************************************************* 1566 ;声音程序 1567 music proc 1568 push cx 1569 push di 1570 mov cx,10 1571 freq: 1572 mov di ,600 1573 call gensound 1574 loop freq 1575 end_mus: 1576 pop di 1577 pop cx 1578 ret 1579 music endp 1580 1581 gensound proc 1582 push ax 1583 push bx 1584 push cx 1585 push dx 1586 push di 1587 mov al,0b6h 1588 out 43h,al 1589 mov dx,12h 1590 mov ax,348ch 1591 div di 1592 out 42h,al 1593 mov al,ah 1594 out 42h,al 1595 in al,61h 1596 mov ah,al 1597 or al,3 1598 out 61h,al 1599 wait1: 1600 mov cx,400 1601 delay: 1602 loop delay 1603 dec dx 1604 jnz wait1 1605 mov al,ah 1606 out 61h,al 1607 pop di 1608 pop dx 1609 pop cx 1610 pop bx 1611 pop ax 1612 ret 1613 gensound endp 1614 1615 CODES ENDS 1616 END START
masm版本