【正文】 ber這個子過程有問題，請自行修改。。showNumber PROC NEARcovernum:DAAMOV dx,axMOV cl,4Hshow:ROL dx,4Hpush dxAND dx,0fHADD dx,30HMOV ah,02Hint 21Hpop dxloop showretshowNumber ENDPEND start$為結(jié)束副的字符串，然后對其中的非數(shù)字字符計數(shù)，并顯示出計數(shù)結(jié)果。.model small.386.codeMAIN PROC FARstart:push dsmov ax,0push axmov cx,0input:mov ah,1Hint 21Hpare:cmp al,24Hje printcmp al,30Hjl addCountcmp al,39Hjg addCountaddCount:add ax,1Hjmp inputprint:call showNumberexit:retMAIN ENDP。。。注意，ShowNumber這個子過程有問題，請自行修改。。showNumber PROC NEARcovernum:DAAMOV dx,axMOV cl,2Hshow:ROL dl,4Hpush dxAND dl,0fHADD dl,30HMOV ah,02Hint 21Hpop dxloop showretshowNumber ENDPEND start 有一個首地址為MEM的100D字數(shù)組，試編制程序刪除數(shù)組中所有為零的項，并將后續(xù)項向前壓縮，最后將數(shù)組的剩余部分補上零。.model small.386.stack 100H.datamem dw 12,0,0,0,0,0,1,2,3,6,4,7,8,2,1,0,0,54,5,0,2,4,7,8,0,5,6,2,1,4,8,5,1,45,7,5,1,2,0,2,4,0,2,54,0,12,0,0,0,0,0,1,2,3,6,4,7,8,2,1,0,0,54,5,0,2,4,7,8,0,5,6,2,1,4,8,5,1,45,7,5,1,2,0,2,4,0,2,54,0,45,7,5,1,2,0,2,4,0,2.codeMAIN PROC FARstart:push dsand ax,0push axmov ax,@datamov ds,ax。mov ax,0Hmov bx,64Hmov cx,64Hmov si,0FFFEHrepeat:ADD si,2Hcmp MEM[si],0HJE callsloop repeatcalls:INC axcall sortcmp ax,1HJE lastValueDEC cxjmp repeatexit :retlastValue:mov mem[bx],0HDEC cxjmp repeatMAIN ENDPsort PROC NEARpush cxpush sisub si,2Hs:add si,2Hmov dx,mem[si]mov mem[si+2],dxloop sreturn:pop sipop cxretsort ENDPEND start第六章答： (1) NAME1 NAMELIST (2) MOV AX，DATA ；假設(shè)結(jié)構(gòu)變量NAME1定義在數(shù)據(jù)段DATA中 MOV DS，AX MOV ES，AX ； MOV AH，10 LEA DX，NAME1 INT 21H ； MOV CL， MOV CH，0 LEA SI， LEA DI，DISPFILE CLD REP MOVSB 答： SKIPLINES PROC NEAR PUSH CX PUSH DX MOV CX，AX NEXT： MOV AH，2 MOV DL，0AH INT 21H MOV AH，2 MOV DL，0DH INT 21H LOOP NEXT POP DX POP CX RET SKIPLINES ENDP 答： dseg segment num dw 76,69,84,90,73,88,99,63,100,80 n dw 10 s6 dw 0 s7 dw 0 s8 dw 0 s9 dw 0 s10 dw 0 dseg ends code segment main proc far assume cs:code, ds:dseg start: push ds sub ax, ax push ax mov ax, dseg mov ds, ax call sub1 ret main endp sub1 proc near push ax push bx push cx push si mov si, 0 mov cx, n next: mov ax, num[si] mov bx, 10 div bl mov bl, al cbw sub bx, 6 sal bx, 1 inc s6[bx] add si,2 loop next pop si pop cx pop bx pop ax ret sub1 endp code ends end start 答： data segment maxlen db 40 n db ? table db 40 dup (?) char db 39。a39。 。 查找字符’a’ even addr dw 3 dup (?) data ends code segment assume cs:code, ds:data main proc far start: push ds mov ax, 0 push ax mov ax, data mov ds, ax lea dx, maxlen mov ah, 0ah int 21h 。 從鍵盤接收字符串 mov addr, offset table mov addr+2, offset n mov addr+4, offset char mov bx, offset addr 。 通過地址表傳送變量地址 call count 。 計算CHAR的出現(xiàn)次數(shù) call display 。 顯示 ret main endp count proc near 。 count子程序 push si push di push ax push cx mov di, [bx] mov si, [bx+2] mov cl, byte ptr[si] mov ch, 0 mov si, [bx+4] mov al, byte ptr[si] mov bx, 0 again: cmp al, byte ptr[di] jne l1 inc bx l1: inc di loop again pop cx pop ax pop di pop si ret count endp display proc near 。 display子程序 call crlf 。 顯示回車和換行 mov dl, char mov ah, 2 int 21h mov dl, 20h mov ah, 2 int 21h mov al, bl and al, 0fh add al, 30h cmp al, 3ah jl print add al, 7 print: mov dl, al int 21h call crlf ret display endp crlf proc near 。 crlf子程序 mov dl, 0dh mov ah, 2 int 21h mov dl, 0ah mov ah, 2 int 21h ret crlf endp code ends end start第七章答： CLRB MACRO N, ARRAY CLD MOV CX, N MOV AL, 20H LEA DI, ARRAY REP STOSB ENDM 答： WAGES MACRO RATE，HOUR MOV AL，RATE MOV BL，HOUR MUL BL ；計算周工資 ； ADD AX，AX ADD AX，AX ；一個月有4周 MOV WAG，AX ；暫存中間結(jié)果 ADD BL，BL ADD BL，BL ；計算月出工小時數(shù) MOV AL，BL MOV AH，0 MOV BL，10 DIV BL MOV BL，3 MUL BL ；計算獎金 ADD WAG，AX ；計算工資總數(shù) ENDM 宏展開： 1 MOV AL，R1 1 MOV BL，42 1 MUL BL 1 ADD AX，AX 1 ADD AX，AX 1 MOV WAG，AX 1 ADD BL，BL 1 ADD BL，BL 1 MOV AL，BL 1 MOV AH，0 1 MOV BL，10 1 DIV BL 1 MOV BL，3 1 MUL BL 1 ADD WAG，AX 答： (1) 調(diào)用有效 1 PUSH AX 2 MOV AX, P1 2 SUB AX, P2 1 CMP AX, 0 1 JGE ??0000 1 NEG AX 1 ??0000: MOV DISTANCE, AX 1 POP AX (2) 調(diào)用有效 1 PUSH AX 2 MOV AX, [BX] 2 SUB AX, [SI] 1 CMP AX, 0 1 JGE ??0001 1 NEG AX 1 ??0001: MOV X[DI], AX 1 POP AX (3) 調(diào)用無效，有錯誤指令 1 ??0002: MOV 240H, AX (4) 調(diào)用有效，但無意義 宏展開略。 答： SEND MACRO SCHARS, DCHARS LOCAL NEXT, EXIT PUSH AX PUSH SI MOV SI, 0 NEXT: MOV AL, SCHARS[SI] MOV DCHARS[SI], AL CMP AL, 24H JZ EXIT INC SI JMP NEXT EXIT: POP SI POP AX ENDM 答： BIN_SUB MACRO OPERAND，COUNT，RESULT LOCAL NEXT LEA BX，OPERAND MOV CX，COUNT DEC CX MOV AL，[BX] NEXT： INC BX SUB AL，[BX] LOOP NEXT MOV RESULT，AL ENDM 答： 宏展開： 2 DATA0 DW ？ 2 DATA1 DW ？ 答： 1 MOV TAB , 0 1 MOV TAB+1, 1 1 MOV TAB+2, 2 1 MOV TAB+3, 3 1 MOV TAB+4, 4 1 MOV TAB+5, 5 1 MOV TAB+6, 6 答： STORE MACRO X IRPC X, 0123456 MOV TAB+amp。X, X ENDM ENDM 1答： FINSUM MACRO X，Y，SUM MOV AX, X MOV BX, Y .IF AX BX ADD BX, BX ADD AX, BX MOV SUM, AX .ELSE ADD AX, AX ADD AX, BX MOV SUM, AX .ENDIF ENDM 1答： DOS21 MACRO DOSFUNC，BUFF IFNB 225。BUFF? MOV AH,DOSFUNC MOV DX,OFFSET BUFF INT 21H ELSE MOV AH,DOSFUNC INT 21H ENDIF ENDM 展開宏調(diào)用： 1 MOV AH,01 1 INT 21H 1 MOV AH,0AH 1 MOV DX,OFFSET IPFIELD 1 INT 21H第八章答： （1）00048H （2）00020H 答： mov ah, 02 mov dl, ‘T’ mov bx, 0 mov ds,bx mov bx, 21h * 4 call far ptr [bx] 答： mov al, 12h out 25h, al 答： mov dx, 1000h in ax, dx 答： (SP) = 00FA (SS) = 0300 (IP) = 0040 (FLAGS) = 0040 答： 14H*4 = 50H ，∴ （00050H）= 偏移地址，（00052H）= 段地址 答： push ds mov ax, seg int_rout mov ds, ax mov dx, offset int_rout mov al, 09 mov ah, 25h int 21h pop ds 1 答：D3→D2→D3→D4→D5→D1→D3→D5 1 答：D3→D2→D4→D5→D1→D3→D5第九章答： 二者不同點是功能1輸入字符可回顯，功能8輸入字符不回顯。 答： dseg segment scode db 7,5,9,1,3,6,8,0,2,4 buffer db 10 dup (?) dseg ends 。 cseg segment main proc far mov ax,dseg mov ds,ax mov si,0 mov cx,10 lea bx,scode input: mov ah,01 。 鍵盤輸入 int 21h and al,0fh 。 ASCII→數(shù)字 xlat 。 換碼 mov buffer[si],al 。 存入緩沖區(qū) inc si 。 修改地址指針 loop input 。 輸入下一個數(shù)字 mov ax,4c00h 。 返回DOS int 21h main endp cseg ends end main 答： （（24行80）+40列）2 = 3920 = 0F50H 答： mov dh, 0ch 。 第12行 mov dl, 08h 。 第8列 mov bh, 0 。 0頁 mov ah, 2 。 置光標 int 10h 。 BIOS調(diào)用 答： mov ah, 7 。 屏幕初始化 mov al, 0 。 全屏為空格 mov bh, 07h 。 正常屬性 mov ch,12 。 左上行 mov cl, 0 。 左上列 mov dh, 22 。 右下行 mov dl, 39 。 右下列 int 10h 。 BIOS調(diào)用 答： (1) mov ah, 3 。讀光標位置 mov bh, 0 。頁號 int 10h 。BIOS調(diào)用 (2) mov dh, 18h 。第25 行 mov dl, 0 。第0 列 mov bh, 0 。0頁 mov ah, 2 。置光標位置 int 10h 。BIOS調(diào)用 (3) mov ah, 2 。置光標位置 mov bh, 0 。0頁 mov dx, 0 。0行0 列 int 10h 。 BIOS調(diào)用 mov ah, 9 。顯示字符及屬性 mov al, ‘M’ 。字符 mov bh, 0 。0頁 mov bl, 7 。正常屬性 mov cx, 1 。顯示次數(shù) int 10h 。BIOS調(diào)用 答： message db ‘Try again, you have’ Count db ‘n’ db ‘ starfighters left.$’ 。 … … add cl,30h 。二進制數(shù)→ASCII mov count, cl 。存入COUNT lea dx, message 。字符串地址 mov ah, 09 。顯示字符串 int 21h 。DOS調(diào)用 答： mess db ‘What is the date（mm / dd / yy）’, 07, ‘$’ date db 10,0,10 dup (‘ ‘) … mov ah, 09 。顯示字符串 lea dx, mess 。字符串地址 int 21h mov ah, 0ah 。鍵盤輸入 lea dx, date 。緩沖區(qū)地址 int 21h 1答： MODE COM2:12, N, 8, 1第十章1。答： （1）EXYRN SUBPRO：FAR （2）PUBLIC SUBPRO 答： （1）PUBLIC QTY, VALUE, PRICE （2）EXTRN QTY:BYTE, VALUE:WORD, PRICE:WORD 答： 模塊1： PUBLIC VAR1, VAR2, LAB3 模塊2: PUBLIC VAR3, LAB2 EXTRN VAR1:DWORD, VAR2:BYTE, LAB1:NEAR, LAB3:FAR 模塊3: PUBLIC LAB3 EXTRN V