张璐(画仓库及移动小人).txt

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

;---------------------------------------------------------------              
INitstor      MACRO     cno,pno	;初始化仓库，cno为字符串，pno为行数
              LEA       BP,cno
              MOV       CX,20
              MOV       DH,pno
              MOV       DL,20
              MOV       BL,00001011b
              MOV       AL,1
              MOV       AH,13h
              INT       10h
              ENDM

;----------------------------------------------------------------
data_seg      SEGMENT
g1            DB        20 DUP(177)		;g1-g8为仓库ASCII码定义
g2            DB        2 DUP(177),4 DUP(' '),4 DUP(177),4 DUP(' '),6 DUP(177)
g3            DB        2 DUP(177),16 DUP(' '),2 DUP(177)
g4            DB        2 DUP(177),4 DUP(176),4 DUP(177),2 DUP(234),2 DUP(219),4 DUP(' '),2 DUP(177)
g5            DB        2 DUP(177),4 DUP(176),4 DUP(177),2 DUP(' '),2 DUP(219),4 DUP(' '),2 DUP(177)
g6            DB        2 DUP(177),16 DUP(' '),2 DUP(177)
g7            DB        2 DUP(177),4 DUP(' '),4 DUP(177),4 DUP(' '),6 DUP(177)
g8            DB        20 DUP(177)
manx          DB        ?	;小人的坐标
many          DB        ?
data_seg      ENDS
;-----------------------------------------------------------------
;------------------------------------------------------------------------------              
storage       PROC      NEAR			;初始化仓库子过程
              INitstor g1,8
              INitstor g2,9
              INitstor g3,10
              INitstor g4,11
              INitstor g5,12
              INitstor g6,13
              INitstor g7,14
              INitstor g8,15
              show_char 11,22,00000111b,176,2		;show_char为已定义的宏
              show_char 11,24,00000111b,176,2		;用来显示字符，前两变量为坐标，
              show_char 12,22,00000111b,176,2		;中间变量为属性，第四为字符，最后为重复次数
              show_char 12,24,00000111b,176,2
              show_char 10,32,00001101b,219,2
              show_char 11,32,00001101b,219,2
              show_char 12,32,00001101b,219,2
              show_char 13,32,00001101b,219,2
              
              MOV       caseno,31h
              show_char 13,58,00000011b,caseno,1

              MOV       AH,2
              MOV       BH,0
              MOV       DH,11
              MOV       DL,30
              INT       10h

              MOV       AH,09h
              MOV       AL,234
              MOV       BH,0
              MOV       BL,10001110b
              MOV       CX,2
              INT       10h
              
              MOV       manx,11
              MOV       many,30
                            
              MOV       AH,1
              MOV       CH,4
              MOV       CL,0
              INT       10h
              
              RET
storage       ENDP
;-----------------------------------------------------------------------------------------
;-------------------------------------------------------------                          
moveit       PROC      NEAR		;移动小人子过程   
              CMP       DI,1
              JNE       MOVetwo
              show_char manx,many,10001110b,' ',2
              show_char CH,CL,10001110b,234,2
              JMP       exit3
MOVetwo:      
              show_char manx,many,10001110b,' ',2
              CMP       temp,-1
              JNE        NExt2
              INC       CL
              JMP       con
NExt2:
              DEC       CL
con:
              show_char CH,CL,10001110b,234,2
exit3:                       
              RET
moveit       ENDP