猜拳汇编程序源代码.docx

1、猜拳汇编程序源代码附录1： 猜拳程序设计源代码清单getChar MACRO Char ;接收一个字符放在char里 PUSH AX MOV AH,1 INT 21H MOV Char,AL POP AXENDMshowChar MACRO char ;显示字符 PUSH AX PUSH DX MOV AH,2 MOV DL,char INT 21H POP DX POP AXENDM showString MACRO string ;调用9号功能显示字符串 PUSH AX PUSH DX PUSH DS MOV AX,DATA_SEG MOV DS,AX MOV AH,9 LEA DX,st

2、ring INT 21H POP DS POP DX POP AXENDM setCurPos MACRO M,N,P ;设置光标的位置在M行，N列,p页 PUSH AX PUSH BX PUSH DX MOV AH,2 MOV BH,P MOV DH,M MOV DL,N INT 10H POP DX POP BX POP AXENDMgetCurPos MACRO M,N ;获取光标的位置，将相应的行放在M中，列值放在N中 PUSH AX PUSH BX PUSH DX MOV AH,3 ;读光标位置 MOV BH,0 INT 10H MOV M,DH MOV N,DL POP DX PO

3、P BX POP AXENDM initShowModel MACRO A ;初始化显示模式 PUSH AX MOV AH,0 ;用来设定显示模式的服务程序 MOV AL,A ;AL 寄存器表示欲设定的模式 INT 10H POP AXENDMinitWindow MACRO A,B,C1,C2,D1,D2 ;初始化窗口或窗口内容向上卷动，也可以用于清屏 PUSH AX PUSH BX PUSH CX PUSH DX MOV AH,6 MOV AL,A ;上卷行数 MOV BH,B ;卷入行属性（颜色） MOV CH,C1 ;左上角行号 MOV CL,C2 ;左上角列号 MOV DH,D1 ;

4、右下角行号 MOV DL,D2 ;右下角列号 INT 10H POP DX POP CX POP BX POP AXENDM Pause MACRO PUSH AX MOV AH,01H INT 21H POP AXENDM DATA_SEG SEGMENT ;数据段定义 GameMenu DB Welcome Use Caiquan Game,0dh,0ah,$ ;主菜单 DB Play Game,0dh,0ah,$ DB About,0dh,0ah,$ DB Exit game,0dh,0ah,$ DisW DB Win : Time ,0dh,0ah,$ DisF DB Fail : T

5、ime ,0dh,0ah,$DisE DB You have Equel: Time ,0dh,0ah,$ Dispay2 DB This Time You Win ! ,0dh,0ah,$Dispay3 DB This Time You Failed ! ,0dh,0ah,$Dispay4 DB This Time You Equel to PC ! ,0dh,0ah,$Dispay5 DB Enter Enter to continue ! ,0dh,0ah,$Dispay6 DB Enter ESC to Exit! ,0dh,0ah,$Dispayt DB You choose the

6、 Tone! ,0dh,0ah,$Dispays DB You choose the Scissor! ,0dh,0ah,$Dispayc DB You choose the Cloth! ,0dh,0ah,$Dispayyt DB PC choose the Tone! ,0dh,0ah,$Dispayys DB PC choose the Scissor! ,0dh,0ah,$Dispayyc DB PC choose the Cloth! ,0dh,0ah,$ Kick DB ? R_NUM DB ?NUM DB ? X DB ?Y DB ? FAI DB 48 WIN DB 48EQ

7、DB 48 EXITMsg DB You really want to exit!,$ DB Enter Y to exit,$ DB Enter N to continue!,$ Information DB Author information,0dh,0ah,$ DB Name: Shang Zhi Guo,0dh,0ah,$ DB Class: tongxin1003,0dh,0ah,$ DB Student ID: 2010 3309,0dh,0ah,$ Char DB ? LineA DB You Have Beginning Game ! ,0dh,0ah,$ LineB DB

8、-,0dh,0ah,$lineF DB Please Input0or1or2 ,0dh,0ah,$LineC DB 0-tone ,0dh,0ah,$LineC1 DB 1-Scissor ,0dh,0ah,$LineC2 DB 2-Cloth ,0dh,0ah,$LineD DB /*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/,0dh,0ah,$LineE DB Input your choose Here: ,0dh,0ah,$LineE1 DB Input Error! Please input again,0dh,0ah,$LineE2 DB Choose a

9、 number from 0-2 input,0dh,0ah,$Linet DB Enter Tab to Restart! ,0dh,0ah,$ DATA_SEG ENDS STACK_SEG SEGMENT STACK ;堆栈段定义 STACK_BUF DW 120 DUP(?)TOP EQU $-STACK_BUFSTACK_SEG ENDS CODE_SEG SEGMENT ;程序代码区 ASSUME CS:CODE_SEG,DS:DATA_SEG,SS:STACK_SEG MAIN PROC FARSTART: MOV AX,STACK_SEG MOV SS,AX MOV SP,TO

10、P MOV AX,DATA_SEG MOV DS,AXBEGIN: initShowModel 0H initWindow 0,9EH,0,0,25,40 ;宏调用MENU: setCurPos 2,2,0 showString LineD setCurPos 4,9,0 ;设置主菜单光标位置 showString GameMenu setCurPos 8,15,0 showString GameMenu27 setCurPos 12,15,0 showString GameMenu39 setCurPos 16,15,0 showString GameMenu47 setCurPos 21,

11、2,0 showString LineD setCurPos 8,12,0 showChar Keyboad: getChar Kick ;菜单选择部分 CMP Kick,9 ;按的是键TAB JE TAB JMP ENTERTAB: getCurPos X,Y NEXT_Tab_1: CMP X,8 ;选择标记在start处 JNZ NEXT_Tab_2 setCurPos 8,12,0 showChar setCurPos 8,15,0 showString GameMenu27 setCurPos 12,12,0 showChar JMP KeyboadNEXT_Tab_2: CMP X

12、,12 ;选择标记在ABOUT处 JNZ NEXT_Tab_3 setCurPos 12,12,0 showChar setCurPos 12,15,0 showString GameMenu39 setCurPos 16,12,0 showChar JMP KeyboadNEXT_Tab_3: CMP X,16 ;选择标记在exit处 JE NEXT_Tab_3_ELSE JMP ERRORNEXT_Tab_3_ELSE: setCurPos 16,12,0 showChar setCurPos 16,15,0 showString GameMenu47 setCurPos 8,12,0 s

13、howChar JMP KeyboadENTER: CMP Kick,13 ;按的是键ENTER JE ENTER_ENTER JMP ESC_KEYENTER_ENTER: getCurPos X,Y NEXT_ENTER_1: CMP X,8 ;选择标记在start处 JZ NEXT_ENTER_E JMP NEXT_ENTER_2NEXT_ENTER_E: MOV EQ ,48 MOV FAI ,48 MOV WIN ,48 CALL GamePlay JMP BEGIN NEXT_ENTER_2: CMP X,12 ;选择标记在about处 JNZ NEXT_ENTER_3 CALL

14、GameAbout JMP BEGINNEXT_ENTER_3: CMP X,16 ;选择标记在eXIT处 JNZ ERROR CALL GameExit JMP BEGINESC_KEY: CMP Kick,27 ;按的是键ESC JNE ELSE_KEY CALL GameExit JMP BEGINELSE_KEY: JMP BEGINERROR: initShowModel 0 initWindow 0,9EH,0,0,25,40 setCurPos 12,6,0 getChar KickEXIT: MOV AX,4CH INT 21H MAIN ENDP ;开始游戏子程序GamePl

15、ay PROCReStart: initShowModel 0 initWindow 0,9EH,0,0,25,40 setCurPos 2,2,0 showString LineB setCurPos 3,2,0 showString LineA setCurPos 5,2,0 showString LineF setCurPos 7,2,0 showString LineB setCurPos 10,12,0 showString LineC setCurPos 13,12,0 showString LineC1 setCurPos 16,12,0 showString LineC2 se

16、tCurPos 19,2,0 showString LineB setCurPos 24,2,0 showString LineD setCurPos 19,2,0 showString LineE2 CALL Rand MOV NUM,BLKey: setCurPos 21,2,0 showString LineE setCurPos 21,29,0 getChar R_NUM CMP R_NUM,0 JE JISUAN JMP ScissorScissor: CMP R_NUM,1 JE JISUAN JMP ClothCloth: CMP R_NUM,2 JE JISUAN setCur

17、Pos 19,2,0 showString LineE1 setCurPos 21,29,0 JMP Key showString LineEJISUAN: Pause CMP R_NUM,0 JE JISUAN2 ;等于跳转 CMP R_NUM,1 JE JISUAN3 CMP R_NUM,2 JE JISUAN4 JISUAN2: CMP NUM,0 ;计算机出“石头”计算 JE a ;ping玩家出石头 CMP NUM,1 JE b ;shu玩家出剪刀 CMP NUM,2 JE c ;yin玩家出布JISUAN3: CMP NUM,0 ;计算机出“剪刀”计算 JE f ;玩家出石头 CM

18、P NUM,1 ;玩家出剪刀 JE e CMP NUM,2 JE d ;玩家出布JISUAN4: CMP NUM,0 ;计算机出“布”计算 JE h ;玩家出石头 CMP NUM,1 ;玩家出剪刀 JE l ;玩家出布 CMP NUM,2 JE ga: CALL SHOW1 CALL xian1 JMP shuru ;shitou dui shi tou RET b: CALL SHOW3;shitou dui jian dao CALL xian2 JMP shuru RET c: CALL SHOW2;shitou dui bu CALL xian3 JMP shuru RET d: CA

19、LL SHOW2 CALL xian4 JMP shuru RET e: CALL SHOW1 CALL xian5 JMP shuru RET f: CALL SHOW3 CALL xian6 JMP shuru RET g: CALL SHOW3 CALL xian7 JMP shuru RET h: CALL SHOW2 CALL xian8 JMP shuru RETl: CALL SHOW1 CALL xian9 JMP shuru RET shuru: setCurPos 25,0,0 getChar Kick CMP Kick ,27 JE escc CMP Kick ,13 J

20、E continue CMP Kick ,9 JNE shuru RET escc: CALL GameExit continue: JMP ReStartGamePlay ENDP;产生随机数Rand PROC PUSH CX PUSH DX PUSH AX STI MOV AH,0 ;读时钟计数器值 INT 1AH MOV AX,DX ;清高6位 AND AH,3 MOV DL,100 ;除100，产生0100余数 DIV DL MOV AH,0 MOV DL,3 ;除3，产生02余数 DIV DL MOV BL,AH ;余数存BX，除数 POP AX POP DX POP CX RETR

21、and ENDP;游戏结果显示子程序SHOW1 PROC INC EQ initShowModel 0 initWindow 0,9EH,0,0,25,40 setCurPos 2,2,0 showString LineD setCurPos 8,2,0 showString Dispay4 setCurPos 10,2,0 showString LineB setCurPos 11,2,0 showString DisE setCurPos 13,2,0 showString DisF setCurPos 15,2,0 showString DisW setCurPos 18,2,0 sho

22、wString Dispay5 setCurPos 20,2,0 showString Dispay6 setCurPos 16,2,0 showString LineB setCurPos 24,2,0 showString LineD setCurPos 21,2,0 showString Linet setCurPos 10,25,0 showChar EQ setCurPos 12,25,0 showChar FAI setCurPos 14,25,0 showChar WIN RETSHOW1 ENDPSHOW2 PROC INC FAI initShowModel 0 initWi

23、ndow 0,9EH,0,0,25,40 setCurPos 2,2,0 showString LineD setCurPos 8,2,0 showString Dispay3 setCurPos 11,2,0 showString DisE setCurPos 13,2,0 showString DisF setCurPos 15,2,0 showString DisW setCurPos 10,2,0 showString LineB setCurPos 18,2,0 showString Dispay5 setCurPos 20,2,0 showString Dispay6 setCur

24、Pos 16,2,0 showString LineB setCurPos 24,2,0 showString LineD setCurPos 21,2,0 showString Linet setCurPos 10,25,0 showChar EQ setCurPos 12,25,0 showChar FAI setCurPos 14,25,0 showChar WIN RETSHOW2 ENDPSHOW3 PROC INC WIN initShowModel 0 initWindow 0,9EH,0,0,25,40 setCurPos 2,2,0 showString LineD setC

25、urPos 8,2,0 showString Dispay2 setCurPos 10,2,0 showString LineB setCurPos 11,2,0 showString DisE setCurPos 13,2,0 showString DisF setCurPos 15,2,0 showString DisW setCurPos 18,2,0 showString Dispay5 setCurPos 20,2,0 showString Dispay6 setCurPos 16,2,0 showString LineB setCurPos 24,2,0 showString Li

26、neD setCurPos 21,2,0 showString Linet setCurPos 10,25,0 showChar EQ setCurPos 12,25,0 showChar FAI setCurPos 14,25,0 showChar WIN RETSHOW3 ENDPxian1 PROC setCurPos 3,2,0 showString Dispayt setCurPos 5,2,0 showString Dispayyt RET xian1 ENDPxian2 PROC setCurPos 3,2,0 showString Dispayt setCurPos 5,2,0

27、 showString Dispayys RET xian2 ENDPxian3 PROC setCurPos 3,2,0 showString Dispayt setCurPos 5,2,0 showString Dispayyc RET xian3 ENDPxian4 PROC setCurPos 3,2,0 showString Dispays setCurPos 5,2,0 showString Dispayyt RET xian4 ENDPxian5 PROC setCurPos 3,2,0 showString Dispays setCurPos 5,2,0 showString

28、Dispayys RET xian5 ENDPxian6 PROC setCurPos 3,2,0 showString Dispays setCurPos 5,2,0 showString Dispayyc RET xian6 ENDPxian7 PROC setCurPos 3,2,0 showString Dispayc setCurPos 5,2,0 showString Dispayyt RET xian7 ENDPxian8 PROC setCurPos 3,2,0 showString Dispayc setCurPos 5,2,0 showString Dispayys RET xian8 ENDPxian9 PROC setCurPos 2,2,0 showString Dispa