- 1、本文档共74页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
微机原理与接口第三章-2012
例1流程图 DATA SEGMENT BCDBUF DB 56H,34H,12H,90H,78H,56H,34H,12H,90H,78H DB 56H,34H,12H,90H,78H,56H,34H,12H DATA ENDS STACK SEGMENT STACK DB 100DUP(?) STACK ENDS CODE SEGMENT ASSUME:CS:CODE,DS:DATA,SS:STACK TRANS PROC FAR ATART: PUSH DS MOV AX,0 PUSH AX;使程序返回DOS MOV AX,DATA MOV DS,AX MOV CX,18 ;(CX)-字节数 LEA SI, BCDBUF ADD SI,17;(SI )-BCD缓冲区末址 MOV DH,0;设置前导为‘0’标志 LOAD: PUSH CX MOV AL, [SI];取一个字节BCD数 DEC SI MOV BL,AL;暂存BL MOV CL,4 ROL AL,CL AND AL,0FH;取高4位BCD OR DH,AL;是否为前导‘0’ JZ LAST;是,不显示 ADD AL,30H;不是,转换,显示 MOV DL,AL MOV AH,2 INT 21H LAST: POP CX;恢复CX中的循环次数 CMP CX,1;最后一个字节? JNZ BCDL;不是,转移到BCDL MOV DH,OFFH;是,设置标志 BCDL: MOV AL,BL AND AL,0FH OR DH,AL JZ GOON ADD AL,30H MOV DL,AL MOV AH,2 INT 21H GOON: LOOP LOAD RET TRANS ENDP CODE ENDS END START 例2 字符串查找 假设内存中已经存有一张表,从键盘上输入一个字符串,要求在表中查找该字符串,如有,则在屏幕上显示“OK!”,若没有,则显示“No!”;若输入字符串的长度大于表的长度,则显示“Wrong!The length of the string is too long!”(本例中假设内存中已经存有一张包括26个英文大写字母的表), 例2流程图 DATA SEGMENT TABLE DB ABCDEFGHIGKLMNOPQRSTUVWXYZ STR1 DB Please enter a string:, ODH, OAH,$ STR2 DB Wrong!The string is too long!$ STR3 DB No!$ STR4 DB OK!$ BUFFER DB 40 DB 40DUP(?) TAB_LEN EQU 26 DATA ENDS STACK SEGMENT STACK DB 100DUP(?) STACK ENDS CODE SEGMENT ASSUME CS:CODE, DS:DATA, ES:DATA, SS:STACK SEARCH PROC FAR START: PUSH DS MOV AX,0 PUSH AX MOV AX,DATA MOV DS,AX MOV ES,AX LEA DX, STR1 MOV AH,9 INT 21H ;显示提示符 LEA DX,BUFFER MOV AH,0AH INT 21H ;从键盘接收字符串 MOV SI, DX ;(SI)-串首地址 INC SI MOV BL,[SI] MOV BH,0 ;(BX)-串长度 INC SI LEA DI, TABLE ;(DI)-表首地址 MOV CX,TAB_LEN ;(CX)-表长度 CMP CX, BX ;表长≥串长? JNC GOON ;是,转GOON LEA DX, STR2;不是,显示“串太长” JMP EXIT GOON: CLD MOV AL,[SI] ;(AL)-字符串第一个字符 SCAN: REPNZ SCASB ;在表中有哪些信誉好的足球投注网站第一个字符 JZ MATCH;找到,转MATCH ERROR: LEA DX, STR3;否则显示“No!”
文档评论(0)