1、 本科實驗報告實驗名稱： 子程序與模塊化程序設(shè)計實驗 課程名稱：課程設(shè)計I（cup與匯編）實驗實驗時間：第10周周二10-13節(jié)任課教師：張笈實驗地點：10-102實驗教師：高平實驗類型：原理驗證 綜合設(shè)計 自主創(chuàng)新學(xué)生姓名：學(xué)號/班級：組 號：學(xué) 院：信息與電子學(xué)院同組搭檔：專 業(yè)：電子科學(xué)與技術(shù)成 績：1.DATAS SEGMENT BUF1 DB data,name,time,file,code,path,user,exit,quit,text$;此處輸入數(shù)據(jù)段代碼 LENTH EQU $-BUF1 BUF2 DB 6 DB ? DB 6 DUP(?) BUF3 DB NOT FOUND

2、$DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSNF: MOV DX,OFFSET BUF3 MOV AH,9H INT 21H JMP ENNO: ADD SI,7H SBB SI,BX CMP SI,LENTH JAE NF MOV BX,2H JMP LNEXT PROC NEAR MOV AL,BUF2BX CMP AL,BUF1SI JNE NO INC BX INC SIRETNEXT ENDPSTART: MOV AX,DATAS MOV

3、DS,AX MOV DX,OFFSET BUF2 MOV AH,0AH INT 21H MOV BX,2HL: CALL NEXT CALL NEXT CALL NEXT CALL NEXT DEC SI DEC BX SBB SI,3H MOV AL,d MOV BUF1SI,AL INC SI MOV AL,i MOV BUF1SI,AL INC SI MOV AL,s MOV BUF1SI,AL INC SI MOV AL,k MOV BUF1SI,AL MOV DL,0AH MOV AH,2H INT 21H MOV DX,OFFSET BUF1 MOV AH,9H INT 21H J

4、MP EN LOOP LEN: MOV AH,4CH INT 21HCODES ENDSEND START3.DATAS SEGMENT BUF1 DB data,name,time,file,code,path,user,exit,quit,text$;此處輸入數(shù)據(jù)段代碼 LENTH EQU $-BUF1 BUF2 DB 6 DB ? DB 6 DUP(?) BUF3 DB NOT FOUND$ C DB 0 DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STAC

5、KSNF: MOV DL,0AH MOV AH,2H INT 21H MOV DX,OFFSET BUF3 MOV AH,9H INT 21H JMP ENNO: ADD SI,7H SBB SI,BX CMP SI,LENTH JAE NF MOV BX,2H JMP LNEXT PROC NEAR MOV AL,BUF2BX CMP AL,BUF1SI JNE NO INC BX INC SIRETNEXT ENDPSTART: MOV AX,DATAS MOV DS,AX MOV DX,OFFSET BUF2 MOV AH,0AH INT 21H MOV BX,2HL: CALL NEX

6、T CALL NEXT CALL NEXT CALL NEXT INC SI INC BXSHANCHU: MOV AL,BUF1SI MOV BUF1SI-5,AL CMP SI,32H JE SHUCHU INC SI MOV AL,BUF1SI MOV BUF1SI-5,AL INC SI MOV AL,BUF1SI MOV BUF1SI-5,AL INC SI MOV AL,BUF1SI MOV BUF1SI-5,AL INC SI MOV AL,BUF1SI MOV BUF1SI-5,AL INC SI LOOP SHANCHUSHUCHU: MOV DL,0AH MOV AH,2H

7、 INT 21H MOV DX,OFFSET BUF1 MOV AH,9H INT 21H JMP EN LOOP LEN: MOV AH,4CH INT 21HCODES ENDSEND START4.DATA SEGMENT BUF DB 5 DB ? DB 5 DUP(?) MINUS DW 10 STORE DB 6 DUP(0) PRINT DB 10,13 STORE2 DB 5 DUP(0),10,13,$ MINUS2 DW 2 EROR DB 13,10,INPUT ERROR!$DATA ENDSCODE SEGMENT ASSUME CS:CODE,ES:DATA,DS:

8、DATA MAIN PROC FAR MOV AX,DATA MOV ES,AX MOV DS,AXR: CALL INPUT CALL CHANGE CALL OUTPUT JMP R MOV AX,4C00H INT 21HMAIN ENDPCHANGE PROC MOV AX,WORD PTR BUF+2 XCHG AL,AH CMP AH,39H JBE TO5 SUB AH,37H JMP TP TO5: SUB AH,30HTP: CMP AL,39H JBE TO1 SUB AL,37H JMP TP1TO1: SUB AL,30HTP1: MOV CL,4 SHL AH,CL

9、OR AH,AL MOV AL,0PUSH AX MOV AX,WORD PTR BUF+4XCHG AL,AHCMP AH,39HJBE TO3SUB AH,37HJMP TP3TO3 : SUB AH,30HTP3: CMP AL,39HJBE TO4SUB AL,37HJMP TP4TO4: SUB AL,30HTP4: MOV CL,4SHL AH,CLOR AL,AHMOV AH,0POP DXOR AX,DXRETCHANGE ENDPINPUT PROCLEA DX,BUFMOV AH,0AHINT 21HCALL CHECKRETINPUT ENDPOUTPUT PROCMOV CX,5LEA BX,STORE2+4AGAIN4: MOV DX,0DIV MINUSMOV BX,DLOR BYTE PTR BX,30HDEC BXLOOP AGAIN4LEA DX,PRINTMOV AH,9INT 21HRETOUTPUT ENDPERROR PROCLEA DX,ERORMOV AH,9INT 21HMOV AX,4C00HINT 21HERROR ENDPCHECK PROCMOV CL