【正文】 : mov ax,data mov ds,ax mov es,ax lea dx,mess1 mov ah,09 int 21h 。qust1? lea dx,st1 mov ah,0ah int 21h 。ans1 lea dx,mess2 mov ah,09 int 21h 。qust2? lea dx,st2 mov ah,0ah int 21h 。ans2 mov cl,act1 mov dl,act2 cmp cl,dl jnz nomatch mov ch,0 lea si,stok1 lea di,stok2 repe cmpsb jnz nomatchmatch: lea dx,mess3 mov ah,09 int 21h jmp exitnomatch: lea dx,mess4 mov ah,09 int 21h sub di,offset stok2 mov dx,di add dl,30h mov ah,2 int 21hexit: mov ah,4ch int 21h code ends end start 編寫程序，從鍵盤輸入一個字符串到BUFF，再輸入一個字符到AL，在字符串BUFF中查找是否存在該字符，如果找到，顯示發(fā)現(xiàn)的字符位置。答：data segment mess1 db 13,10, 39。input string:$39。mess2 db 13,10, 39。input a char:$39。mess3 db 13,10, 39。found at $39。mess4 db 13,10, 39。no found !$39。st1 label byte max1 db 6 act1 db ? stok1 db 6 dup(?)data endscode segment para39。code39。 assume cs:code, ds:data start: mov ax,data mov ds,ax mov es,ax lea dx,mess1 mov ah,09 int 21h 。qust1? lea dx,st1 mov ah,0ah int 21h 。ans1 lea dx,mess2 mov ah,09 int 21h 。qust2? mov ah,1 int 21h 。ans2 lea di,stok1 repne scasb jz matchnomatch: lea dx,mess4 jmp exitmatch: lea dx,mess3exit: mov ah,09 int 21h sub di,offset stok1 mov dx,di and dx,0fh add dl,30h mov ah,2 int 21h mov ah,4ch int 21h code ends end start 編寫程序，從鍵盤輸入一個字符串到BUFF，并按相反順序顯示輸出。答: data segment mess1 db 13,10, 39。input string:$39。mess2 db 13,10,39。$39。st1 label byte max1 db 6 act1 db ? stok1 db 6 dup(?)data endscode segment assume cs:code, ds:data start : mov ax,data mov ds,ax lea dx,mess1 mov ah,09 int 21h lea dx,st1 mov ah,0ah int 21h lea dx,mess2 mov ah,09 int 21h mov cl,act1 mov ch,0 mov bx, offset stok1 add bx, cx next: dec bx mov dl, [bx] mov ah,2 int 21h loop next mov ah,4ch int 21h code ends end start 編寫程序，從鍵盤輸入一個八位的二進制數(shù)，顯示其十六進制數(shù)。答：code segment assume cs:codestart: mov cx,8 mov bl,0next: mov ah,1 int 21h cmp al,30h jb exit cmp al,31h ja exit sub al,30h shl bl,1 add bl,al loop next mov cl,4 mov di,2out1: rol bl,cl mov dl,bl and dl,0fh add dl,30h cmp dl,39h jle dig add dl,7dig: mov ah,2 int 21h dec di cmp di,0 jnz out1 exit: mov ah,4ch int 21hcode endsend start 字數(shù)組ARRAY為有符號數(shù)，第一個單元為元素個數(shù)N，后面為N個元素，編寫程序，求數(shù)組元素中的最大值，并把它放入MAX單元。答：data segment array dw 5,9,4,5,15,3 max dw ?data endscode segment assume cs:code,ds:datastart: mov ax, data mov ds, ax mov cx, array lea bx, array+2 mov ax, [bx] mov max, axk1: mov ax, [bx] cmp ax, max jl next mov max,axnext: add bx,2 loop k1 mov ah,4ch int 21hcode endsend start 字數(shù)組ARRAY，第一個單元為元素個數(shù)N，后面為N個元素，編寫程序，把零元素從數(shù)組中清除，移動元素位置并修改第一個單元(元素個數(shù))。答：data segment array dw 6,3,4,0,15,0,7 loca dw 999 ；此單元地址為結束標記data endscode segment assume cs:code,ds:datastart: mov ax, data mov ds, ax mov cx, array lea bx, array+2next: cmp word ptr[bx],0 jz move add bx,2 dec cx cmp cx,0 jnz next jmp exitmove: dec array mov di,bxmnext: cmp di,offset loca ja next mov ax, [di+2] mov [di],ax add di,2 cmp di,offset loca jnb next jmp mnextexit: mov ah,4ch int 21hcode endsend start習題7 過程定義如下，補充括號中的指令。code segment assume cs:codemain proc far( )( )( )………retmain endpcode endsend main答：( PUSH DS )( XOR AX,AX )( PUSH AX ) 補充下列程序括號中的指令，使得程序對堆棧的操作全部利用程序中定義的TOS堆棧，并畫出程序執(zhí)行后堆棧TOS中的數(shù)據(jù)。data segment dw 100 dup(?) tos label worddata endscode segment assume cs:code,ss:datamain proc far( )( )( )push dsxor ax， axpush axcall far ptr suba… ；假定此處指令的地址為CS=3400h，IP=30h……code endsend main答：( MOV AX,DATA )( MOV SS,AX )( LEA SP,TOS ) 主程序從鍵盤輸入一個字符串到BUFF，再輸入一個字符到AL，用子程序在字符串BUFF中查找是否存在該字符，如果找到，顯示發(fā)現(xiàn)的字符位置。用寄存器傳遞要查找的字符。答：Data segmentBUFF1 db 16,?,16 dup(?),13,10,39。$39。Data endsCode segment Assume cs:code,ds:dataMain proc farPush dsXor ax,axPush ax Mov ax,dataMov ds,axMov es,axLea dx,BUFF1Mov ah,10Int 21hmov ah,1int 21hLea di,BUFF1+2Mov cl,BUFF1+1mov ch,0Mov ah,0Repne scasbJnz yedec dimov bx,diCall BTHYe: retMain endpBTH proc near mov cx,4 s:rol bx,1 rol bx,1 rol bx,1 rol bx,1 mov al,bl and al,0fh