山东大学汇编语言第五章上机实验.doc

实验三 将AX寄存器中的16位数分成4组,每组4位,然后把这四组数分别放在AL,BL,CL,DL中.。 实验代码如下： DSEG SEGMENT STORE DB 4 DUP(?) DSEG ENDS ;-------------------------------------------------------------------------- CSEG SEGMENT MAIN PROC FAR ASSUME CS: CSEG, DS: DSEG START: PUSH DS ;设置返回DOS SUB AX, AX PUSH AX MOV AX, 1234H MOV DS, AX ;给DS赋值 BEGIN: MOV CL, 4 ;右移四次 MOV CH, 4 ;循环四次 LEA BX, STORE A10: MOV DX, AX AND DX, 0FH ;取AX的低四位 MOV [BX], DL ;低四位存入STORE中 INC BX SHR AX, CL ;右移四次 DEC CH JNZ A10 ;循环四次完了码？ B10: MOV DL, STORE ;四组数分别放在AL、BL、CL和DL中 MOV CL, STORE+1 MOV BL, STORE+2 MOV AL, STORE+3 INT 21H STOP: RET MAIN ENDP CSEG ENDS ;以上定义代码段 ;-------------------------------------------------------------------------- END START 实验截图如下： 可以看到AX,BX,CX,DX,中的内容分别为1,2,3,4. 实验7 .试编制一个汇编语言程序,求出首地址为DATA的100D字数组中的最小偶数,并把它存放在AX中. 实验代码如下： DSEG SEGMENT DATA DW 78,79,80,81,82,83,84 DSEG ENDS ;-------------------------------------------------------------------------- CSEG SEGMENT MAIN PROC FAR ASSUME CS: CSEG, DS: DSEG START: PUSH DS ;设置返回DOS SUB AX, AX PUSH AX MOV AX, DSEG MOV DS, AX ;给DS赋值 BEGIN: MOV BX, 0 MOV CX, 100 COMPARE: MOV AX, DATA[BX] ;取数组的第一个偶数 ADD BX, 2 TEST AX, 01H ;是偶数吗？ LOOPNZ COMPARE ;不是，比较下一个数 JNZ STOP ;没有偶数，退出 JCXZ STOP ;最后一个数是偶数，即为最小偶数，退出 COMPARE1: MOV DX, DATA[BX] ;取数组的下一个偶数 ADD BX, 2 TEST DX, 01H ;是偶数吗？ JNZ NEXT ;不是，比较下一个数 CMP AX, DX ;(AX)(DX)吗？ JLE NEXT MOV AX, DX ;(AX)(DX)，则置换(AX)为最小偶数 NEXT: LOOP COMPARE1 INT 21H STOP: RET MAIN ENDP CSEG ENDS ;以上定义代码段 ;-------------------------------------------------------------------------- END START 实验截图如下： 实验9 .试编写一汇编语言程序,求出首地址为DATA的100D字数组中的最小偶数,并把它存放在AX中. 实验代码如下: ASSUME CS:CODE,DS:DATA,SS:STACK DATA SEGMENT TEMP DB 4 DUP(0) MSG1 DB 10,13,PLEASE INPUT A HEX NUMBER ,10,13 ,$ MSG2 DB 10,13,THE BINARY NUM IS ,10,13,$ ERR DB 10,13,THE NUM YOU INPUT ISNT HEX,10,13,$ H16 DW 16 DATA ENDS STACK SEGMENT DB 128 DUP (0) TOS DB $ STACK ENDS CODE SEGMENT CHANGE PROC MOV CX,0 L: SHR AX,1 JC P1 MO