陈光(画界面模块).txt

这是用汇编语言编写的推箱子课程设计

;--------------------------------------------------------------              
INitchar      MACRO     cno,pno          ;初始化字符，cno为字符串，pno为行数
              LEA       BP,cno
              MOV       CX,15
              MOV       DH,pno
              MOV       DL,51
              MOV       BL,00000010b
              MOV       AL,1
              MOV       AH,13h
              INT       10h
              ENDM
;--------------------------------------------------------------
data_seg      segment
s1            DB        201,9,40 DUP(205,9),203,9,19 DUP(205,9),187,9	;s1-s3为画边框
s2            DB        186,9,40 DUP(' ',9),186,9,19 DUP(' ',9),186,9
s3            DB        200,9,40 DUP(205,9),202,9,19 DUP(205,9),188,9
s4            DB        ' F1:',' ','Start Game'				;s4-s12为功能说明
s5            DB        ' F2:',' ','Save      '
s6            DB        ' F3:',' ','Load      '
s7            DB        ' F4:',' ','Select    '
s8            DB        ' F5:',' ','Option    '
s9            DB        ' F8:',' ','Quit      '
s10           DB        ' No.:','          '
s11           DB        ' Game',' ','Time:','    '
s12           DB        ' Current',' ','Time:',' '
GameName      DB        'Hammal Game'	;游戏名
ying          DB        11 DUP(223)          ;阴影
data_seg      ends
;==================================================================================
;-------------------------------------------------------------------------------
INit          PROC      NEAR			;初始化子过程
              MOV       AH,0bh
              MOV       BH,00
              MOV       BL,9
              INT       10h
              
              MOV       BP,OFFSET s1
              MOV       CX,62
              MOV       BH,0
              MOV       DH,4
              MOV       DL,9
              MOV       AL,3
              MOV       AH,13h
              INT       10h
              MOV       CX,17
              MOV       AX,5
down_loop:    
              MOV       BP,OFFSET s2
              PUSH      CX
              MOV       CX,62
              MOV       BH,0
              MOV       DH,AL
              MOV       DL,9
              PUSH      AX
              MOV       AL,3
              MOV       AH,13h
              INT       10h
              POP       AX
              POP       CX
              INC       AX
              LOOP      down_loop
              
              MOV       BP,OFFSET s3
              MOV       CX,62
              MOV       BH,0
              MOV       DH,22
              MOV       DL,9
              MOV       AL,3
              MOV       AH,13h
              INT       10h
              
              show_char 1,32,00000001b,222,1
              MOV       BP,OFFSET GameName
              MOV       CX,12
              MOV       BH,0
              MOV       BL,00011110b
              MOV       DH,1
              MOV       DL,33
              MOV       AL,0
              MOV       AH,13h
              INT       10h
              show_char  1,44,00000111b,220,1
              
              MOV       BP,OFFSET Ying
              MOV       CX,11
              MOV       BH,0
              MOV       BL,00000111b
              MOV       DH,2
              MOV       DL,34
              MOV       AL,0
              MOV       AH,13h
              INT       10h
              
	       INitchar s4,5
              INitchar s5,6
              INitchar s6,7
              INitchar s7,8
              INitchar s8,9
              INitchar s9,11
              INitchar s10,13
              INitchar s11,15
              INitchar s12,18
              MOV       flag,0
              MOV       iswin,0
              
              RET
INit          ENDP