| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5879 人关注过本帖
标题:[原创]贪吃蛇
只看楼主 加入收藏
zhulei1978
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:53
帖 子:1351
专家分:1200
注 册:2006-12-17
结帖率:100%
收藏
 问题点数:0 回复次数:4 
[原创]贪吃蛇
以前写的贪吃蛇,加上了本论坛的链接

程序代码:
;时间:2016/05/03
;QQ:331507760
;来自 南京理工大学

DATA    SEGMENT

 SEGMENT1C DW 0

 OFF1C DW 0 

 SCORE DB 5 DUP('0'),'$'

 PADMSG DB 44 DUP(219)

 TMPMSG DB 25 DUP(?)

 STARTMSG1 DB 0DH,0AH,'SELECT SPEED.',0DH,0AH,'$'

 STARTMSG2 DB 20H,20H,'1. FAST',0DH,0AH,'$'

 STARTMSG3 DB 20H,20H,'2. MIDDLE',0DH,0AH,'$'

 STARTMSG4 DB 20H,20H,'3. SLOW',0DH,0AH,'$'

 STARTMSG5 DB 20H,20H,'0. EXIT',0DH,0AH,'$'

 ENDMSG  DB 0DH,0AH,'GOOD BYE!',0DH,0AH,'$'

 SCOREMSG1       DB      201,11 DUP(205),187

 SCOREMSG2       DB      186,'SCORE:     ',186

 SCOREMSG3       DB      204,11 DUP(205),185

 SCOREMSG4       DB      186,'LEFT  : A  ',186

 SCOREMSG5       DB      186,'RIGHT : D  ',186

 SCOREMSG6       DB      186,'UP    : W  ',186

 SCOREMSG7       DB      186,'DOWN  : S  ',186

 SCOREMSG8       DB      186,'-----------',186

 SCOREMSG9       DB      186,'EXIT  : ESC',186

 SCOREMSG10      DB      200,11 DUP(205),188

 SG DB 'http://bbs.bccn.net/'

 SPEED DB 0

 TIM DB 0

 CON DB ?

 NUM DW ?

 PADMSG1 DB 400 DUP(?,?,?)

 FORM DB 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
      DB 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA ENDS 

STACK SEGMENT STACK

 DB 200 DUP(?)
STACK ENDS 

CODE SEGMENT

 ASSUME  CS:CODE,DS:DATA,ES:DATA,SS:STACK
START:  MOV AX,DATA

 MOV DS,AX

 PUSH DS

 ;GET INT 1C ADRESS
 MOV AL,1CH

 MOV AH,35H

 INT 21H

 MOV SEGMENT1C,ES

 MOV OFF1C,BX

 ;SET INT 1C ADRESS
 MOV DX,OFFSET INT1C

 MOV AX,SEG INT1C

 MOV DS,AX

 MOV AL,1CH

 MOV AH,25H

 INT 21H

 POP DS

 
GAMEOVER: 

 MOV AH,00H

 MOV AL,03H

 INT  10H
SELECTSPEED:

 MOV AH,09H

 MOV DX,OFFSET STARTMSG1

 INT 21H

 MOV DX,OFFSET STARTMSG2

 INT 21H

 MOV DX,OFFSET STARTMSG3

 INT 21H

 MOV DX,OFFSET STARTMSG4

 INT 21H

 MOV DX,OFFSET STARTMSG5

 INT 21H

 MOV AH,08H

 INT  21H

 SUB AL,'0'

 MOV CL,AL

 AND AL,3

 CMP AL,CL
        JNE     SELECTSPEED
        INC AL

 INC CL

 MUL CL
        CMP     AL,1H
        JE EXIT1

 MOV SPEED,AL
  

 ;SET GRAPHICS
 MOV AH,00H

 MOV AL,12H

 INT 10H

 MOV AH,0BH

 MOV BH,01

 MOV BL,00H

 INT 10H

 ;START  GAME
 CALL INITGAME

 CALL DISPSCORE

 CALL RANDOM

 CALL  DELAY

 
MOV TIM,0H
LOOP1:

 STI

 CMP CON,0

 JZ LOOP11

 MOV DL,07H

 MOV AH,02H

 INT  21H

 MOV AH,08H

 INT  21H

 JMP GAMEOVER
LOOP11:

 

 MOV AL,TIM

 CMP AL,SPEED

 JG TIME

 JMP LOOP1

TIME: 

 MOV TIM,0H

 MOV  AH,1

 INT  16H

 JNZ  FLAG3

 CALL BLANK 
  JMP LOOP1
FLAG3:

 MOV  AH,0

 INT  16H

 PUSH AX

 MOV  AH,1

 INT  16H
JZ FLAG2
  POP AX

 JMP FLAG3

 EXIT1:
JMP EXIT
FLAG2:
  POP AX
   CMP  AL,1BH
   JZ  EXIT
   CMP AL,'a'
   JZ KA
   CMP AL,'s'
   JZ KS
   CMP AL,'d'
   JZ KD
   CMP AL,'w'
   JZ KW
   CALL BLANK
   JMP LOOP1
KA:

 CALL LEFT

 JMP  LOOP1
KS:
CALL DOWN   

 JMP LOOP1
KD:
CALL  RIGHT

 JMP LOOP1
KW:

 CALL  UP

 JMP LOOP1

EXIT: 

 ;SET GRAPHICS
 MOV AX,0003H

 INT  10H

 MOV AX,DATA

 MOV DS,AX

 MOV DX,OFFSET ENDMSG

 MOV AH,09H

 INT  21H

 ;SET INT 1C ADRESS
 MOV DX,OFF1C

 MOV AX,SEGMENT1C

 MOV DS,AX

 MOV AL,1CH

 MOV AH,25H

 INT 21H

 MOV AX,4C00H

 INT 21H 

INT1C PROC

 STI

 PUSH AX

 PUSH DX

 MOV AX,DATA

 MOV DS,AX

 INC TIM

 POP  DX

 POP AX

 IRET
INT1C ENDP 

LEFT PROC NEAR

 MOV SI,0

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV CH,PADMSG1[SI]

 MOV CL,PADMSG1[SI+1]

 CMP PADMSG1[SI+2],1

 JNZ LEFT1

 CALL CHECK1

 JMP LEXIT1
LEFT1:

 CALL CHECK3
LEXIT1:

 RET
LEFT ENDP

RIGHT PROC NEAR

 MOV SI,0

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV CH,PADMSG1[SI]

 MOV CL,PADMSG1[SI+1]

 CMP PADMSG1[SI+2],3

 JNZ RIGHT1

 CALL CHECK3

 JMP REXIT1
RIGHT1:

 CALL CHECK1
REXIT1:

 RET
RIGHT ENDP

CHECK1 PROC NEAR

 MOV AL,CH

 SUB AL,3

 MOV BL,22

 MUL BL

 MOV SI,0

 ADD SI,AX

 ADD CL,2

 SHR CL,1

 SUB CL,2

 MOV CH,0

 ADD SI,CX

 CMP FORM[SI],0

 JNZ CHECK11

 CALL FORM10

 JMP C1EXIT1
CHECK11:

 CMP FORM[SI],1

 JNZ CHECK12

 CALL FORM11

 JMP C1EXIT1
CHECK12:

 CMP FORM[SI],3

 JNZ CHECK13

 CALL FORM13

 JMP C1EXIT1
CHECK13:

 MOV CON,1
C1EXIT1:

 RET
CHECK1 ENDP


FORM10 PROC NEAR

 MOV BL,0

 CALL CLEAR0

 MOV SI,OFFSET PADMSG1

 MOV DH,[SI]

 MOV DL,[SI+1]

 CALL DISPCELL

 MOV DI,SI

 ADD SI,3

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 MOV CX,AX

 CLD
FORM101:

 LODSB

 STOSB
LOOP FORM101

 DEC DI

 MOV BYTE PTR [DI],1

 DEC SI

 MOV BYTE PTR [SI],1

 DEC SI

 ADD BYTE PTR [SI],2

 MOV DH,[SI-1]

 MOV DL,[SI]

 MOV BL,01010101B

 CALL DISPCELL

 MOV BL,1

 CALL CLEAR0

 RET
FORM10 ENDP

 

FORM11 PROC NEAR

 MOV SI,OFFSET PADMSG1

 MOV CH,[SI]

 MOV CL,[SI+1]

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV BH,[SI]

 MOV BL,[SI+1]

 ADD BL,2

 CMP BH,CH

 JNZ FORM111

 CMP BL,CL

 JNZ FORM111

 CALL FORM10

 JMP F11EXIT1
FORM111:

 MOV CON,1
F11EXIT1:

 RET
FORM11 ENDP

FORM13 PROC NEAR

 MOV BL,0

 CALL CLEAR0

 MOV SI,OFFSET PADMSG1

 MOV AX,NUM

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV AL,[SI-3]

 MOV [SI],AL

 MOV AL,[SI-2]

 ADD AL,2

 MOV [SI+1],AL

 MOV BYTE PTR [SI-1],1

 MOV BYTE PTR [SI+2],1

 INC NUM

 MOV DH,[SI]

 MOV DL,[SI+1]

 MOV BL,01010101B

 CALL DISPCELL

 MOV BL,1

 CALL CLEAR0

 INC SCORE[4]

 MOV CX,05H

 MOV SI,04H
FORM131: CMP SCORE[SI],'9'

 JNG FORM132

 INC SCORE[SI-1]

 SUB SCORE[SI],0AH
FORM132: DEC SI

 LOOP FORM131

 CALL DISPSCORE

 CALL RANDOM

 RET
FORM13 ENDP

CHECK3 PROC NEAR

 MOV AL,CH

 SUB AL,3

 MOV BL,22

 MUL BL

 MOV SI,0

 ADD SI,AX

 SUB CL,2

 SHR CL,1

 SUB CL,2

 MOV CH,0

 ADD SI,CX

 CMP FORM[SI],0

 JNZ CHECK31

 CALL FORM30

 JMP C3EXIT1
CHECK31:

 CMP FORM[SI],1

 JNZ CHECK32

 CALL FORM31

 JMP C3EXIT1
CHECK32:

 CMP FORM[SI],3

 JNZ CHECK33

 CALL FORM33

 JMP C3EXIT1
CHECK33:

 MOV CON,1
C3EXIT1:

 RET
CHECK3 ENDP

FORM30 PROC NEAR

 MOV BL,0

 CALL CLEAR0

 MOV SI,OFFSET PADMSG1

 MOV DH,[SI]

 MOV DL,[SI+1]

 CALL DISPCELL

 MOV DI,SI

 ADD SI,3

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 MOV CX,AX

 CLD
FORM301:

 LODSB

 STOSB
LOOP FORM301

 DEC DI

 MOV BYTE PTR [DI],3

 DEC SI

 MOV BYTE PTR [SI],3

 DEC SI

 SUB BYTE PTR [SI],2

 MOV BL,01010101B

 MOV DH,[SI-1]

 MOV DL,[SI]

 MOV BL,01010101B

 CALL DISPCELL

 MOV BL,1

 CALL CLEAR0

 RET
FORM30 ENDP

FORM31 PROC NEAR

 MOV SI,OFFSET PADMSG1

 MOV CH,[SI]

 MOV CL,[SI+1]

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV BH,[SI]

 MOV BL,[SI+1]

 SUB BL,2

 CMP BH,CH

 JNZ FORM311

 CMP BL,CL

 JNZ FORM311

 CALL FORM30

 JMP F31EXIT1
FORM311:

 MOV CON,1
F31EXIT1:

 RET
FORM31 ENDP

 
FORM33 PROC NEAR

 MOV BL,0

 CALL CLEAR0

 MOV SI,OFFSET PADMSG1

 MOV AX,NUM

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV AL,[SI-3]

 MOV [SI],AL

 MOV AL,[SI-2]

 SUB AL,2

 MOV [SI+1],AL

 MOV BYTE PTR [SI-1],3

 MOV BYTE PTR [SI+2],3

 INC NUM

 MOV DH,[SI]

 MOV DL,[SI+1]

 MOV BL,01010101B

 CALL DISPCELL

 MOV BL,1

 CALL CLEAR0

 INC SCORE[4]

 MOV CX,05H

 MOV SI,04H
FORM331: CMP SCORE[SI],'9'

 JNG FORM332

 INC SCORE[SI-1]

 SUB SCORE[SI],0AH
FORM332: DEC SI

 LOOP FORM331

 CALL DISPSCORE

 CALL RANDOM

 RET
FORM33 ENDP

DOWN PROC NEAR

 MOV SI,0

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV CH,PADMSG1[SI]

 MOV CL,PADMSG1[SI+1]

 CMP PADMSG1[SI+2],4

 JNZ DOWN1

 CALL CHECK4

 JMP DEXIT1
DOWN1:

 CALL CHECK2
DEXIT1:

 RET
DOWN ENDP

UP PROC NEAR

 MOV SI,0

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV CH,PADMSG1[SI]

 MOV CL,PADMSG1[SI+1]

 CMP PADMSG1[SI+2],2

 JNZ UP1

 CALL CHECK2

 JMP UEXIT1
UP1:

 CALL CHECK4
UEXIT1:

 RET
UP ENDP

 
CHECK2 PROC NEAR

 MOV AL,CH

 SUB AL,2

 MOV BL,22

 MUL BL

 MOV SI,0

 ADD SI,AX

 SHR CL,1

 SUB CL,2

 MOV CH,0

 ADD SI,CX

 CMP FORM[SI],0

 JNZ CHECK21

 CALL FORM20

 JMP C2EXIT1
CHECK21:

 CMP FORM[SI],1

 JNZ CHECK22

 CALL FORM21

 JMP C2EXIT1
CHECK22:

 CMP FORM[SI],3

 JNZ CHECK23

 CALL FORM23

 JMP C2EXIT1
CHECK23:

 MOV CON,1
C2EXIT1:

 RET
CHECK2 ENDP

FORM20 PROC NEAR

 MOV BL,0

 CALL CLEAR0

 MOV SI,OFFSET PADMSG1

 MOV DH,[SI]

 MOV DL,[SI+1]

 CALL DISPCELL

 MOV DI,SI

 ADD SI,3

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 MOV CX,AX

 CLD
FORM201:

 LODSB

 STOSB
LOOP FORM201

 DEC DI

 MOV BYTE PTR [DI],2

 DEC SI

 MOV BYTE PTR [SI],2

 DEC SI

 DEC SI

 INC BYTE PTR [SI]

 MOV DH,[SI]

 MOV DL,[SI+1]

 MOV BL,01010101B

 CALL DISPCELL

 MOV BL,1

 CALL CLEAR0

 RET
FORM20 ENDP 

FORM21 PROC NEAR

 MOV SI,OFFSET PADMSG1

 MOV CH,[SI]

 MOV CL,[SI+1]

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV BH,[SI]

 MOV BL,[SI+1]

 ADD BH,1

 CMP BH,CH

 JNZ FORM211

 CMP BL,CL

 JNZ FORM211

 CALL FORM20

 JMP F21EXIT1
FORM211:

 MOV CON,1
F21EXIT1:

 RET
FORM21 ENDP

FORM23 PROC NEAR

 MOV BL,0

 CALL CLEAR0

 MOV SI,OFFSET PADMSG1

 MOV AX,NUM

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV AL,[SI-3]

 INC AL

 MOV [SI],AL

 MOV AL,[SI-2]

 MOV [SI+1],AL

 MOV BYTE PTR [SI-1],2

 MOV BYTE PTR [SI+2],2

 INC NUM

 MOV DH,[SI]

 MOV DL,[SI+1]

 MOV BL,01010101B

 CALL DISPCELL

 MOV BL,1

 CALL CLEAR0

 INC SCORE[4]

 MOV CX,05H

 MOV SI,04H
FORM231: CMP SCORE[SI],'9'

 JNG FORM232

 INC SCORE[SI-1]

 SUB SCORE[SI],0AH
FORM232: DEC SI

 LOOP FORM231

 CALL DISPSCORE

 CALL RANDOM

 RET
FORM23 ENDP

 
CHECK4 PROC NEAR

 MOV AL,CH

 SUB AL,4

 MOV BL,22

 MUL BL

 MOV SI,0

 ADD SI,AX

 SHR CL,1

 SUB CL,2

 MOV CH,0

 ADD SI,CX

 CMP FORM[SI],0

 JNZ CHECK41

 CALL FORM40

 JMP C4EXIT1
CHECK41:

 CMP FORM[SI],1

 JNZ CHECK42

 CALL FORM41

 JMP C4EXIT1
CHECK42:

 CMP FORM[SI],3

 JNZ CHECK43

 CALL FORM43

 JMP C4EXIT1
CHECK43:

 MOV CON,1
C4EXIT1:

 RET
CHECK4 ENDP

FORM40 PROC NEAR

 MOV BL,0

 CALL CLEAR0

 MOV SI,OFFSET PADMSG1

 MOV DH,[SI]

 MOV DL,[SI+1]

 CALL DISPCELL

 MOV DI,SI

 ADD  SI,3

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 MOV CX,AX

 CLD
FORM401:

 LODSB

 STOSB
LOOP FORM401

 DEC DI

 MOV BYTE PTR [DI],4

 DEC SI

 MOV BYTE PTR [SI],4

 DEC SI

 DEC SI

 DEC BYTE PTR [SI]

 MOV DH,[SI]

 MOV DL,[SI+1]

 MOV BL,01010101B

 CALL DISPCELL

 MOV BL,1

 CALL CLEAR0

 RET
FORM40 ENDP

FORM41 PROC NEAR

 MOV SI,OFFSET PADMSG1

 MOV CH,[SI]

 MOV CL,[SI+1]

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV BH,[SI]

 MOV BL,[SI+1]

 SUB BH,1

 CMP BH,CH

 JNZ FORM411

 CMP BL,CL

 JNZ FORM411

 CALL FORM40

 JMP F41EXIT1
FORM411:

 MOV CON,1
F41EXIT1:

 RET
FORM41 ENDP

FORM43 PROC NEAR

 MOV BL,0

 CALL CLEAR0

 MOV SI,OFFSET PADMSG1

 MOV AX,NUM

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV AL,[SI-3]

 DEC AL

 MOV [SI],AL

 MOV AL,[SI-2]

 MOV [SI+1],AL

 MOV BYTE PTR [SI-1],4

 MOV BYTE PTR [SI+2],4

 INC NUM

 MOV DH,[SI]

 MOV DL,[SI+1]

 MOV BL,01010101B

 CALL DISPCELL

 MOV BL,1

 CALL CLEAR0

 INC SCORE[4]

 MOV CX,05H

 MOV SI,04H
FORM431: CMP SCORE[SI],'9'

 JNG FORM432

 INC SCORE[SI-1]

 SUB SCORE[SI],0AH
FORM432: DEC SI

 LOOP FORM431

 CALL DISPSCORE

 CALL RANDOM

 RET
FORM43 ENDP

CLEAR0 PROC NEAR

 MOV SI,OFFSET PADMSG1

 MOV CX,NUM
CLEAR01: 

 PUSH BX

 MOV DI,OFFSET FORM

 MOV AL,[SI]

 SUB AL,3

 MOV BL,22

 MUL BL

 ADD DI,AX

 MOV AL,[SI+1]

 SHR AL,1

 SUB AL,2

 MOV AH,0

 ADD DI,AX

 POP BX

 MOV [DI],BL

 ADD SI,3
LOOP CLEAR01

 RET
CLEAR0 ENDP

BLANK PROC NEAR

 MOV SI,0

 MOV AX,NUM

 DEC AX

 MOV BX,3

 MUL BX

 ADD SI,AX

 MOV CH,PADMSG1[SI]

 MOV CL,PADMSG1[SI+1]

 CMP PADMSG1[SI+2],1

 JNZ BLANK1

 CALL CHECK1

 JMP BEXIT1
BLANK1:

 CMP PADMSG1[SI+2],2

 JNZ BLANK2

 CALL  CHECK2

 JMP BEXIT1
BLANK2:

 CMP PADMSG1[SI+2],3

 JNZ BLANK3

 CALL CHECK3

 JMP BEXIT1
BLANK3:

 CALL CHECK4
BEXIT1:

 RET
BLANK ENDP

DELAY PROC NEAR

 PUSH CX
        MOV     CX,00FFH
LOOP20: LOOP    LOOP20 

 POP CX

 RET
DELAY ENDP

 
DISPSCORE PROC NEAR

 MOV AX,DATA

 MOV ES,AX

 MOV BP,OFFSET SCORE

 MOV CX,05H
        MOV     DX,0643H

 MOV BH,0H

 MOV AL,0H

 MOV BL,00110100B

 MOV AH,13H

 INT 10H

 RET
DISPSCORE ENDP 

DISPPAD PROC NEAR   ;BX BH=PAGE BL=COLOR
MOV SI,OFFSET PADMSG1
MOV CX,NUM
MOV BH,0

DISPPAD1:
MOV DH,[SI]
MOV DL,[SI+1]
CALL DISPCELL
ADD SI,3
LOOP DISPPAD1 


 RET
DISPPAD ENDP 

DISPCELL PROC NEAR;DH=ROW DL=COL BH=PAGE BL=COLOR
 PUSH AX

 PUSH BX

 PUSH CX

 PUSH DX

 PUSH DI

 PUSH SI

 MOV BP,OFFSET PADMSG

 MOV CX,02H

 MOV AX,1300H

 INT  10H

 CMP BL,0H

 JE SKIP20

 ;CALC ROW
 MOV AH,0H

 MOV AL,DH
        MOV     CL,16

 MUL CL

 MOV SI,AX

 ;CALC COL
 MOV AH,0H

 MOV AL,DL

 MOV CL,8

 MUL CL

 MOV DI,AX

 ;DRAW
 MOV AX,0C00H

 MOV DX,SI
        ADD     DX,15

 MOV CX,16
LOOP21: ADD CX,DI

 DEC CX

 INT 10H

 INC CX

 SUB CX,DI

 LOOP LOOP21

 
        MOV     DX,SI
        MOV     CX,15
        ADD     DI,15
LOOP22: PUSH    CX
        MOV     CX,DI
        INT     10H
        INC     DX
        POP     CX
        LOOP    LOOP22 

        SUB     DI,2
        DEC     DX
        MOV     CX,13
LOOP23: PUSH    CX
        DEC     DX
        MOV     CX,DI
        INT     10H
        SUB     CX,12
        MOV     AL,07H
        INT     10H
        MOV     AL,00H
        POP     CX
        LOOP    LOOP23 

        MOV     AX,0C07H

 MOV DX,SI
        ADD     DX,1
        MOV     CX,12
        SUB     DI,12
LOOP24: ADD     CX,DI

 INT 10H

 SUB CX,DI
        LOOP    LOOP24

 
SKIP20: POP SI

 POP DI

 POP DX

 POP CX

 POP BX

 POP AX

 RET
DISPCELL ENDP

 
CLS PROC NEAR

 MOV CX,0

 MOV DH,24

 MOV DL,79

 MOV BH,0

 MOV AX,600H

 INT 10H

 RET
CLS ENDP 

RANDOM PROC NEAR
RANDOM1:

 IN AX,40H

 INC AH

 INC AL

 AND AH,15

 MOV DH,AH

 AND AL,15

 MOV DL,AL

 IN AX,40H

 INC AH

 INC AL

 AND AH,3

 ADD DH,AH

 AND AL,3

 ADD DL,AL

 IN AX,40H

 INC AH

 INC AL

 AND AH,1

 ADD DH,AH

 AND AL,1

 ADD DL,AL

 

 MOV SI,0

 MOV AL,DH

 INC AL

 MOV BL,22

 MUL BL

 ADD SI,AX

 MOV AL,DL

 INC AL

 MOV AH,0

 ADD SI,AX

 CMP FORM[SI],0

 JNZ RANDOM1

 

 MOV FORM[SI],3

 ADD DH,4

 SHL DL,1

 ADD DL,6

 MOV BL,01011001B

 MOV BH,0

 CALL  DISPCELL

 RET
RANDOM ENDP

 


INITGAME PROC NEAR

 CALL CLS

 ;DRAW   TEXTFRAME
 MOV AX,DATA

 MOV ES,AX
        MOV     CX,10

 MOV BP,OFFSET SCOREMSG1
        MOV     DX,053CH
LOOP72: PUSH CX
        MOV     CX,13

 MOV AL,0H

 MOV BH,0H
        MOV     BL,01011010B

 MOV AH,13H

 INT 10H
        ADD     BP,13

 INC DH

 POP CX

 LOOP LOOP72



 

 MOV AX,DATA

 MOV ES,AX

 MOV BP,OFFSET SG

 MOV     DX,1430H

 PUSH CX

 MOV     CX,20

 MOV AL,0H

 MOV BH,0H

 MOV     BL,01011010B

 MOV AH,13H

 INT 10H

 POP CX





 

 ;DRAW BOARDFRAME
 MOV BP,OFFSET PADMSG
        MOV     CX,0044
        MOV     DX,0304H

 MOV BH,0H

 MOV AL,0H

 MOV BL,00110100B

 MOV AH,13H

 INT 10H
        MOV     DX,1804H

 INT 10H 


 MOV CX,20
        MOV     DX,0304H
LOOP4: MOV SI,CX

 MOV CX,02

 INC DH

 INT 10H

 MOV CX,SI

 LOOP LOOP4 


 MOV CX,20
        MOV     DX,032EH
INITGAME1: MOV SI,CX

 MOV CX,02

 INC DH

 INT 10H

 MOV CX,SI

 LOOP INITGAME1

 ;FORMAT SCORE
 MOV DI,OFFSET SCORE

 MOV AL,'0'

 MOV CX,05H

 REP STOSB

 
MOV CON,0
MOV NUM,4
MOV DI,OFFSET PADMSG1
MOV CX,1200
MOV AX,0
CLD
REP STOSB
MOV SI,OFFSET FORM
MOV CX,484
IN1:

 MOV AL,[SI]

 CMP AL,1

 JNZ IN2

 MOV BYTE PTR [SI],0

 JMP IN3
IN2:

 CMP AL,3

 JNZ IN3

 MOV BYTE PTR [SI],0
IN3:

 INC SI

 LOOP IN1

MOV SI,OFFSET FORM
ADD SI,46
MOV BYTE PTR [SI],1
INC SI
MOV BYTE PTR [SI],1
INC SI
MOV BYTE PTR[SI],1
INC SI
MOV BYTE PTR [SI],1

MOV SI,OFFSET PADMSG1
MOV AL,5
MOV [SI],AL
INC SI
MOV AL,8
MOV [SI],AL
INC SI
MOV AL,1
MOV [SI],AL
INC SI

MOV AL,5
MOV [SI],AL
INC SI
MOV AL,10
MOV [SI],AL
INC SI
MOV AL,1
MOV [SI],AL
INC SI

MOV AL,5
MOV [SI],AL
INC SI
MOV AL,12
MOV [SI],AL
INC SI
MOV AL,1
MOV [SI],AL
INC SI

MOV AL,5
MOV [SI],AL
INC SI
MOV AL,14
MOV [SI],AL
INC SI
MOV AL,1
MOV [SI],AL

MOV BL,01010101B
CALL DISPPAD

 RET
INITGAME ENDP 

CODE ENDS

 END START 

  



[此贴子已经被作者于2016-5-3 09:42编辑过]

搜索更多相关主题的帖子: 贪吃蛇 color 
2016-05-03 09:21
zhulei1978
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:53
帖 子:1351
专家分:1200
注 册:2006-12-17
收藏
得分:0 
源代码下载:
snake.zip (3.61 KB)

其实我就是改变社会风气,提高少女素质,刺激电影市道,提高年轻人内涵,玉树临风,风度翩翩的整蛊专家,我名叫古晶,英文名叫JingKoo!
2016-05-03 09:22
zhulei1978
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:53
帖 子:1351
专家分:1200
注 册:2006-12-17
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

其实我就是改变社会风气,提高少女素质,刺激电影市道,提高年轻人内涵,玉树临风,风度翩翩的整蛊专家,我名叫古晶,英文名叫JingKoo!
2016-05-03 09:25
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:0 

能编个毛线衣吗?
2016-05-04 08:50
Alar30
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:10
帖 子:988
专家分:1627
注 册:2009-9-8
收藏
得分:0 
这个好。。
2016-05-12 10:58
快速回复:[原创]贪吃蛇
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.045332 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved