【正文】 （1） 窗口外框左上角為7行19列，右下角為19行51列，內(nèi)框左上角坐標為8行20列，右下角坐標為18行50列，邊框為品紅色，底色為綠色，字符為白色。（2） 程序運行后，光標定位于18行20列處，等待輸入。當輸入慢30個字符，則自動上卷一行，光標仍然回到開始位置，窗口在最高一行向上卷動后消失。代碼：DATAS SEGMENT 。此處輸入數(shù)據(jù)段代碼 DATAS ENDSSTACKS SEGMENT dw 20 dup(?) STACKS ENDSinputword macro num ；宏的定義 mov ah,2h mov bh,0 mov dh,18 mov dl,20 int 10h；光標定位 mov cx,31 againamp。num: mov ah,1 int 21h ；輸入30個字符，也就是一行l(wèi)oop againamp。num mov ah,6h mov al,1 mov bh,2Fh mov ch,8開始 mov cl,20 mov dh,18 mov dl,50 int 10h；上卷一行endm外框設(shè)置CODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS內(nèi)框設(shè)置 MOV DS,AX mov ah,6 mov al,0 mov bh,50h mov ch,7 mov cl,19利用宏的10次調(diào)用，輸入10行字符，沒輸入完一行后上卷，并把光標復(fù)位。 mov dh,19 mov dl,51 int 10h ；外框設(shè)置 mov bh,2Fh mov ch,8 mov cl,20 mov dh,18 mov dl,50 int 10h；內(nèi)框設(shè)置結(jié)束 inputword 1；宏的調(diào)用 inputword 2 inputword 3 inputword 4 inputword 5 inputword 6 inputword 7 inputword 8 inputword 9 inputword 0 MOV AH,4CH INT 21H；返回DOSCODES ENDS END START結(jié)果分析：在主程序中寫入宏的名字，執(zhí)行宏調(diào)用，可以實現(xiàn)宏里面所定義的功能。實驗心得：宏的展開其實就是一個替換的過程，是在編譯的時候就實現(xiàn)的，它姿勢減少的代碼的編寫量，不同于子函數(shù)，宏在計算機看來依然是大量的重復(fù)代碼，所以在編寫的過程中一定要注意宏定義時一定要區(qū)別變量。比如在該程序中的宏里面循環(huán)所用到的節(jié)點就必須要特別的加一區(qū)別againamp。num。不然多個宏展開之后會產(chǎn)生錯誤。問題討論：本題可以用子函數(shù)代替宏來實現(xiàn)相同的功能嗎？可以，子函數(shù)和宏都能夠達到減小代碼量的作用，只是宏是在編譯的時候就展開，而子程序是在運行時調(diào)用。本題可以用如下子函數(shù)來實現(xiàn)相同功能：inputword proc mov ah,2h mov bh,0 mov dh,18 mov dl,20 int 10h mov cx,31 again: mov ah,1 int 21hloop again mov ah,6h mov al,1 mov bh,2Fh mov ch,8 mov cl,20 mov dh,18 mov dl,50 int 10hinputword endp參考文獻：IBMPC匯編語言程序設(shè)計（第二版）技術(shù)支持：Michael實驗二十二：字符串搜索實驗?zāi)康模?. 進一步熟悉匯編語言的開發(fā)方法和過程。2. 掌握匯編語言程序設(shè)計中字符串搜索的基本方法。實驗原理：利用DOS的0ah號功能可以將字符串順序的存入數(shù)據(jù)段中，該段的第一個單元存放的是最大字符數(shù)，第二個單元存放的是實際字符數(shù)。字符串的匹配可以以母串為基本，從第一個字符開始匹配，如果不成功則以下一個字符為開始位置匹配。實驗內(nèi)容：程序接收用法輸入的一個關(guān)鍵字及一個句子。如果句子中不包含關(guān)鍵字則顯示No match，如果句子中包含關(guān)鍵字則顯示Match 且把該句子中的位置用十六進制數(shù)顯示出來。代碼：DATAS SEGMENT message db 100,?,100 dup(39。$39。) search db 31,30,?, 30 dup(39。$39。) startword db 39。enter keyword:39。,13,10,39。$39。 nextword db 13,10,39。enter sentence:39。,13,10,39。$39。 nextline db 13,10,39。$39。 match db 39。 match39。,13,10,39。$39。 nomatch db 39。no match39。,13,10,39。$39。DATAS ENDSSTACKS SEGMENT db 20 dup(?) 。此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSmain proc MOV AX,DATAS MOV DS,AXsearchbegin: mov ah,09h lea dx,startword ；顯示開始提示信息 int 21h mov ah,0ah lea dx,search int 21h ；輸入關(guān)鍵字開始 mov ah,09h lea dx,nextword輸入關(guān)鍵字 int 21h ；顯示句子輸入提示 mov ah,0ah輸入句子 lea dx,message int 21h；輸入句子 SI置1，從句子第一為開始查找 mov ah,09h lea dx, nextline int 21h否SI加一 mov si,1SI是否等于句子長度 push si again: pop si否是 inc si ；從句子的下一位置匹配 push siDi置2，從關(guān)鍵字第一位開始匹配 mov bl,[message+1] mov bh,0否判斷句子第 位和子串第DI位是否相同。 add bx,3 cmp si,bx jz nosame mov di,2 Di加一 mov cl,[search+1] mov ch,0 continue:否 mov bl,[message+si]DI是否等于關(guān)鍵字長度 cmp bl,[search+di] jnz again ；不匹配 inc di ；匹配下一字符否 inc si輸出匹配信息輸出不能匹配信息 loop continue pop bx dec bx是否摁下ESC call binihex ；顯示匹配位置 lea dx,match jmp over nosame:結(jié)束 lea dx,nomatch over: mov ah,9 int 21h mov ah,1 int 21h cmp al,1bh jnz searchbegin MOV AH,4CH INT 21Hmain endpbinihex proc near ；將BX中的二進制數(shù)轉(zhuǎn)換為16進制數(shù)的輸出 mov ch,4 rotate: mov cl,4 rol bx,cl ；循環(huán)左四位 正好把一位十六進制數(shù)移動BX的最后四位 mov al,bl and al,0fh add al,30h ；如果在09 則加30h顯示數(shù)字 cmp al,3ah jl printit add al,7h ；如果大于等于A 則要在加7h才能顯示出十六進制的AF printit: mov dl,al mov ah,2 int 21h dec ch jnz rotate ；如果未輸完4個 接著輸出下一個 mov dl,39。H39。 mov ah,2 int 21h ；顯示H retbinihex endpCODES ENDS END main 參考文獻：IBMPC匯編語言程序設(shè)計（第二版）技術(shù)支持：Michael 計科0803 余廷釗 20084206933