微机原理实验.docx

1、微机原理实验以下程序供参考：要理解实验目的看懂程序，老师会要求修改！剩下的四个实验程序希望大家踊跃上传！实验二：DATA SEGMENTDATA1 DB 1,6,7 ;被加数 (修改）DATA2 DB 5,6,3;加数（修改）DATA3 DB 0,0,0 ;和（修改）DATA ENDSCODE SEGMENT ASSUME CS:CODE,DS:DATASTART:MOV AX,DATA MOV DS,AX MOV SI,0 CLC ;清进位标志 MOV BX,OFFSET DATA3 mov cx,0003h ;AGAIN: MOV AL,DATA1SI ADC AL,DATA2SI MOV

2、 DATA3si,AL ;一个字节相加 INC SI MOV DL,bx cmp dl, 16 ja aa ;先判断是否超16 d: CMP dL,10 JC bb ;再判断是否超过10 add dl,37h ;超过10其ascii码加37h jmp eebb: ADD DL,30H ;在0到9的acsii码加上0的ascii码转化为相应的字符 jmp eeaa: inc Data1SI ;有进位时其相应的处理 SUB DL,10h JMP d ee: MOV AH,2 INT 21H ;显示器输出该字符 INC BX loop AGAIN MOV AH,4CH INT 21H ;返回DOSC

3、ODE ENDSEND START实验三：1. AL中两位十进制数;CODE SEGMENT ASSUME CS:CODESTART: MOV AL,3EH MOV BL,AL MOV DL,AL MOV CL,4 SHR DL,CL CMP DL,9 JBE NEXT1 ADD DL,7NEXT1: ADD DL,30H MOV AH,2 INT 21H ;显示高位ASCII码 MOV DL,BL AND DL,0FH CMP DL,9 JBE NEXT2 ADD DL,7NEXT2: ADD DL,30H MOV AH,2 INT 21H ;显示低位ASCII码 MOV AH,4CH IN

4、T 21HCODE ENDS ;返回DOS END START2.assume cs:codestart:mov ah,1 int 21h cmp al,0dh jz done cmp al,0 jb next cmp al,9 ja charup mov dl,al mov ah,2 int 21h jmp startcharup:cmp al,41h jb next cmp al,5ah ja charddispc:mov dl,c mov ah,2 int 21hnext:jmp startchard:cmp al,61h jb next cmp al,7ah ja next jmp d

5、ispcdone:mov ah,4ch int 21hcode ends end start3.AX中四位十六进制数：code segmentassume cs:codestart: mov ax,04967h mov bx,ax ;bx=384eh mov dl,ah ;dx=384eh mov ch,2 ;ch=2 mov cl ,4 ;cl=4again: shr dl,cl cmp dl,9 jbe next1 add dl, 7next1:add dl,30h mov ah,2 int 21h ;先输出高字节高四位 mov dl,bh and dl,0fh cmp dl,9 jbe

6、next2 add dl,7next2:add dl,30h mov ah,2 int 21h ;再输出高字节低四位 mov bh,bl mov dl,bl dec ch jnz again mov ah,4ch int 21hcode endsend start实验四：思考题：data segmentstring db 100 dup (?)data endscode segment assume cs:code, ds:datastart: mov ax,data mov ds,ax mov cx,0000h lea di, stringbegin: mov ah,1 int 21h cm

7、p al,0dh jz done mov di,al inc di inc cx jmp begindone: MOV DL,0aH MOV AH,02 INT 21H mov bx,cx ;bx=384eh mov dl,ch ;dx=384eh mov ch,2 ;ch=2 mov cl ,4 ;cl=4again: shr dl,cl cmp dl,9 jbe next1 add dl, 7next1:add dl,30h mov ah,2 int 21h mov dl,bh ;先输出高字节 and dl,0fh cmp dl,9 jbe next2 add dl,7next2:add

8、dl,30h mov ah,2 int 21h mov bh,bl mov dl,bl dec ch jnz again mov ah,4ch int 21hcode endsend start实验五：1.data segmentbuf db 0abh,0cdh,0deh,01h,02h,03h,3ah,4bh,5ch,6fheof db $-bufdata endscode segment assume cs:code,ds:data main proc nearstart: mov ax,data mov ds,ax mov cl,10 lea si,bufloop1: call HEXA

9、C call DISP dec eof jnz loop1mov ah,4ch int 21h main endp HEXAC proc near mov bl,si inc si ret HEXAC endp DISP proc near mov cl,4 mov ch,2move: rol bl,cl mov dl,bl and dl,0fh add dl,30h cmp dl,9 jbe print add dl,07hprint: mov ah,02h int 21h dec ch jnz move mov dl, mov ah,02h int 21h ret DISP endp co

10、de ends end start2.统计字符串中字符b的个数DATA SEGMENT STR1 DB 0ah,0dh,PLEASE INPUT YOUR STRING:$STR2 db 0ah,0dh,THE NUMBER OF b is:$TABLE DB 50, ? ,50 DUP(?),$data endscode segmentassume cs:code,ds:datastart: mov ax,data mov ds,ax lea dx,str1 mov ah,9 int 21h lea dx,table mov ah,0ah int 21h lea si,table mov c

11、l,si+1 mov ch,0 inc si inc si mov al,b mov ah,0 push si push cx push ax call check pop ax mov cl,al lea dx,str2 mov ah,9 int 21h mov dl,cl and dl,0fh cmp dl,9 jbe can add dl,07hcan:add dl,30h mov ah,2 int 21hexit:mov ah,4ch int 21h code ends scode segment assume cs:scode check proc far push bp mov b

12、p,sp mov si,bp+10 mov cx,bp+8 mov ax,bp+6 xor ah,ah again:cmp al,si jne can1 inc ah can1:inc si loop again mov al,ah mov bp+10,ax pop bp ret 4 check endp scode ends end start实验六：1.统计小写字母的个数：data segment strn db 80 dup(?)data endscode segmentassume cs:code,ds:datastart:mov ax,data mov ds,ax lea di,st

13、rn mov cl,0again:mov ah,1 int 21h cmp al,0dh jz done mov di,al inc di inc cl jmp againdone: lea si,strn mov ch,0 mov bl,0 cldcycle:lodsb cmp al,61h jb next cmp al , 7ah ja next inc blnext:loop cycle mov dl,0ah mov ah,02h int 21h mov al,bl mov ah,0 mov cl,0ah div cl add ax,3030h push ax mov dl,al mov

14、 ah,2 int 21h pop ax mov dl,ah mov ah,2 int 21h mov ah,4ch int 21h code endsend start2.删除字符串中重复的字符data segment stan db 80 dup(?)len db ?data endscode segment assume cs:code ,ds:data,es:datastart:mov ax,data mov ds,ax mov es,ax lea si, stan mov cl,0again: mov ah,1 int 21h cmp al,0dh jz done mov si,al

15、 inc si inc cl jmp againdone: mov ch,0 mov len,cl dec sirepea: push si push cx push cx pop dx dec cx je next1 mov al,si cmp al,0 je next1comp: dec si cmp al,si jne goon mov byte ptrsi,0 goon: loop compnext1: pop dx pop si dec si dec dx MOV CX,DX jnz repea lea si,stan mov cl,len mov ch,0 mov si+len-1

16、,$ inc clcycle:mov al,si cmp al,0 jnz next dec cx jz done1 call dele dec si inc cx next:inc si loop cycle done1: mov ah,2 mov dl,0dh int 21h mov dl,0ah int 21h lea dx,stan mov ah,9 int 21h mov ah,4ch int 21h dele proc push si push cx cld mov di,si inc si rep movsb pop cx pop si ret dele endpcode end

17、s end start思考题：查找匹配字符m（注：可以另选其他匹配字符）data segment string db 64h dup(?) char db m data endscode segment assume cs:code,ds:data,es:datastart: mov ax,data mov ds,ax mov es,ax lea di ,string mov cl,0 mov bx,0again: mov ah,1 int 21h cmp al,0dh jz done mov di,al inc di inc cl jmp againdone: mov ch,0 mov di

18、,offset string mov al,char cldA: repne scasb jz found jmp Bfound: inc bx cmp cx,0 ja AB: MOV DL,0aH MOV AH,2 INT 21H mov dl,bh ;dx=384eh mov ch,2 ;ch=2 mov cl ,4 ;cl=4aa: shr dl,cl cmp dl,9 jbe next1 add dl, 7next1:add dl,30h mov ah,2 int 21h mov dl,bh ;先输出高字节 and dl,0fh cmp dl,9 jbe next2 add dl,7next2:add dl,30h mov ah,2 int 21h mov bh,bl mov dl,bl dec ch jnz aa mov ah,4ch int 21hcode endsend start