51单片机汇编语言程序设计例程 将存储字单元Result的学号

将存储字单元Result的本人学号（例如：19年级4班学号30即为：19430数字），以不同进制的方式显示在屏幕上。设计显示菜单，通过菜单选择1 HEX进制、2 DEC 十进制、3 BIN二进制，4返回。

1. DATAS SEGMENT
   
2. Result DW 19418D  ;=4BDAH=100 1011 1101 1010B
   
3. BUFF DW 10000,1000,100,10,1 ;中间变量
   
4. Menu DB'     Menu-Display Format Select(1-4):',0DH,0AH
   
5.          DB'  1HEX-Hexadecimal',0DH,0AH  ;4BDAH
   
6.          DB'  2DEC-Decimal',0DH,0AH   ;19418
   
7.          DB'  3BIN-Binary',0DH,0AH  ;100 1011 1101 1010B
   
8.          DB'  4ESC-Exit!',0DH,0AH,'
   
9. 
   
10. 
    
11. IN_Err DB 0DH,0AH,'*****INPUT ERROR!*****',0DH,0AH,'
    
12. 
    
13. 
    
14. LF   DB 0DH,0AH,'
    
15. 
    
16. 
    
17. DATAS ENDS
    
18. CSEG SEGMENT
    
19.          ASSUME CS:CSEG,DS:DATAS
    
20.          
    
21. START:
    
22.          MOV AX,DATAS
    
23.          MOV DS,AX
    
24.          LEA DX,Menu
    
25.          MOV AH,09H
    
26.          INT 21H
    
27.          
    
28. MAIN:
    
29.          MOV AH,01H
    
30.          INT 21H
    
31.          CALL CRLF
    
32.          CMP AL,31H
    
33.          JE NEXT1
    
34.          CMP AL,32H
    
35.          JE NEXT2
    
36.           CMP AL,33H
    
37.          JE NEXT3
    
38.          CMP AL,34H
    
39.          JE NEXT4
    
40.          JMP NEXT5
    
41.          
    
42. NEXT1:
    
43.           LEA SI,Result
    
44.           MOV BX,[SI]
    
45.           CALL HEX
    
46.           CALL CRLF
    
47.           JMP MAIN
    
48. NEXT2:
    
49.           MOV CX,5
    
50.           MOV AX,Result
    
51.           MOV SI,OFFSET BUFF
    
52. NEXT: XOR DX,DX
    
53.           DIV WORD PTR[SI]
    
54.       PUSH DX
    
55.           OR AL,30H
    
56.           MOV DL,AL
    
57.           MOV AH,02H
    
58.           INT 21H
    
59.           INC SI
    
60.           INC SI
    
61.           POP AX
    
62.           LOOP NEXT
    
63.           CALL CRLF
    
64.           JMP MAIN
    
65.          
    
66. NEXT3:
    
67.       LEA SI,Result
    
68.           MOV AX,[SI]
    
69.           CALL BIN
    
70.           CALL CRLF
    
71.           JMP MAIN
    
72.          
    
73. NEXT4:
    
74.       CALL EX
    
75.           JMP MAIN
    
76.          
    
77. NEXT5:
    
78.       CALL INTERROR
    
79.           JMP MAIN
    
80.       
    
81. BIN proc  near
    
82.         PUSH BX
    
83.         PUSH CX
    
84.         PUSH DX
    
85.         MOV BX,AX
    
86.         MOV CX,16
    
87. S:  MOV DX,30H
    
88.         SHL BX,1
    
89.         ADC DX,0
    
90.         MOV AH,2
    
91.         INT 21H
    
92.         LOOP S
    
93.         POP DX
    
94.         POP CX
    
95.         POP BX
    
96.         RET
    
97. BIN endp
    
98. HEX proc near
    
99.         MOV CH,04D
    
100.   ROTATE:
     
101.     MOV CL,04D
     
102.     ROL BX,CL        
     
103.     MOV AL,BL
     
104.     AND AL,0FH     
     
105.     ADD AL,30H     
     
106.     CMP AL,'9'
     
107.     JBE  PRINTF      
     
108.     ADD AL,07H   
     
109.    
     
110.   PRINTF:
     
111.     MOV DL,AL     
     
112.     MOV AH,2
     
113.     INT 21H
     
114.     DEC CH
     
115.     JNE ROTATE  
     
116.     RET
     
117. HEX endp
     
118.          
     
119. INTERROR proc near
     
120.           LEA DX,IN_Err
     
121.           MOV AH,09H
     
122.           INT 21H
     
123.           RET
     
124. INTERROR endp
     
125. CRLF proc near
     
126.          LEA DX,LF
     
127.          MOV AH,09H
     
128.          INT 21H
     
129.          RET
     
130. CRLF endp
     
131. EX proc near
     
132.          MOV AH,4CH
     
133.          INT 21H
     
134.          RET
     
135. EX endp
     
136. CSEG ENDS
     
137.       END START

复制代码

【必读】版权免责声明

1、本主题所有言论和内容纯属会员个人意见，与本论坛立场无关。2、本站对所发内容真实性、客观性、可用性不做任何保证也不负任何责任，网友之间仅出于学习目的进行交流。3、对提供的数字内容不拥有任何权利，其版权归原著者拥有。请勿将该数字内容进行商业交易、转载等行为，该内容只为学习所提供，使用后发生的一切问题与本站无关。 4、本网站不保证本站提供的下载资源的准确性、安全性和完整性;同时本网站也不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害。 5、本网站所有软件和资料均为网友推荐收集整理而来，仅供学习用途使用，请务必下载后两小时内删除，禁止商用。6、如有侵犯你版权的，请及时联系我们（电子邮箱1370723259@qq.com）指出，本站将立即改正。