俄罗斯方块汇编代码

;       Tetris
; Written by Lim GumSu(prk)
;     2005.12.12 Nankai University 

DATA    SEGMENT
 SEGMENT1C DW 0
 OFF1C DW 0
 BOARD DW 24 DUP(?),0FFFFH
 Y DB ?
 TY DB ?
 XR DB ?
 XL DB ?
 NOW DB ?
 DIRE DB ?
 NXT DB ?
 TIM DB 0
 SPEED DB 0
 CON DB 0
 DV DB      0
 FLG DB  0
 PAD DW 0H,3C0H,0H,0H ;0
  DW 100H,100H,100H,100H
  DW 0H,3C0H,0H,0H
  DW 100H,100H,100H,100H
  DW 0H,180H,180H,0H ;1
  DW 0H,180H,180H,0H
  DW 0H,180H,180H,0H
  DW 0H,180H,180H,0H
  DW 0H,380H,200H,0H ;2
  DW 200H,200H,300H,0H

  DW 0H,80H,380H,0H
  DW 0H,300H,100H,100H
  DW 0H,380H,80H,0H ;3
  DW 300H,200H,200H,0H
  DW 0H,200H,380H,0H
  DW 100H,100H,300H,0H
  DW 0H,180H,300H,0H ;4
  DW 100H,180H,80H,0H
  DW 0H,180H,300H,0H
  DW 100H,180H,80H,0H
  DW 0H,300H,180H,0H ;5
  DW 80H,180H,100H,0H
  DW 0H,300H,180H,0H
  DW 80H,180H,100H,0H
  DW 0H,380H,100H,0H  ;6
  DW 100H,180H,100H,0H
  DW 100H,380H,0H,0H 
  DW 100H,300H,100H,0H
 P1 DW 4 DUP(?)
 P2 DW 4 DUP(?)
        COLOR   DB      00001001b,00001010b,00001011b,00001100b,00001101b,00001110b,00000001b 
 NCOLOR DB ?
 SCORE DB 5 DUP('0'),'$'
 PADMSG DB 25 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,'$'