实验10

许楠

第一题,速度不错 1小时弄出来了,未看教程

1. assume cs:code
   
2. data segment
   
3. db 'Welcome to masm!',0
   
4. data ends
   
5. 
   
6. code segment
   
7. start:
   
8. mov dh,8
   
9. mov dl,3
   
10. mov cl,2
    
11. mov ax,data
    
12. mov ds,ax
    
13. mov si,0
    
14. call show_str
    
15. 
    
16. mov ax,4c00h
    
17. int 21h
    
18. 
    
19. show_str:
    
20. mov ax,0b800h
    
21. mov es,ax ;定义ES是写入段
    
22. sub dl,1 ;列数减1
    
23. mov al,2 ;因每个显示的字占两个字节,所以要乘2 所以AL=2
    
24. mul dl ;乘列数得出列数的地址
    
25. mov bx,ax ;将要写入的列地址放入BX保存
    
26. mov ah,0 ;ah清0
    
27. mov al,dh ;行数给AX,此时AX应是00行数
    
28. mov dx,160 ;每行160个字节 此时DX的2个参数已经读过了所有可以覆盖
    
29. mul dx ;行数乘160个字节算出要写入的行地址
    
30. add bx,ax ;将行数地址和列数地址相加算出实际要写入的地址,放入AX中
    
31. mov dh,cl ;将颜色数据放入高地址DH中
    
32. s: mov ch,0 ;ch清0
    
33. mov cl,byte ptr ds:[si] ;将数据段字符放入Cl中
    
34. jcxz s1 ;如果CX=0则跳转到S1结束
    
35. mov ch,dh ;将放入DH中的颜色数据拿回来给CL
    
36. mov word ptr es:[bx],cx ;将CX的值写入到实际地址中
    
37. add si,1
    
38. add bx,2
    
39. jmp s
    
40. s1:
    
41. ret
    
42. 
    
43. 
    
44. 
    
45. 
    
46. code ends
    
47. end start
    

复制代码

许楠

气死我了,第二题按书上写的乘65536,在网上找了半天怎么乘65536,即使有也忒啰嗦,要用到ADC什么的,不象是这道题的本意,绞尽脑汁了也没想出来怎么乘,没办法看了视频,原来是这样......
算了,脑袋一团浆糊了 先休息一下

许楠

1. assume cs:code
   
2. stack segment
   
3.         db 8 dup (0)
   
4. stack ends
   
5. 
   
6. code segment
   
7. start:
   
8.         mov ax,4240h
   
9.         mov dx,000fh
   
10.         mov cx,0ah
    
11.         call divdw
    
12. divdw:
    
13.         mov bx,stack
    
14.         mov ss,bx
    
15.         mov sp,8
    
16.         push ax   ;先把AX保存起来
    
17.         mov ax,dx  ;将高16位放到低16位里来
    
18.         mov dx,0   ;高16位清0
    
19.         div cx      ;除CX,除完后DX是余数,AX是商
    
20.         mov bx,ax   ;将AX保存在BX中
    
21.         pop ax      ;取出AX
    
22.         div cx         ;此时DX没动,但DX是高16位,所以相当于乘了65536
    
23.         mov cx,dx   ;将余数给CX
    
24.         mov dx,bx   ;将BX里的值给DX,当作商的高16位,也就相当于乘了65536,AX则是默认的低16位
    
25.         ret
    
26. 
    
27. code ends
    
28. end start

复制代码

只能先这样了,没办法啊 不会只能看教程 下面弄第3题

吃货YA鸭

哥们你代码有测试通过么？

BellXu

顶楼主 都没问题。。第二题我用的8位除法 为啥第二次除完就出错了？

1. ;X/N=INT(H/N)*10000H+[REM(H/N)*10000H+L]/N
   
2. ;X=1000000=0F4240H,N=10=0AH
   
3. DATAS SEGMENT
   
4.     DW 4240H,0FH,0AH  
   
5. DATAS ENDS
   
6. 
   
7. STACKS SEGMENT
   
8.     DW 0
   
9. STACKS ENDS
   
10. 
    
11. CODES SEGMENT
    
12.     ASSUME CS:CODES,DS:DATAS,SS:STACKS
    
13. START:
    
14.     MOV AX,DATAS
    
15.     MOV DS,AX
    
16.     MOV AX,STACKS
    
17.     MOV SS,AX
    
18.     MOV SP,0
    
19.     MOV AX,WORD PTR DS:[0]
    
20.     MOV DX,WORD PTR DS:[2]
    
21.     MOV CX,WORD PTR DS:[4]
    
22.     CALL DIVDW
    
23.     MOV AH,4CH
    
24.     INT 21H
    
25. DIVDW:
    
26.         PUSH AX
    
27.         MOV AX,DX
    
28.         XOR DX,DX
    
29.         DIV CL
    
30.         MOV DL,AL ;INT(H/N)*10000H
    
31.         POP BX
    
32.         ADD BL,AH
    
33.         MOV AX,BX ;[REM(H/N)*10000+L]
    
34.         DIV CL
    
35.         MOV CL,AH
    
36.         MOV AH,0
    
37. CODES ENDS
    
38.     END START
    

复制代码