【正文】 程序?qū)傩允?FAR 型的，屬于跨段調(diào)用，還要修改 CS 寄存器的值（ 3） 根據(jù) IP（和 CS）值轉(zhuǎn)到子程序執(zhí)行 2．試編制一個(gè)多精度數(shù)求補(bǔ)的子程序，為提高程序的通用性，要求調(diào)用子程序時(shí)把多精度數(shù)的首地址放在 SI 中（低字節(jié)放低位、高字節(jié)放高位），多精度數(shù)字節(jié)數(shù)放在 CL 中。 答 ： MULNEG PROC NEAR MOV DI,SI 。保留首地址 MOV CH,00H 。字節(jié)數(shù)放 CL中，將 CH清零 PUSH CX L1:NOT [SI] 。多精度數(shù)各字節(jié)取反 INC SI LOOP L1 POP CX MOV SI,DI STC 。將 CF 置為 1， 結(jié)合 ADC語句 ， 實(shí)現(xiàn)加 1操作 L2:ADC BYTE PTR[SI],0 INC SI LOOP L2 RET MULNEG ENDP 3．試編制兩個(gè)長度不同的多精度整數(shù)求和子程序，為提高程序的通用性，要求調(diào)用子程序 時(shí)把兩個(gè)多精度數(shù)的首地址分別放在 SI、 DI 中（低字節(jié)放低位、高字節(jié)放高位），多精度數(shù)字節(jié)數(shù)分別放在 CL、 CH 中。 答 :求得的和放在較長的多精度整數(shù)的存儲(chǔ)區(qū) ADDITION PROC NEAR CLC 。ZF清零 CMP CL,CH JGE CA 。第一個(gè)多精度數(shù)較長 CR: MOV AL,[SI] ADC [DI],AL INC DI INC SI DEC CL JNZ CR JMP EXIT CA: MOV AL,[DI] ADC [SI],AL INC DI INC SI DEC CH JNZ CA EXIT: RET ADDITION ENDP 4．試編寫一個(gè)子程序用以統(tǒng)計(jì)字?jǐn)?shù)組中零元素的個(gè)數(shù)，參數(shù)采用堆棧傳遞，入口參數(shù)為：數(shù)組存儲(chǔ)區(qū)首地址，數(shù)組長度 N。出口參數(shù)為零元素的個(gè)數(shù)，并寫出 CALL 指令執(zhí)行前后，以及 RET 指令執(zhí)行前后，堆棧情況。 答 ： SSTACK SEGMENT DW 16 DUP(?) TOS LABEL WORD SSTACK ENDS DATA SEGMENT ARRAY DW 2,63,5,0,4,16,0,9 N DW ($ARRAY)/2 COUNT DW 0 DATA ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA,SS:SSTACK START:MOV AX,DATA MOV DS,AX MOV AX,SSTACK MOV SS,AX MOV SP,OFFSET TOS LEA BX,ARRAY PUSH BX 。壓入數(shù)組首地址 LEA BX,N PUSH BX 。壓入元素個(gè)數(shù)地址 LEA BX,COUNT PUSH BX 。壓入零元素?cái)?shù)目地址 CALL COMPUTE MOV AH,4CH INT 21H COMPUTE PROC FAR PUSH BP MOV BP,SP PUSH CX PUSH SI PUSH DI MOV SI,[BP+10]。得到數(shù)組首址 MOV DI,[BP+8]。元素個(gè)數(shù)地址 MOV CX,[DI] 。得到元素個(gè)數(shù) MOV DI,[BP+6] 。零元素?cái)?shù)目地址 NEXT:CMP WORD PTR[SI],0 JNE COMMON INC WORD PTR[DI] COMMON:ADD SI， 2 LOOP NEXT POP DI POP SI POP CX POP BP RET 6 COMPUTE ENDP CODE ENDS END START CALL 指令執(zhí)行前堆棧情況如題圖 ； CALL 指令執(zhí)行后及 RET 指令執(zhí)行前堆棧情況如題圖 ； RET指令執(zhí)行后堆棧情況如題圖 。 A R R A Y首 址S S→N的 地 址C O U N T地 址┇0S P→P S P段 地 址C A L L指 令 執(zhí) 行 前 堆 棧C O U N T 首 址S S →C S 值I P 值┇N 的 地 址S P →A R R A Y 首 址C A L L 指 令 執(zhí) 行 后 及 R E T 執(zhí) 行 前 堆 棧0P S P 段 地 址A R R A Y首 址S S→N的 地 址C O U N T地 址┇0S P→P S P段 地 址R E T執(zhí) 行 后 狀 態(tài) 題圖 題圖 題圖 5．試編程計(jì)算兩個(gè)數(shù) X 和 Y 最小公倍數(shù)的子程序。 答 :設(shè) AL 中存儲(chǔ) X， BL 中存儲(chǔ) Y LCM PROC NEAR PUSH DX CMP AL,BL JA NEXT XCHG AL,BL 。保證 AL中存放較大數(shù) NEXT:MOV DL,AL 。保留 AL值 MOV DH,BL 。保留 BL值 LOOP1:AND AH,00H DIV BL 。求 AL MOD BL，值（余數(shù)）放 AH CMP AH,0 JE OVER MOV AL,BL MOV BL,AH JMP LOOP1 OVER:MOV AL,DL MUL DH 。X Y→ AX DIV BL 。AL為求得的最小公倍數(shù)， BL 中為最大約數(shù) POP DX RET LCM ENDP 6．試編制一個(gè)計(jì)算兩個(gè)正整數(shù) X 和 Y 最大公約數(shù)的子程序。 答 :程序參見題 5 7．設(shè)一維數(shù)組 LIST LIST LIST3 中分別存放了若干個(gè)單字長的帶符號(hào)數(shù)，試編制程序使 3 個(gè)表中的數(shù)據(jù)都按降序排列。表中元素的個(gè)數(shù)分別在 NUM NUM NUM3 三個(gè)單元中。 答 ： DATA SEGMENT LIST1 DW 1,2,3,4,5,6,7,8,9,10 NUM1 DW ($LIST1)/2 LIST2 DW 10,20,30,40,50,60,7,80,90,100 NUM2 DW ($LIST2)/2 LIST3 DW 100,200,300,400,500,600,700,800,900,1000 NUM3 DW ($LIST3)/2 TABLE DW 2 DUP(?) DATA ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA START:MOV AX,DATA MOV DS,AX MOV TABLE,OFFSET LIST1 MOV TABLE+2,OFFSET NUM1 LEA BX,TABLE CALL SORT MOV TABLE,OFFSET LIST2 MOV TABLE+2,OFFSET NUM2 LEA BX,TABLE CALL SORT MOV TABLE,OFFSET LIST3 MOV TABLE+2,OFFSET NUM3