1、實驗一 Fibonacci數列實現一.實驗目的及內容1、實驗目的進一步掌握子程序的設計方法，熟悉遞歸程序的設計2、實驗要求掌握遞歸程序的調用、返回及入口、出口參數的傳遞方法。3、實驗內容程序接收由用戶鍵入的數N，根據給定的N值，計算Fibonacci數。Fibonacci數的定義如下：FIB（1）=1FIB（2）=1FIB（N）=FIB（N-2）+FIB（N-1） N>=3二.實驗環境Masm For Windows集成實驗環境共享版 編寫編譯程序 三.實驗方法 程序接收用戶輸大于20小于30的十進制正整數，存入輸入緩沖區后再把它轉化為十六進制數，存入內存單元N中。調用FIB函數求Fib

2、onacci數,結果高位存在RESULT2H，低位存在RESULT2L，最后調用OUTPUT函數將結果以十進制的形式顯示出來。程序亮點在于將結果轉換為十進制時采用了除10取余的方法，對于高位通過在適當的位數加65536(ADD65536)的方式巧妙地將乘法轉化為加法。四.實驗步驟開始CALL INPUTCALL FIBCALL OUTPUT結束1.顯示提示，并接受一個數字N；2.調用fib遞歸 得到結果存入內存；3.調用顯示10進制函數OUTPUT。五.實驗結論輸入數據 25(十進制)輸出數據 75025(10進制) 輸入19與31，驗證邊界滿足，如下圖：六. 實驗分析 本實驗使我進一步掌握子

3、程序的設計方法，熟悉遞歸程序的設計，豐富了我寫匯編程序的經驗。實驗二 窗口顏色改變實驗一、實驗目的編寫程序，在屏幕上設置任意兩個數值，以此為對角線坐標點開設窗口，設定熱鍵控制窗口的顏色，使屏幕顏色有淺至深。二、實驗要求要求用匯編實現，并使用熱鍵控制顏色改變。三、實驗環境Masm For Windows集成實驗環境共享版 編寫編譯程序四、實驗步驟 輸入兩個坐標，作為對角線坐標，建立窗口 用熱鍵控制顏色，看顏色變化。五、實驗結論輸入坐標：top_left為50,50,；bottom_right為100,100實驗三 學生信息管理系統一、實驗目的 利用匯編語言編寫學生信息管理系統二、實驗要求 熟悉匯

4、編語言編程，編寫學生信息系統三、實驗內容建立學生成績信息庫，包括學號、成績、名次，從鍵盤輸入學號，實現成績、名次等信息的查詢：學號 姓名 成績 名次01 cjh 80 102 np 99 3四、實驗環境 Masm For Windows集成實驗環境共享版 編寫編譯程序五、實驗結論列出所有學生信息，輸入l查詢記錄，輸入s,并且輸入ID號查詢插入記錄，輸入i 實驗四 虛擬實驗平臺模型機實驗1. 實驗目的1) 掌握模型機的基本原理和結構2) 掌握機器指令與微程序的對應關系；3) 掌握機器指令的執行流程；2. 實驗設備74LS181芯片兩片，memory 6116一片，微程序控制存儲器芯片一片，編譯器

5、芯片一片，八位同步計數器芯片一片，ALU_G芯片一片，PC_G芯片一片，74LS273芯片若干，輸入，輸出芯片各一片，選擇器芯片若干，連接器芯片若干，燈泡若干，開關若干等。3. 實驗原理圖1 模型機示意圖圖1中所示模型機包括運算器、存儲器、微控器、輸入設備、輸出設備以及寄存器。這些部件的動作控制信號都有微控器根據微指令產生。需要特別說明的是由機器指令構成的程序存放在存儲器中，而每條機器指令對應的微程序存儲在微控器中的存儲器中。模型機詳細原理見附件。 4. 實驗內容1) 選擇實驗設備，將所需要的組件從組件列表中拖到實驗設計流程欄中2) 搭建實驗流程：根據原理圖1和電路圖（見附件）,將已選擇的組件

6、進行連線。3) 輸入機器指令:選擇菜單中的“工具”，再選擇“模型機調試”，在指令輸入窗口中輸入如下指令：00000000000100000000100100100000000010110011000000001011010000000000000000000001本實驗設計機器指令程序如下：地址（二進制）內容（二進制）助記符說明0000 00000000 0000IN R0“INPUT DEVICE”->R00000 00010001 0000ADD 0AH,R0R0+0AH->R00000 00100000 10100000 00110010 0000STA R0,0BHR0-&

7、gt;0BH0000 01000000 10110000 01010011 0000OUT 0BH0BH->LED0000 01100000 10110000 01110100 0000JMP 00H00H->PC0000 10000000 00000000 1010運算數據自定0000 1011求和結果4) 這里做的是個加法運算，第一個加數已經存入到內存的0000 1010單元中，第二個加數是需要手工輸入的。在實驗運行面板中點擊“運行”按鈕,選擇“輸入”芯片，設置輸入的數據后，雙擊連接“輸入”芯片的單脈沖，這樣第二個加數就設置好了。5) 在實驗運行面板中雙擊連續脈沖,模型機便開始

8、工作，觀察各個芯片的狀態。或者在模型機調試窗口中（如圖2所示）點擊“指令執行”選項卡，在模型機調試窗口中點擊“下一時鐘”，模型機機執行到下一個時鐘，點擊“下一微指令”，模型機機執行到下一個微指令，點擊“下一指令”，模型機機執行到下一條指令。觀察各個芯片的狀態，思考模型機的運行原理。5：實驗調試在指令輸入框中輸入指令，點擊輸入按鈕，然后執行指令，點擊下一時鐘，下一微指令圖2 模型機調試窗口實驗心得：通過這次匯編組成原理課程設計，更加深入的了解了匯編指令的執行過程，更加透徹得明確了計算機執行指令的過程，特別是虛擬平臺的模型及實驗，讓我知道計算機執行指令時的具體過程。對于計算機的底層運算不在陌生。源

9、碼附錄 1：Fibonacci數DATAS SEGMENT STR1 DB 'Please input a number(20-30):N=','$' STR2 DB 13,10,'FIB(N)=','$' WRONGSTR DB 13,10,13,10,'A number between 20 and 30 please!',13,10,13,10,'$' INPUTBUFFER DB 3,?,3 DUP(?) N DW ? ;輸入N值 RESULT1H DW 0 RESULT1L DW 0 RE

10、SULT2H DW 0 ;結果的高16位 RESULT2L DW 0 ;結果的低16位 C10 DW 10 OUTPUTBUFFER DB 11 DUP('0')DATAS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATASSTART: MOV AX,DATAS MOV DS,AX CALL INPUT CALL FIB CALL OUTPUT JMP QUIT;* INPUT PROC JMP T1WRONG:LEA DX,WRONGSTR MOV AH,9 INT 21H T1:LEA DX,STR1 MOV AH,9 INT 21H LE

11、A DX,INPUTBUFFER MOV AH,10 INT 21H MOV AX,0 MOV CL,INPUTBUFFER+1 MOV CH,0 LEA BX,INPUTBUFFER+2 T2:MUL C10 MOV DL,BX CMP DL,'0' JB WRONG CMP DL,'9' JA WRONG AND DL,0FH ADD AL,DL ADC AH,0 INC BX LOOP T2 CMP AX,001EH JA WRONG CMP AX,0014H JB WRONG MOV N,AX RETINPUT ENDP;* FIB PROC CMP N

12、,1JZ L1CMP N,2JZ L2DEC NCALL FIBMOV AX,RESULT2LMOV DX,RESULT2HMOV CX,RESULT1LADD RESULT2L,CXMOV CX,RESULT1HADC RESULT2H,CXMOV RESULT1L,AXMOV RESULT1H,DXJMP EXIT L1:MOV RESULT1L,1 MOV RESULT2L,1 JMP EXIT L2:MOV RESULT2L,1 DEC N CALL FIBEXIT:RETFIB ENDP;* OUTPUT PROCMOV AX,RESULT2LLEA SI,OUTPUTBUFFERM

13、OV CX,5 R1:MOV DX,0 ;低位加入OUTPUTBUFFERDIV C10INC SIADD SI,DLLOOP R1;* MOV AX,RESULT2H LEA SI,OUTPUTBUFFER MOV CX,5 R2:MOV DX,0 DIV C10 INC SI PUSH CX ;高位加入OUTPUTBUFFER CMP DX,0 JE NOADD MOV CX,DXADDN:CALL ADD65536 LOOP ADDNNOADD:POP CX LOOP R2;*LEA DX,STR2MOV AH,9INT 21H LEA SI,OUTPUTBUFFER MOV BX,10

14、 R3:CMP BYTE PTR SI+BX,'0' JA PRINT DEC BX ;顯示十進制結果 JMP R3PRINT:MOV DL,SI+BX MOV AH,2 INT 21H DEC BX CMP BX,1 JAE PRINT RETOUTPUT ENDP;*ADD65536 PROC ;高位算法 ADD BYTE PTR SI,6 MOV DL,0 CMP BYTE PTR SI,3AH JB A1 SUB BYTE PTR SI,10 MOV DL,1 A1:ADD BYTE PTR SI+1,3 ADD BYTE PTR SI+1,DL MOV DL,0 CM

15、P BYTE PTR SI+1,3AH JB A2 SUB BYTE PTR SI+1,10 MOV DL,1 A2:ADD BYTE PTR SI+2,5 ADD BYTE PTR SI+2,DL MOV DL,0 CMP BYTE PTR SI+2,3AH JB A3 SUB BYTE PTR SI+2,10 MOV DL,1 A3:ADD BYTE PTR SI+3,5 ADD BYTE PTR SI+3,DL MOV DL,0 CMP BYTE PTR SI+3,3AH JB A4 SUB BYTE PTR SI+3,10 MOV DL,1 A4:ADD BYTE PTR SI+4,6

16、 ADD BYTE PTR SI+4,DL MOV DL,0 CMP BYTE PTR SI+4,3AH JB A0 SUB BYTE PTR SI+4,10 MOV DL,1 A5:ADD BYTE PTR SI+5,DL MOV DL,0 CMP BYTE PTR SI+5,3AH JB A0 SUB BYTE PTR SI+5,10 MOV DL,1 A6:ADD BYTE PTR SI+6,DL MOV DL,0 CMP BYTE PTR SI+6,3AH JB A0 SUB BYTE PTR SI+6,10 MOV DL,1 A7:ADD BYTE PTR SI+7,DL MOV D

17、L,0 CMP BYTE PTR SI+7,3AH JB A0 SUB BYTE PTR SI+7,10 MOV DL,1 A8:ADD BYTE PTR SI+8,DL MOV DL,0 CMP BYTE PTR SI+8,3AH JB A0 SUB BYTE PTR SI+8,10 MOV DL,1 A9:ADD BYTE PTR SI+9,DL A0:RETADD65536 ENDP;* QUIT:MOV AH,4CH INT 21HCODES ENDS END START2：顏色改變;*;MACRO DEFINE;clear screencl_scrnmacrotlr,tlc,brr,

18、brcmovah,6moval,0movbh,7movch,tlrmovcl,tlcmovdh,brrmovdl,brcint10hendm;outputprintfmacromsg_addrleadx,msg_addrmovah,9int21hendm;crlfmacromovdl,0dhmovah,2int21h;movdl,0ahmovah,2int21hendm.model small;*.stack;*.datatlrdw?;top_left rowtlcdw?;top_left columnbrrdw?;bottom_right rowbrcdw?;bottom_right col

19、umncolordb0fhrowppdw?biggerdw?countdw8pattern1db00000001bpattern2db00010001bpattern3db00100101bpattern4db01010101bpattern5db11011010bpattern6db11101110bpattern7db11111110bpattern8db11111111bmsgdb'*PRESS ESC TO END THE PROGRAM*',13,10,'$'msg1db'Input top_left position(row:0479,col

20、umn:0639):row,column',13,10,'$'msg2db'Input bottom_right position(row:0479,column:0639):row,column',13,10,'$'msg3db'Input Error!Again.',13,10,'$'flagdb0ffh;*.code;-mainprocfarstart:movax,datamovds,ax;MAIN PART GOES HEREagain:callget_pos;get window's po

21、sition from kbdtestflag,0f0hjzexitcalldisplay;display the windowjmpagainexit:movax,4c00hint21hmainendp;-get_posprocnear;set EGA/VGA movah,00hmoval,02hint10h;clear screencl_scrn0,0,24,79printfmsginput:printfmsg1leasi,tlrcallget_numtestflag,0f0hjzget_pos_exittestflag,0fhjzerrorcrlfprintfmsg2leasi,brrc

22、allget_numtestflag,0f0hjzget_pos_exittestflag,0fhjzerrorget_pos_exit:reterror:cl_scrn1,0,24,79movbh,0movdh,1movdl,0movah,2int10hprintfmsg3orflag,0fhjmpinputget_posendp;-get_numprocnearcalldecibincmpdl,','jzstore_firstcmpdl,1bhjzst_endcmpdl,0jnzget_num_errormovah,7int21hjmpget_num_errorstore_

23、first:cmpbx,479jaget_num_errormovsi,bxcalldecibincmpdl,0dhjzstore_secondcmpdl,1bhjzst_endcmpdl,0jnzget_num_errormovah,7int21hjmpget_num_errorst_end:andflag,0fhjmpget_num_exitget_num_error:andflag,0f0hjmpget_num_exitstore_second:cmpbx,639jaget_num_errormovsi+2,bxget_num_exit:retget_numendp;-decibinpr

24、ocnear;store the number from kbd in BXmovbx,0get_char:movah,1int21hmovdl,alsubal,30hjldecibin_exitcmpal,9jgdecibin_exitcbwxchgax,bxmovcx,10mulcxaddbx,axjmpget_chardecibin_exit:retdecibinendp;-displayprocnear;display the windowpushsi;set EGA/VGAmovah,0moval,13hint10h;movax,brrsubax,tlrincaxmovdx,0mov

25、cx,8divcxmovrowpp,axmovbigger,dx;repaint:movsi,8leadi,pattern1 mov bh,0 movah,0chmoval,colormovdx,tlrcmpdx,brrjaxchg_rmovcx,tlccmpcx,brcjaxchg_cjmpwrite_partxchg_r:xchgdx,brrmovtlc,dxjmpwrite_partxchg_c:xchgcx,brcmovtlc,cxwrite_part:movbl,dipushrowppcmpsi,biggerjawrite_rowincrowppwrite_row:cmprowpp,

26、0jzrow_endpushbxnext_p:rolbl,1;jncdont_write;int10h;jmpwrite_enddont_write:;addal,8int10h;subal,8write_end:inccxcmpcx,brcjbenext_p;popbxrolbl,1rolbl,1movcx,tlcincdxdecrowppjmpwrite_rowrow_end:incdipoprowppdecsijnzwrite_part;change colorget_key:movah,0int16hcmpah,1jzdisplay_exitcmpah,48hjzinc_colorcm

27、pah,4dhjzinc_colorcmpah,50hjzdec_colorcmpah,4bhjzdec_colorsubah,2jlget_keycmpah,7jgget_keymovcolor,ahjmprepaintinc_color:inccolor;andcolor,07hjmprepaintdec_color:deccolorandcolor,07hjmprepaintdisplay_exit:popsiretdisplayendp;-endstart3：學生管理系統DATA SEGMENTTIPS3 DB 'Please input ID:$'查詢提示信息TIPS

28、4 DB ' Please enter "r" to return$'TIPS5 DB ' Please enter "r" to return,"c" to continue$'ID DB ' ID: $'NAM DB ' NAME: $'SEX DB ' SEX: $'SCORE DB 'SCORE: $'RANK DB 'RANK: $'FID DW ?;文件號SEXM DB 'male $'SEXF

29、DB 'female $'mess0 DB ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ',0ah,0dh,'$'mess1 DB ' * * ',0ah,0dh,'$'mess2 DB ' * Welcome To Use This Student Management System * ',0ah,0dh,'$'mess3 DB ' * insert (i) * ',0ah,0dh

30、,'$'mess4 DB ' * list (l) * ',0ah,0dh,'$'mess5 DB ' * search (s) * ',0ah,0dh,'$'mess6 DB ' * quit (q) * ',0ah,0dh,'$'mess7 DB ' * Please chose(i/l/s/q): * ',0ah,0dh,'$'mess8 DB ' * * ',0ah,0dh,'$'mess9 DB ' *

31、 Powered By Linx * ',0ah,0dh,'$'mess10 DB ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ',0ah,0dh,'$'ID_LENGTH EQU 4;配置信息NAM_LENGTH EQU 10SCORE_LENGTH EQU 5RANK_LENGTH EQU 5STU_LENGTH DW ?;每條學生信息總長度DEL DB 30 DUP (' ');清空信息用DEL_DONE DB ' Delet

32、e success !$'ERR DB ' Data error,Please input again!$'錯誤提示信息NOSTU DB ' Sorry,there is no this studnet!$'ERR_NO DB ' No student information!$'ERR_SAME DB ' There is the same ID,please input again!$'NEWF DB 0DH,0AH,0DH,0AH,' Warning: this operation will empty al

33、l your data!',0DH,0AH,0DH,0AH,' Will you continue? (y:empty,other key:return):$'FPATH DB 'c:recoder.txt',0;數據庫文本STR DB 50;緩沖區str DB ? DB 50 DUP (?)STR0 DB 50 DUP (?);緩沖區str0ENTER DB ' $'空格TMP DW 0;是否為空標志信息SC DB 0;分數保護處用 BYE DB ' Thanks For Using Again!',0DH,0AH,0D

34、H,0AH,' Bye$'DATA ENDSSET_P1 MACRO;設定光標位置A MOV AH,02H MOV DH,02 MOV DL,03 MOV BH,0 INT 10H ENDMSET_P3 MACRO MOV AH,02H ;設定光標的位置B MOV DH,10 MOV DL,50 MOV BH,0 ;當前這頁 INT 10H ENDMTAB MACRO;換行MOV AH,2MOV DL,0DHINT 21HMOV DL,0AHINT 21HENDMCREATEF MACRO FILE_ID,FILE_PATH;創建文件（傳入文件號、傳入文件路徑）MOV AH,3

35、CHMOV CX,00H;普通文件LEA DX,FILE_PATHINT 21HMOV FILE_ID,AXENDMOPENF MACRO FILE_ID,FILE_PATH;打開文件（傳入文件號、傳入文件路徑）MOV AL,2;讀寫文式打開MOV AH,3DHLEA DX,FILE_PATHINT 21HMOV FILE_ID,AXENDMCLOSEF MACRO FILE_ID;關閉文件（傳入文件號）MOV BX,FILE_IDMOV AH,3EHINT 21HENDMREADF MACRO FILE_ID,TEMP,NUM;讀文件（傳入文件號、傳入緩沖區、傳入字節數）MOV BX,FIL

36、E_IDLEA DX,TEMPMOV AX,NUMMOV CX,AXMOV AH,3FHINT 21HENDMWRITEF MACRO FILE_ID,TEMP,NUM;寫文件（傳入文件號、傳入緩沖區、傳入字節數）MOV BX,FILE_IDMOV CX,NUMLEA DX,TEMP2MOV AH,40HINT 21HENDMMOVEF MACRO FILE_ID,STYPE,HIGEC,LOWD;移動文件指針（傳入文件號、傳入移動方式、傳入偏移字節（高位）傳入偏移字節（低位）MOV BX,FILE_IDMOV AH,42HMOV AL,STYPE;尾+偏移量方式MOV CX,HIGEC;偏移

37、字節（高位）MOV DX,LOWD;偏移字節（低位）INT 21HENDMINPUT MACRO BUFFER,LENGTH;輸入字符串（傳入字符串名、返回字符串長度）MOV AH,10LEA DX,BUFFERINT 21HMOV LENGTH,BUFFER1ENDMSHOW MACRO BUFFER;顯示字符串（傳入字符串名）MOV AH,9LEA DX,BUFFERINT 21HENDMSTAK SEGMENT STACKDB 200 DUP (?)STAK ENDS;=; 代碼段;=CODE SEGMENTASSUME CS:CODE,DS:DATASHOW_EXIT PROC NEA

38、R;提示按r退出PUSH AXPUSH BXPUSH CXPUSH DXTABTABSHOW TIPS4EXIT_1:MOV AH,7INT 21HCMP AL,'r'JNZ EXIT_1POP DXPOP CXPOP BXPOP AXRETSHOW_EXIT ENDPSHOW_EC PROC NEAR;詢問退出還是繼續PUSH AXPUSH BXPUSH CXPUSH DXTABTABSHOW TIPS5EXIT_2:MOV AH,7INT 21HCMP AL,'r'JZ EXIT_4CMP AL,'c'JNZ EXIT_2CALL INSER

39、TEXIT_4:POP DXPOP CXPOP BXPOP AXRETSHOW_EC ENDPSHOW_ERR PROC NEAR;顯示出錯信息子程序PUSH AXPUSH BXPUSH CXPUSH DXTABTABSHOW ERRTABTABPOP DXPOP CXPOP BXPOP AXRETSHOW_ERR ENDPRE_TMP PROC NEAR;用空格初始化緩沖區子程序PUSH AXPUSH BXPUSH CXPUSH DXMOV CX,50MOV BX,1RE:INC BXMOV STRBX,' 'LOOP REPOP DXPOP CXPOP BXPOP AXRE

40、TRE_TMP ENDPCLEAR PROC NEAR ;清屏 PUSH AX PUSH BX PUSH CX PUSH DX MOV AL,0 ;上滾行數 MOV CL,0 ;上滾窗口左上角的列號為0 MOV CH,0 ;上滾窗口左上角的行號為0 MOV DH,24 ;上滾窗口右上角的行號為24 MOV DL,79 ;上滾窗口右上角的列號為79 MOV BH,14 ;空白行的屬性 MOV AH,6 ;入口參數 INT 10H SET_P1 POP DX POP CX POP BX POP AX RETCLEAR ENDP SHOW_STU PROC NEAR;顯示學生信息子程序PUSH AX

41、PUSH BXPUSH CXPUSH DXSHOW ID;IDMOV CX,ID_LENGTHMOV BX,-1SH_ID:INC BXMOV DL,STR0BXMOV AH,2INT 21HLOOP SH_IDSHOW ENTERSHOW NAM;NAMEMOV CX,NAM_LENGTH;MOV BX,ID_LENGTH;DEC BXSH_NAME:INC BXMOV DL,STR0BXMOV AH,2INT 21HLOOP SH_NAMENN:SHOW ENTERSHOW SCORE;SCOREMOV CX,SCORE_LENGTH;MOV BX,ID_LENGTH;ADD BX,NAM

42、_LENGTHSH_SCORE:INC BXMOV DL,STR0BXMOV AH,2INT 21HLOOP SH_SCORENN1:SHOW ENTERSHOW RANK;RANKMOV CX,RANK_LENGTH;MOV BX,ID_LENGTH;ADD BX,NAM_LENGTH;ADD BX,SCORE_LENGTHSH_RANK:INC BXMOV DL,STR0BXMOV AH,2INT 21HLOOP SH_RANKPOP DXPOP CXPOP BXPOP AXRETSHOW_STU ENDP;=以下插入(insert)子程序=INSERT PROC NEARPUSH AXP

43、USH BXPUSH CXPUSH DXTAB CALL CLEAR ;清屏TABTABOPENF FID,FPATH;打開文件IN_ID:SHOW ID; 學號INPUT STR,BL;向緩沖區輸入IDCMP BL,ID_LENGTH;看ID是否合法JZ L1JNZ ERR_IDERR_SA: ;錯誤處理TABTABSHOW ERR_SAMETABTABJMP IN_IDERR_ID:TABTABCALL SHOW_ERRTABTABJMP IN_IDL1:;ID判斷只能為數字MOV CX,ID_LENGTHLEA SI,STR+2LN:MOV AL,BYTE PTRSI CMP AL,'0' JB ERR_ID CMP AL,'9' JA ERR_ID INC SI LOOP LNMOVEF FID,0,0,0;指針移到文件首IA:MOVEF FID,1,0,5IB:READF FID,STR0,STU_LENGTH;讀取學生信息CMP AX,0;文件是否結束JNZ IL1JMP IC;沒有重復學號，可以插入IL1:LEA SI,STR0LEA DI,STRINC DIDEC SIMOV CX,ID_LENG