【正文】 DXMOV AX,DATAMOV DS,AXSTIDEC COUNT ；5 秒計數JNZ EXITMOV DX,OFFSET MESS ；顯示信息MOV AH,09HINT 21HMOV COUNT,91 ；5 秒的值EXIT: CLIPOP DXPOP CXPOP AXPOP DSIRETDELAY ENDPCODE ENDSEND START（2）可以利用INT 1AH，讀取當前時間的1/100 秒為隨機數。CODE SEGMENTASSUME CS:CODESTART：MOV AH,0INT 1AH ；讀取當前時間CH：CL=時：分MOV AL,DL ；DH：DL=秒：1/100 秒MOV AH,0MOV BL,9DIV BLINC AHMOV DL,AHADD DL,30HMOV AH,2INT 21HMOV AH,4CHINT 21HCODE ENDSEND START8. 編兩個通過過程完成將AX 中存放的二進制數轉換成壓縮型BCD 碼以及將BCD 碼轉換成二進制數。答：（1）將AX 中的二進制數先后除以1000，100 和10，每次除法所得的商，即是BCD 數的千位、百位和十位數，余數是個位數。子程序名：B2TOBCD輸入參數：AX=十六位二進制數輸出參數：CF=0，則AX=4 位壓縮型BCD 碼。CF=1，則要轉換的數大于9999，AX 不變。使用寄存器：CX：存放除數，DX：存放中間結果。B2TOBCD PROC FARCMP AX,9999 ；AX9999，則CF 置1JBE TRANSTCJMP EXITTRAN: PUSH CXPUSH DXSUB DX,DX ；DX 清0MOV CX,1000 ；計算千位數DIV CXXCHG AX,DX ；商在DX 中，余數在AX 中MOV CL,4SHL DX,CL ；DX 左移4 位MOV CL,100 ；計算百位數DIV CLADD DL,AL ；百位數加到DL 中，DX 左移4 位MOV CL,4SHL DX,CLXCHG AL,AH ；余數保留在AL 中SUB AH,AHMOV CL,10 ；計算十位數DIV CLADD DL,AL ；十位數加到DL 中，DX 左移4 位MOV CL,4SHL DX,CLADD DL,AH ；加個位數MOV AX,DX ；結果送到AX 中POP DXPOP CXEXIT: RETB2TOBCD ENDP（2）將AX 中4 位BCD 碼順序乘以1000，100，10 和1，然后求和即得。子程序名：BCDTOB2輸入參數：AX=4 位壓縮BCD 碼輸出參數：AX=十六位二進制數使用寄存器：BX：暫存數據，CX：存放乘數，DX：存放中間結果BCDTOB2 PROC FARPUSH BXPUSH CXPUSH DXMOV BX,AXMOV CL,4ROL AX,CLAND AX,000FHMOV CX,1000 ；乘以1000MUL CXMOV DX,AXMOV AX,BXMOV CL,8ROL AX,CLAND AX,000FHMOV CL,100 ；乘以100MUL CLADD DX,AXMOV AX,BXMOV CL,4SHR AX,CLAND AX,000FHMOV CL,10 ；乘以10MUL CLADD DX,AXAND BX,000FHADD DX,BXMOV AX,DXPOP DXPOP CXPOP BXRETBCDTOB2 ENDP9. 編寫兩個通用過程，一個完成ASCII 碼轉換成二進制數功能，另一個完成ASCII 字符顯示輸出功能。答：（1）將AX 中兩位ASCII 碼先轉化成數字，然后AH*10+AL。子程序名：ASCIITOB2輸入參數：AX=2 位ASCII 碼輸出參數：AX=轉換后二進制數使用寄存器：BX，CX，DXASCIITOB2 PROC FARPUSH BXPUSH CXPUSH DXMOV BX,AXSUB AH,30HMOV AL,AHMOV CL,10 ；乘以10MUL CLMOV DX,AXMOV AX,BXSUB AL,30HMOV AH,0ADD AX,DXPOP DXPOP CXPOP BXRETASCIITOB2 ENDP（2）使用2 號DOS 功能調用顯示字符。子程序名：DISPLAY輸入參數：AX=2 位ASCII 碼輸出參數：無使用寄存器：BX，DXDISPLAY PROC FARPUSH BXPUSH DXMOV BX,AXMOV DL,AHMOV AH,2INT 21HMOV AX,BXMOV DL,ALMOV AH,2INT 21HPOP DXPOP BXRETDISPLAY ENDP10. 編制兩個通用過程，完成十六進制數轉換成ASCII 碼并將ASCII 碼字符顯示。答：（1）子程序名：HEXTOASC輸入參數：AX：4 位十六進制數輸出參數：DX,AX：4 位ASCII 碼,DX 高2 位，AX 低2 位使用寄存器：BX,CX,DXHEXTOASC PROC FARPUSH BXPUSH CXPUSH DXMOV BX,AXMOV CL,4 ；轉換AH 高4 位SHR AX,CLAND AX,0F00HADD AH,30HCMP AH,3AHJB A1ADD AH,7A1: MOV DH,AHMOV AX,BX ；轉換AH 低4 位AND AX,0F00HADD AH,30HCMP AH,3AHJB A2ADD AH,7A2: MOV DL,AHMOV BH,BL ；轉換AL 高4 位MOV CL,4SHR BL,CLADD BL,30HCMP BL,3AHJB A3ADD BL,7A3: MOV AH,BLAND BH,0FH ；轉換AL 低4 位ADD BH,30HCMP BH,3AHJB A4ADD BH,7A4: MOV AL,BHPOP DXPOP CXPOP BXRETHEXTOASC ENDP（2）子程序名：DISPLAYASC輸入參數：DX，AX：4 位ASCII 碼輸出參數：無使用寄存器：BX,CXDISPLAYASC PROC FARPUSH BXPUSH CXMOV BX,DXMOV CX,AXMOV DL,BHMOV AH,02HINT 21HMOV DL,BLINT 21HMOV DL,CHINT 21HMOV DL,CLINT 21HMOV DL,’H’INT 21HPOP CXPOP BXRETDISPLAYASC ENDP11. 某程序可從鍵盤接收命令（0～5），分別轉向6 個子程序，子程序入口地址分別為P0～P5，編制程序，用跳轉表實現分支結構。答： DATA SEGMENTTABLE DW 6 DUP(?)DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART: MOV AX,DATAMOV DS,AXLEA SI, TABLEMOV WORD PTR[SI],OFFSET P0MOV WORD PTR[SI+2],OFFSET P1MOV WORD PTR[SI+4],OFFSET P2MOV WORD PTR[SI+6],OFFSET P3MOV WORD PTR[SI+8],OFFSET P4MOV WORD PTR[SI+10],OFFSET P5MOV AH,1INT 21HSUB AL,30HSHL AL,1MOV AH,0MOV SI,AXJMP TABLE[SI]P0:P1：P2:P3:P4:P5:MOV AH,4CHINT 21HCODE ENDSEND START12. 在首地址為TABLE 的數組中按遞增次序存放著100 個16 位補碼數，編寫一個程序，把出現次數最多的數及其出現次數分別存放于AX 和BL 中。答： DATA SEGMENTTABLE DW 100 DUP (?) ；數組中的數據是按增序排列的NUM DW ?COUNT DW 0DATA ENDSCODE SEGMENTMAIN PROC FARASSUME CS: CODE, DS: DATASTART: PUSH DS ；設置返回DOSSUB AX, AXPUSH AXMOV AX, DATAMOV DS, AX ；給DS 賦值BEGIN: MOV CX, 100 ；循環(huán)計數器MOV SI, 0NEXT: MOV DX, 0MOV AX, TABLE[SI]COMP: CMP TABLE [SI], AX ；計算一個數的出現次數JNE ADDRINC DXADD SI, 2LOOP COMPADDR: CMP DX, COUNT ；此數出現的次數最多嗎？JLE DONEMOV COUNT, DX ；目前此數出現的次數最多，記下次數MOV NUM, AX ；記下此數DONE: LOOP NEXT ；準備取下一個數MOV CX, COUNT ；出現最多的次數存入(CX)MOV AX, NUM ；出現最多的數存入(AX)RETMAIN ENDPCODE ENDS ；以上定義代碼段END START13. 將鍵盤上輸入的十六進制數轉換成十進制數，在屏幕上顯示。答：DATA SEGMENTSTRING DB 39。INPUT 4 HEX NUM:39。,0AH,0DH,39。$39。NUM DB 10 DUP(?)DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART: MOV AX,DATAMOV DS,AXLEA DX,STRING ；顯示提示信息MOV AH,9INT 21HMOV BP,4MOV DX,0CONT: MOV CL,4 ；輸入4 位十六進制數??DXSHL DX,CLD1: MOV AH,1INT 21HCMP AL,39。039。JB D1CMP AL,39。F39。JA D1CMP AL,39。A39。JB A1SUB AL,7A1: SUB AL,30HMOV AH,0ADD DX,AXDEC BPJNZ CONTMOV SI,0 ；將DX 轉換成十進制數，再轉換成ASCII 碼—NUMMOV AX,DXMOV DX,0MOV BX,10D2: DIV BXADD DL,30HMOV NUM[SI],DLINC SICMP AX,0JZ EXITMOV DX,0JMP D2EXIT: MOV DL,0AH ；顯示十進制數MOV AH,2INT 21HMOV DL,0DHINT 21HD3: DEC SIMOV DL,NUM[SI]MOV AH,2INT 21HJNZ D3MOV AH,4CHINT 21HCODE ENDSEND START14. 將AX 中的無符號二進制數轉換成ASCII 字符串表示的十進制數。答：將13 題輸入過程和輸出過程去掉即得。DATA SEGMENTNUM DB 10 DUP(?) ；轉換后ASCII 碼按倒序存放于NUMDATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART: MOV AX,DATAMOV DS,AXMOV AX, ；無符號二進制數MOV SI,0 ；將AX 轉換成十進制數，再轉換成ASCII 碼—NUMMOV DX,0MOV BX,10D2: DIV BXADD DL,30HMOV NUM[SI],DLINC SICMP AX,0JZ EXITMOV DX,0JMP D2EXIT: MOV AH,4CHINT 21HCODE ENDSEND START15. 從鍵盤輸入20 個有符號數，將它們排序并在屏幕上顯示。答：DATA SEGMENTNUM DW 20 DUP(?) ；存放20 個有符號數ASC DB 10 DUP(?) ；輸出時暫時保存每一個數的ASCII 碼DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART: MOV AX,DATAMOV DS,AXMOV CX,20MOV BX,10MOV SI,0MOV BP,0BEGIN: MOV DX,0 ；輸入20 個有符號數（十進制），并A1: MOV AH,1 ；轉化為二進制數存放于NUM 數組INT 21HCMP AL,39。 39。 ；判斷是否空格JZ A2CMP AL,0DH ；是否回車符JZ A2CMP AL,39。39。 ；是否‘’JZ A3JMP A4A3: MOV BP,1JMP A1A4: PUSH AXMOV AX,DXMUL BX