北京理工大學(xué)微機(jī)原理總匯編語言上機(jī)實(shí)驗(yàn)題

1、實(shí)用文檔實(shí)驗(yàn)一請?jiān)跀?shù)據(jù)段中定義兩個數(shù)， 要求編寫程序分別計(jì)算出這兩個數(shù)的和、 差、 積、 商， 并用 Debug的相關(guān)命令查詢計(jì)算結(jié)果。(略)實(shí)驗(yàn)二內(nèi)存自 TABLE 開始的連續(xù)16 個單元中存放著0 15 的平方值， 查表求 DATA 中任意數(shù) X(0WX W15)的平方值，并將結(jié)果放在RESULT中。DATA1 SEGMENTTABLE DB 0,1,4,9,16,25,36,49,64,81,100,121,144,169,196,225DATA DB 10RESULT DB ?DATA1 ENDSSTAC SEGMENTDB 100 DUP (?)STAC ENDSCODE SEGME

2、NTASSUME DS:DATA1,SS:STAC,CS:CODESR:MOV AX,DATA1MOV DS,AXMOV AX,STACLEA BX,TABLEMOV SS,AX實(shí)用文檔MOV AH,0MOV AL,DATAXLATMOV RESULT,ALMOV AH,4CHINT 21HCODE ENDSEND SR實(shí)驗(yàn)三試編寫一程序：比較兩個字符串 STRING1 和 STRING2 所含的字符是否相同。若相同則顯示 MATCH ，否則顯示NO MATCH 。DATA1 SEGMENTSTRING1 DB 10,?,10 DUP (?)STRING2 DB 10,?,10 DUP (?)

3、REM1 DB 'PLEASE INPUT STR1: $'REM2 DB 'PLEASE INPUT STR2: $'MESS1 DB 'MATCH$'MESS2 DB 'NO MATCH$'DATA1 ENDSCODE1 SEGMENTASSUME CS:CODE1,DS:DATA1MOV DS,AXMOV ES,AXLEA DX,REM1MOV AH,09HINT 21HLEA DX, STRING1MOV AH, 0AHINT 21HMOV DL, 0DHMOV AH, 6INT 21HMOV DL, 0AHMOV AH,

4、 6INT 21HLEA DX,REM2MOV AH,09HINT 21HLEA DX, STRING2MOV AH, 0AHINT 21HMOV DL,0DHMOV AH,6實(shí)用文檔INT 21HMOV DL,0AHMOV AH,6INT 21HLEA SI, STRING1LEA DI,STRING2MOV CL,SI+1MOV BL,DI+1CMP CL,BLJNE NOMCLDMOV CH,0ADD CL,2REPZ CMPSBJNZ NOMMAT: LEA DX,MESS1JMP SHORT DISP1NOM: LEA DX,MESS2DISP1: MOV AH,09HINT 21H

5、CODE1 ENDSEND STT實(shí)驗(yàn)四設(shè)有 10 個學(xué)生的成績分別為： 56 ， 69 ， 84 ， 82 ， 73 ， 88 ， 99 ， 63 ， 100 ， 80 分。試編寫程序分別統(tǒng)計(jì)低于60 分、 60-69 分、 70-79 分、 80-89 分、 90-99 分及 100 分的人數(shù)，并將各分?jǐn)?shù)段的人數(shù)在屏幕上顯示出來。DATA SEGMENTSCORE DB 56,69,84,82,73,88,99,63,100,80NUM_UNDER60 DB 0NUM_60TO69 DB 0NUM_70TO79 DB 0NUM_80TO89 DB 0NUM_90TO99 DB 0NUM_1

6、00 DB 0DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART:MOV AX,DATA實(shí)用文檔MOV DS,AXXOR AX,AXMOV CX,10LEA BX,SCORECOMPARE:CMP BYTE PTR BX,60JL UNDER60JMP IS60TO69IS60TO69:CMP BYTE PTR BX,70JL _60TO69JMP IS70TO79IS70TO79:CMP BYTE PTR BX,80JL _70TO79JMP IS80TO89IS80TO89:CMP BYTE PTR BX,90JL _80TO89JMP IS9

7、0TO99IS90TO99:CMP BYTE PTR BX,100JL _90TO99JZ EQUAL100UNDER60:ADD NUM_UNDER60,1JMP CON_60TO69:ADD NUM_60TO69,1JMP CON_70TO79:ADD NUM_70TO79,1JMP CON_80TO89:ADD NUM_80TO89,1JMP CON_90TO99:ADD NUM_90TO99,1JMP CONEQUAL100:ADD NUM_100,1CON:實(shí)用文檔LEA BX,BX+1LOOP COMPARELAST:MOV DL,NUM_UNDER60ADD DL,30HMOV

8、AH,2INT 21HMOV DL,' 'MOV AH,2INT 21HMOV DL,NUM_60TO69ADD DL,30HMOV AH,2INT 21HMOV DL,' 'MOV AH,2INT 21HMOV DL,NUM_70TO79ADD DL,30HMOV DL,' 'MOV AH,2INT 21HMOV DL,NUM_80TO89ADD DL,30HMOV AH,2INT 21HMOV DL,' 'MOV AH,2INT 21HMOV DL,NUM_90TO99ADD DL,30HMOV AH,2INT 21HMOV

9、DL,' 'MOV AH,2INT 21HMOV DL,NUM_100ADD DL,30HMOV AH,2INT 21HMOV AH,4CH實(shí)用文檔INT 21HCODE ENDSEND START實(shí)驗(yàn) 5設(shè)有 10 個學(xué)生的成績分別為 88.75.95.63.98.78.87.73.90.60編寫程序分別排出他們的名次，并分別存放在后續(xù)的 10 個單元中DATA SEGMENTSCORE DB 88,75,95,63,98,78,87,73,90,60ORDER DB 10 DUP(?)DISPLAY DB '$'DATA ENDSSTACK SEGMENTD

10、B 100 DUP(?)STACK ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSTART:MOV AX,DATAMOV DS,AXMOV ES,AXMOV AX,STACKMOV SS,AXLEA DI,ORDERLEA BX,SCOREMOV DX,10L2:MOV AL,BXLEA SI,SCOREMOV CX,10MOV BYTE PTRDI,1L1:CMP AL,SIJNC TTL:INC BYTE PTRDITT:INC SILOOP L1INC BXINC DIDEC DX實(shí)用文檔JNZ L2MOV CX,10LE

11、A DX,DISPLAYMOV AH,9INT 21HLEA SI,ORDERL3:MOV AL,SICMP AL,10JAE TENMOV DL,SIADD DL,30HMOV AH,2INT 21HJMP DOUTEN:DAAPUSH AXPUSH CXSHR AL,CLMOV CL,4實(shí)用文檔POP CXADD AL,30HMOV DL,ALMOV AH,2INT 21HPOP AXAND AL,0FHADD AL,30HMOV DL,ALMOV AH,2INT 21HDOU:INC SICMP CX,1JZ FMOV DL,','MOV AH,2INT 21HLOOP

12、L3F:INT 21HCODE ENDSEND START實(shí)驗(yàn)六編寫程序： 要求完成從鍵盤輸入字符， 若輸入的是數(shù)字N ， 則響鈴 N 次。 如輸入不是數(shù)字，則不響鈴。DATA SEGMENTNUM DB ?DATA ENDSCODE SEGMENTASSUME DS:DATA,CS:CODESTART: MOV AX,DATAMOV DS,AXMOV AH,1INT 21HXOR CX,CXCMP AL,30HJL L1CMP AL,3AHJGE L1SUB AL,30HMOV CL,AL實(shí)用文檔RING: MOV DL,07HMOV AH,2INT 21HCALL DELAYLOOP RI

13、NGDELAY PROCDLAY: PUSH CXMOV BX,0FFFFHLP2: MOV CX,176HLP1: PUSHFPOPFLOOP LP1DEC BXJNZ LP2POP CXRETDELAY ENDPL1:MOV AH,4CHINT 21HCODE ENDSEND STARTCODE ENDSEND START實(shí)驗(yàn)七子程序調(diào)用：從鍵盤輸入字符串(包括數(shù)字,大寫字母，小寫字母，標(biāo)點(diǎn)符號)，要求調(diào)用子程序?qū)⑵渲械男懽帜皋D(zhuǎn)換成大寫字母，然后將結(jié)果輸出。DATA SEGMENTBUF DB 100,?,100 DUP(?)CR DB 13,10,'$'DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART: MOV AX,DATAMOV DS,AXLEA DX,BUFMOV AH,0AHINT 21HMOV DL,0DHMOV AH,6INT 21HMOV DL,0AH實(shí)用文檔MOV AH,6INT 21HXOR BX,BXLEA SI,BUF+2XOR CX,CXMOV CL,BUF+1L1:MO