【实验名称】用汇编语言实现21点游戏基本功能【实验目的】熟悉汇编语言的基本用法【实验内容】准确判断任意牌型的大小，辨认玩家与庄家的输赢情况；累计玩家各牌局的输赢比和详细记录。【实验步骤】提要：a）每次发牌时随机单张产生A~Kb）A记1点c)在给游戏者发牌前，游戏者可增加奖励或扣除的积分d)用屏幕显示当前牌点情况和操作信息，然后用键盘输入游戏者的操作流程：1.给参加游戏的人基本积分为1002.首先电脑自身产生一张底牌（显示）3.给参加游戏的人发一张牌4.询问游戏者是否要牌，若不要牌，则跳转到第9步5.重复第3个步骤6.计算牌点的和（J、Q、K记为10点，2~10分别记2~10点）7.若牌点和最小值大于21点，跳转第14步骤8.重复步骤4~79.判断电脑自身的牌点最大是否大于游戏者，若大于，则跳转第14步骤10.电脑自身再发一张牌（显示）11.重复第6步骤12.若牌点和最小大于21点，跳转第15步骤13.重复步骤9~1214.提示电脑赢的信息，扣除游戏者积分10分，跳转第16步骤15.提示游戏者赢的信息，奖励游戏者积分10分16.显示电脑底牌和当前游戏者剩余积分17.询问是否继续玩下一盘，若要重复2~1718.结束子程序调用：流程图：【实验程序】DATASEGMENTBUFF1DB'****************************************'DB''DB'Welcomeyoutorunthisgame!'DB''DB'****************************************','$'NDB?JIFENDB?DIPAIDB?PAIDIANDB?QH1DB?QH2DB?SHDB'10','$'JKDB'PEILV(10OR5)?','$'MESSAGE0DB'DOUYOUWANTTOMORE?','$'MESSAGE1DB'************YOUWIN!************','$'MESSAGE2DB'************YOULOST!************','$'MESSAGE3DB'Goonornot?','$'MESSAGE4DB'Thisisdipai:','$'MESSAGE5DB'ThisisJIFEN:','$'MESSAGE6DB'******THEGAMEISOVER!******','$'MESSAGE7DB0AH,0DH,'ThisisyourPAIDIAN:','$'DATAENDSSTACKSEGMENTSTACKDW256DUP(?)STACKENDSCODESEGMENTASSUMECS:CODE,DS:DATA,SS:STACKSTART:PUSHDSMOVAX,0PUSHAXMOVAX,DATAMOVDS,AXMOVAX,STACKMOVSS,AXBEGIN:CALLXX0A1:MOVJIFEN,50A2:CALLRANDMOVDIPAI,BLCALLCHULIMOVQH1,BLJB1:CALLXXMOVAH,0INT16HCMPAL,59HJEJICALLXX21MOVN,5JMPA3JI:MOVN,10CALLXX20A3:CALLRANDCALLXX19MOVPAIDIAN,BLCALLDISP0CALLCHULIMOVQH2,BLCALLXX4A4:MOVAH,0INT16HCMPJECMPJNECALLCALLMOVCALLCALLADCCMPJACALLJMPCALLJMPCALLAL,4EHHCAL,59HA4RANDXX19PAIDIAN,BLDISP0CHULIQH2,BLQH2,21A14XX4A4XX0A2RETURNA5:A6:A7:A8:ZZ:HC:A9:A10:MOVAL,QH2CMPQH1,ALJAA14CALLRANDMOVPAIDIAN,BLCALLDISP0CALLCHULIADCQH1,BLCMPQH1,21JAA15JMPA9CALLXX14CALLJIANCMPJIFEN,10JBA18JMPA16A11:A12:A13:A14:A15:A16:A17:AG:A18:CALLXX15CALLJIACALLXX16MOVAL,DIPAIMOVPAIDIAN,ALCALLDISP0CALLDISP1CALLXX17MOVAH,0INT16HCMPAL,59hJEZZCMPAL,4EHJEA18JNEAGCALLXX18MOVAH,4CHINT21HRANDPROCPUSHCXPUSHDXPUSHAXSTIMOVCX,0FFFFHYS:DECCXJNEYSMOVAH,0INT1AHMOVAX,DXANDAH,3MOVDL,13DIVDLMOVBL,AHADCBL,1POPAXPOPDXPOPCXRETRANDENDPDISP0PROCCALLSPACECALLSPACECALLSPACEMOVAL,PAIDIANCMPAL,9JACMPJEADDT:MOVMOVINTRETOTHER:CMPJECMPJECMPJEMOVJMPJ:MOVJMPQ:MOVJMPA:MOVJMPSHI:LEAMOVINTRETDISP0ENDPDISP1PROCLEAMOVINTMOVCMPJBMOVCBWDIVMOVORMOVMOVINTMOVMM:MOVCBWDIVOTHERAL,1AAL,30HDL,ALAH,221HAL,10SHIAL,11JAL,12QAL,4BHTAL,4AHTAL,51HTAL,41HTDX,SHAH,09H21HDX,MESSAGE5AH,921HAL,JIFENAL,100MMCL,100CLBL,AHAL,30HDL,ALAH,221HAL,BLCL,10CLORAL,30HMOVDL,ALMOVAH,2INT21HMOVDL,30HMOVAH,2INT21HRETDISP1ENDPJIANPROCCMPN,10JAXSBBJIFEN,10JMPTU1X:SBBJIFEN,20TU1:RETJIANENDPJIAPROCCMPJAADCJMPADCRETENDPY:TU:JIAXXN,10YJIFEN,10TUJIFEN,20XXXX0PROCLEADX,JKMOVAH,9INT21HRETENDPPROCMOVAX,0600HMOVCX,0000HMOVDX,184FHMOVBH,07HINT10HMOVAH,02HMOVDH,5MOVDL,15MOVBH,00HINT10HLEADX,BUFF1XX0XX4MOVAH,09HINT21HCALLRETURNRETENDPPROCCALLRETURNLEADX,MESSAGE0MOVAH,09INT21HRETENDPPROCCALLRETURNLEADX,MESSAGE2MOVAH,9INT21HRETENDPPROCCALLRETURNLEADX,MESSAGE1MOVAH,9INT21HRETENDPPROCCALLRETURNleadx,MESSAGE4MOVAH,9INT21HRETENDPPROCCALLRETURNLEADX,MESSAGE3MOVAH,9INT21HCALLRETURNRETENDPXX4XX14XX14XX15XX15XX16XX16XX17XX17XX18XX18PROCLEADX,MESSAGE6MOVAH,9INT21HRETENDPSPACEPROCMOVDL,20HMOVAH,2INT21HRETSPACEENDPCHULIPROCCMPBX,10JBDMOVBX,10D:ADDBX,0RETCHULIENDPRETURNPROCMOVAH,2MOVDL,0AHINT21HMOVDL,0DHINT21HRETRETURNENDPXX19PROCLEADX,MESSAGE7MOVAH,9INT21HRETXX19ENDPXX20PROCCALLSPACEMOVDL,59HMOVAH,2INT21HCALLSPACERETXX20ENDPXX21PROCCALLMOVMOVINTCALLRETENDPSPACEDL,4EHAH,221HSPACEXX21RETCODEENDSENDSTART
