sn.asm.bak

用汇编语言编写的贪食蛇小程序

STACK SEGMENT STACK
      DW 64 DUP(?)
STACK ENDS

CODE SEGMENT
      ASSUME CS:CODE,SS:STACK

MAIN PROC FAR
      MOV AH,0FH
      INT 10H
      MOV AH,0
      MOV AL,2
      INT 10H
      MOV CX,1
DISP: MOV DX,1800H
LOP:  MOV AH,2
      INT 10H
      MOV AL,41H
      MOV AH,0AH
      INT 10H
      CALL DELAY
      XOR AL,AL
      MOV AH,0AH
      INT 10H
      INC DL
      DEC DH
      JNZ LOP
      MOV AH,1
      INT 16H
      JNZ DISP
      RET
MIAN ENDP

DELAY PROC NEAR
      PUSH CX
      PUSH DX
      MOV DX,40
DE1:
      MOV CX,2801
DE2:
      LOOP DE2
      DEC DX
      JNZ DE1
      POP DX
      POP CX
      RET
DELAY ENDP

CODE ENDS
      END MAIN