北工大汇编——子程序设计

题目要求

完成一个字母或数制之间的转化程序，主程序分别具有 5种可选择的子功能，按相应的宇符可分别进入相应的子功能并在屏幕上显示结果，按“q”键退出。子功能分别为： 1） 实现小写字母向大写字母的转换；2）实现大写字母向小写字母的转换;3）实现二进制数向十六进制数的转换；4）实现十六进制数向二进制数的转换：5）实现十六进制数向十进制数的转换。

完整代码

DATAS SEGMENT
    ;此处输入数据段代码
    msg DB 'please input 1-5 q:quit$'  
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
    ;此处输入代码段代码
    LOP:
	    MOV AH, 1 
	    INT 21H
	
	    CMP AL, 'q'
	    JZ EXIT
	
	    CMP AL, '1' 
	    JB Err
	    CMP AL, '5'
	    JA Err
	
	    SUB AL, 30H
	    MOV BX, AX
	    
	    CMP AL,1
		JE FUNC1
		CMP AL,2
		JE FUNC2
		CMP AL,3
		JE FUNC3
		CMP AL,4
		JE FUNC4
		CMP AL,5
		JE FUNC5 
    JMP LOP
    
    
    
    FUNC1:
    	MOV DL, 0DH;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
	    
    	MOV AH, 1 
    	INT 21H
    	
    	CMP AL, 'a'
    	JB LOP
    	CMP AL, 'z'
    	JA LOP
    	
    	sub AL, 32
    	
    	MOV DL,AL
		MOV AH,02H
		INT 21H
		
		MOV DL, 0DH ;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
    JMP LOP
    
    
    
    FUNC2:
    	MOV DL, 0DH;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
	    
    	MOV AH, 1 
    	INT 21H
    	
    	CMP AL, 'A'
    	JB LOP
    	CMP AL, 'Z'
    	JA LOP
    	
    	add AL, 32
    	
    	MOV DL,AL
		MOV AH,02H
		INT 21H
		
		MOV DL, 0DH ;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
    JMP LOP
    
    
    
    FUNC3:
    	MOV DL, 0DH;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
	    
	    MOV DL, 0
	    MOV CL, 4
	    
	    FUNC3INPUT:
	    	MOV AH, 1 
	    	INT 21H
	    	
	    	CMP AL, '0'
	    	JB LOP
	    	CMP AL, '1'
	    	JA LOP
	    	
	    	JE FUNC3LOP1
	
	    	ROL DL,1
			OR DL,0
			
			JMP FUNC3LOP2
			
		FUNC3LOP1:
			ROL DL,1
			OR DL,1
			
		FUNC3LOP2:
			DEC CL
			CMP CL, 0
			JE FUNC3DISPLAY
			JMP FUNC3INPUT
			
		FUNC3DISPLAY:
			MOV CL, DL
			MOV DL, 0DH;回车换行
		    MOV AH, 02
		    INT 21H
		    MOV DL, 0AH
		    MOV AH, 02
		    INT 21H
		    
		    MOV DL, CL
		
			CMP DL, 0
			JB LOP
			CMP DL, 9
			JA FUNC3LOP3
			
			ADD DL, '0'
			
			JMP FUNC3LOP4
		
		FUNC3LOP3:
			ADD DL, 37H
			
		FUNC3LOP4:
			MOV AH,02H
			INT 21H
		
		MOV DL, 0DH;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
    JMP LOP
    
    
    
    
    FUNC4:
    	MOV DL, 0DH;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
	    
	    FUNC4INPUT:
	    	MOV AH, 1
	    	INT 21H
	    	
	    	CMP AL, '0'
	    	JB LOP
	    	CMP AL, '9'
	    	JA FUNC4CMP
	    	
	    	SUB AL, '0'
	    	MOV CH,8
			MOV BL,AL
	    	JMP FUNC4PRINT
	    	
	    FUNC4CMP:
	    	CMP AL, 'a'
	    	JB LOP
	    	CMP AL, 'f'
	    	JA LOP
	    	
	    	SUB AL, 'a'
	    	ADD AL, 10
	    	MOV CH,8
			MOV BL,AL
	    	JMP FUNC4PRINT
	    	
	    FUNC4PRINT:
	    	ROL BL, 1
	    	MOV DL, BL
	    	AND DL,1
			ADD DL, '0'
			
			MOV AH,02H
			INT 21H
			
		 	DEC CH
			JZ LOPPRINT
			JMP FUNC4PRINT
		
	LOPPRINT:
		MOV DL, 0DH;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
    JMP LOP
    
    
    
    
    FUNC5:
    	MOV DL, 0DH;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
	    
	    FUNC5INPUT:
	    	MOV AH, 1
	    	INT 21H
	    	
	    	CMP AL, '0'
	    	JB LOP
	    	CMP AL, '9'
	    	JA FUNC5CMP
	    	
	    	SUB AL, '0'
	    	MOV CH,8
			MOV BL,AL
	    	JMP FUNC5PRINT
	    	
	    FUNC5CMP:
	    	CMP AL, 'a'
	    	JB LOP
	    	CMP AL, 'f'
	    	JA LOP
	    	
	    	SUB AL, 'a'
	    	ADD AL, 10
	    	MOV CH,8
			MOV BL,AL
	    	JMP FUNC5PRINT
	    	
	    FUNC5PRINT:
			MOV AH, 0
			MOV BL, 10
			DIV BL
			
			MOV DH, AH
			CMP AL, 0
			JE NOTEN
			
			MOV DL,AL      
			ADD DL, '0'
			
			MOV AH,02H
			INT 21H
			
		NOTEN:	                        
			MOV DL,DH
			ADD DL,'0'
			MOV AH,02H
			INT 21H
			
		MOV DL, 0DH;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
    JMP LOP
	
	ERR:
	    MOV DL, 0DH ;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
	    
	    MOV DX, OFFSET msg
	    MOV AH, 09
	    INT 21H
	    
	    MOV DL, 0DH ;回车换行
	    MOV AH, 02
	    INT 21H
	    MOV DL, 0AH
	    MOV AH, 02
	    INT 21H
	    
	    JMP LOP
	
	EXIT:
	    MOV AH,4CH
	    INT 21H
CODES ENDS
    END START