微机原理上机答案(西电)Word文件下载.docx

1、4. Show Time;STRING5DB 5. Exit.STRINGNDB Input the number you select （1-5） : $IN_STRDB Input the string （including letters & numbers, less than 60 letters） :PRESTRDB Original string :NEWSTRDB New string :OUT_STRDB The string is $MAXCHRDB The maximum is $IN_NUMDB Input the numbers （0 - 255, no more t

2、han 20 numbers） : OUT_NUMDB Sorted numbers :IN_TIMDB Correct the time （HH:MM:SS） :HINTSTRDB Press ESC, go back to the menu; or press any key to play again!KEYBUFDB 61DB ?DB 61 DUP （?NUMBUFDB ?DB 20 DUP （?DATAENDSCODESEGMENTASSUME CS:CODE, DS:DATA, SS:STACKSTART:MOV AX, DATAMOV DS, AXMOV AX, STACKMOV

3、 SS, AXMOV SP, OFFSET TOPMAIN:CALL FAR PTR MENU; 设置显示器AGAIN:MOV AH, 2MOV BH, 0; 页号MOV DL, 41; 列号MOV DH, 10; 行号INT 10H; 光标位置设置MOV AH, 1INT 21HCMP AL, 1JB AGAIN5JA AGAINSUB AL, ; N-1SHL AL, 1; （N-1）*2CBW; AL-AXLEA BX, TABLEADD BX, AXJMP WORD PTR BXG1:CALL FAR PTR CHGLTRMOV AH, 8CMP AL, 1BHJZ MAINJMP G

4、1G2:CALL FAR PTR MAXLTRJMP G2G3:CALL FAR PTR SORTNUMJMP G3G4:CALL FAR PTR TIMCHKJZ MAINJMP G4G5:MOV AH, 4CHMENUPROC FAR; 显示主界面;设置显示器方式MOV AH, 0MOV AL, 3;MOV BL, 0; 清屏MOV DL, 5;MOV DH, 5;MOV AH, 9LEA DX, STRING1MOV DH, 6;LEA DX, STRING2MOV DH, 7;LEA DX, STRING3MOV DH, 8;LEA DX, STRING4MOV DH, 9;LEA D

5、X, STRING5LEA DX, STRINGNRETMENUENDPCHGLTRPROC FAR; 将输入字符串中小写字母便换成大写字母RECHG:MOV AL, 3MOV BL, 0 输入提示光标位置设置LEA DX, IN_STRINT 21H; 输入字符串提示 输入字符串光标位置设置MOV AH, 0AHLEA DX, KEYBUF 输入字符串CMP KEYBUF + 1, 0JZ RECHG ; 判断输入字符串是否为空串LEA BX, KEYBUF + 2MOV AL, KEYBUF + 1CBWMOV CX, AXMOV BYTE PTR BX, ; 在输入字符串尾加结束标志$

6、源字符串提示光标位置设置LEA DX, PRESTR 输出源字符串提示LEA DX, KEYBUF + 2 输出源字符串LCHG:CMP BYTE PTR BX, 61HJB NOCHGAND BYTE PTR BX, 0DFHNOCHG:INC BXLOOP LCHG; 将字符串中小写字母转换成大写字母 新字符串提示光标位置设置LEA DX, NEWSTR 输出新字符串提示 输出新字符串 提示信息光标位置设置LEA DX, HINTSTR 输出提示信息CHGLTRENDPMAXLTRPROC FAR; 在输入字符串中找出最大值REMAX:JZ REMAX; 在输入字符串位加结束标志$LEA

7、DX, OUT_STR 输出字符串提示 输出字符串LEA DX, MAXCHR 输出字符串中最大值提示MOV DL, 0LCMP:CMP BX, DLJB NOLCHGMOV DL, BXNOLCHG:LOOP LCMP; 找出字符串中最大字符，放入DL 输出字符串中最大字符MAXLTRENDPSORTNUMPROC FAR; 对输入数据组排序RESORT:LEA DX, IN_NUM 输入数据组光标位置设置 输入数据组字符串CALL CIN_INT; 字符串转换成数据串CMP AL, 0JZ RESORT; 判断数据串是否有错CMP NUMBUF, 0 判断数据串是否为空 输出提示光标位置设

8、置LEA DX, OUT_NUM 输出数据串提示 输出数据组光标位置设置CALL FAR PTR MPSORT; 数据组排序CALL FAR PTR INT_OUT; 数据组的输出SORTNUMENDPCIN_INTPROC NEAR; 读入整型数; 入口参数：无 出口参数为：AL（有无错误标志，0为有，1为无）MOV CL, KEYBUF + 1LEA SI, KEYBUF + 2MOV CH, 0; 数据组数据个数置0MOV DH, 10MOV AL, 0; 当前数据x=0MOV DL, 0; 有无数据标志置0，即无数据FNDNUM:CMP BYTE PTR SI, JZ ADDNUM;

9、判断当前字符是否为空格0JB ERRNUM9JA ERRNUM; 判断当前字符是否在-之间MOV DL, 1; 有无数据标志置1，即有数据MUL DHXOR BH, BHMOV BL, SIADD AX, BXSUB AX, 计算出当前数据xCMP AH, 0 判断x是否越界JMP NEXTADDNUM:CMP DL, 1JNZ NEXT; 判断是否有数据INC CH; 数据组数据个数加1CALL ADDNEW 清零NEXT:INC SIDEC CLCMP CL, 0JNZ FNDNUM; 依次检查各字符JNZ TOTAL; 判断是否有未加入的数据INC CHTOTAL:MOV NUMBUF,

10、 CH; 置数据组数据个数MOV AL, 1; 输入数据无错误JMP CRTNUMERRNUM: 输入数据有错误CRTNUM:RET CIN_INT ENDPADDNEWPROC NEAR; 增加新数CH（数据组数据个数）、AL（当前数据x） 出口参数：PUSH AXLEA BX, NUMBUFMOV AL, CHPOP AXMOV BX, ALADDNEWENDPMPSORTPROC FAR;MOV AL, NUMBUFCMP AL, 1JBE NOSORT; 若只有一个元素，停止排序LEA SI, NUMBUF; SI指向数据组首地址ADD SI, CX; SI指向数据组末地址DEC CX

11、; 外循环次数LP1:; 外循环开始PUSH CXPUSH SI 交换标志置0LP2: 内循环开始MOV AL, SICMP AL, SI - 1JAE NOXCHGXCHG AL, SI - 1; 交换操作MOV SI, AL 交换标志置1NOXCHG:DEC SILOOP LP2POP SIPOP CXJNZ NOSORT; 判断交换标志LOOP LP1NOSORT:RETMPSORTENDPINT_OUTPROC FAR; 输出数据组MOV BL, 10HLEA SI, NUMBUF + 1PRINT:CALL OUTNUMMOV DL, LOOP PRINTINT_OUT ENDPOU

12、TNUMPROC NEAR; 将十进制数以十六进制输出AL（待转换的数据），BL（转换进制数16）DIV BLCMP AH, 10JB PNUMADD AH, 7PNUM:ADD AH, 30HMOV DL, AHPUSH DXJZ OUTNOUTN:POP DXOUTNUMENDPTIMCHKPROC FAR; 设定并显示时间 设置提示光标位置设置LEA DX, IN_TIM 时间串提示 输入时间串MOV BL, 10MOV AL, KEYBUF + 2MUL BLADD AL, KEYBUF + 3JB INVALIDCMP AL, 24JAE INVALID; 判断 时 有效性MOV CH, ALMOV AL, KEYBUF + 5ADD AL, KEYBUF + 6CMP AL, 60JAE IN