北京理工大学cup与汇编实验五

1、 本科实验报告实验名称： 子程序与模块化程序设计实验 课程名称：课程设计I（cup与汇编）实验实验时间：第10周周二10-13节任课教师：张笈实验地点：10-102实验教师：高平实验类型：原理验证 综合设计 自主创新学生姓名：学号/班级：组 号：学 院：信息与电子学院同组搭档：专 业：电子科学与技术成 绩：1.DATAS SEGMENT BUF1 DB data,name,time,file,code,path,user,exit,quit,text$;此处输入数据段代码 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$;此处输入数据段代码 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