骰子模拟程序设计.docVIP

骰子模拟程序设计

一、设计目标

模拟实现骰子游戏。

二、设计要求

1.通过按某键模拟投掷骰子。

2.模拟显示骰子的旋转，经过一段时间后骰子静止，根据静止时的数字大小确定输赢。

3.通过按某键可停止骰子旋转。

4.模拟投掷骰子的力度，通过按某键的时间长短或两次按键之间的时间间隔，控制骰子的旋转时间和转速。

5.通过按某键可正常退出模拟程序。

三、设计提示

本课题可用1~8分别代替骰子的八面数字，当按下某键的时候，数字开始滚动显示，当按下结束键时停止，屏幕上显示的就是当前数字。其中，按键检测、数字显示、时间长短均可以通过DOS、BIOS功能调用完成。

STACKSEGMENT

DW64DUP(?)

STACKENDS

DATASEGMENT

MESSAGEDBNOTE:ENTER1,2,3TOCHOOSESPEED,STOSTOP,ETOEXIT,$

RESULTDBYOURNUMBERIS,$

GO DBGOING!,$

STOP DBSTOP!,$

TIMEDB?

DATAENDS

CODESEGMENT

ASSUMEDS:DATA,CS:CODE

POINTMACROOP1,OP2;置光标位置

PUSHAX

PUSHBX

PUSHDX

MOVAH,02H

MOVBH,0

MOVDH,OP1

MOVDL,OP2

INT10H

POPDX

POPBX

POPAX

ENDM

PRINTMACROM;输出字符

PUSHAX

PUSHDX

MOVDL,M

MOVAH,02H

INT21H

POPDX

POPAX

ENDM

START:

MOVAX,DATA

MOVDS,AX

LEASI,TIME

MOVAH,01H

MOVCX,3000H

INT10H

MOVAX,0600H

MOVBH,0CH

XORCX,CX

MOVDX,1850H

INT10H

POINT7,18

LEADX,MESSAGE

MOVAH,09H

INT21H

MOVAX,0600H

MOVBH,0FCH

MOVCX,0B26H

MOVDX,0D2AH

INT10H

POINT12,20

LEADX,RESULT

MOVAH,09H

INT21H

RESET:

MOVAH,08

INT21H

CMPAL,1

JZA0

CMPAL,2

JZA0

CMPAL,3

JZA0

CMPAL,E

JZEXIT

JMPRESET

A0:

ANDAH,00H

MOVCL,0FFH

MULCL

MOVCX,AX

PUSHCX

POINT9,38

LEADX,GO

MOVAH,09H

INT21H

POPCX

A1:

PUSHCX

CALLRAND

POPCX

ADDBL,31H

POINT12,40

PRINTBL

MOVAH,01H

INT16H

CMPAL,S

JZCONTINUE

LOOPA1

CONTINUE:

POINT9,38

LEADX,STOP

MOVAH,09H

INT21H

MOVAH,01H

INT16H

CMPAL,1

JZA1

CMPAL,