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）指出，本站將立即改正。