彙編語言（二）：從鍵盤輸入十進制數，輸出該十進制數的十進制，二進制（B)，十六進制(H)，八進制(Q)表示

;從鍵盤輸入十進制數，輸出該十進制數的十進制，二進制（B)，十六進制(H)，八進制(Q)
;用循環左移指令做的輸出函數
DATA SEGMENT ;此處輸入數據段代碼  
INFO1   DB   0DH,0AH,'INPUT A NUMBER:$'
INFO2   DB   0DH,0AH,'THE DECIMAL OF THIS NUMBER IS:$'
INFO3   DB   0DH,0AH,'THE HEXIMAL OF THIS NUMBER IS:$'
INFO4   DB   0DH,0AH,'THE QECIMAL OF THIS NUMBER IS:$'
INFO5   DB   0DH,0AH,'THE BINIMAL OF THIS NUMBER IS:$'
DATA ENDS
ZHUANHUA SEGMENT
  ASSUME CS:ZHUANHUA,DS:DATA
  

MAIN PROC FAR
       MOV AX,DATA
       MOV DS,AX
REPET:
       CALL DECIBIN    ;十進制轉化到二進制，輸入函數   
       CALL BINIDEC    ;二進制轉化到十進制輸出
       CALL CRLF       ;輸出換行
       CALL BINIHEX    ;二進制轉化到十六進制輸出
       CALL CRLF  
       CALL BINIQEC    ;二進制轉化到八進制輸出
       CALL CRLF
       CALL BINIBIN    ;二進制轉到二進制並輸出
       CALL CRLF  
       CALL STOP     
       JMP REPET 
MAIN ENDP

DECIBIN PROC NEAR      ;十進制轉化到二進制函數
        LEA  DX,INFO1
        MOV  AH,09H           
        INT  21H     
        MOV BX,0
NEWCHAR:MOV AH,01H
        INT 21H
        SUB AL,30H
        JL EXIT
        CMP AL,9D
        JG EXIT
        CBW 
        XCHG AX,BX
        MOV CX,10D
        MUL CX
        XCHG AX,BX
        ADD BX,AX
        JMP NEWCHAR
EXIT: 
        RET
       
DECIBIN ENDP

BINIDEC PROC NEAR      ;用除10取餘法輸出十進制
                      
         LEA  DX,INFO2
         MOV  AH,09H           
         INT  21H     
         MOV CX,3
         MOV AX,BX
         PUSH BX
         MOV BX,10
    LP1: XOR DX,DX    
         DIV BX
         ADD DL,30H
         PUSH DX
         LOOP LP1
         MOV CX,3
    LP2: POP DX
         MOV AH,02H
         INT 21H
         LOOP LP2
         POP BX
         RET
BINIDEC ENDP

BINIHEX PROC NEAR   ;輸出十六進制
        LEA  DX,INFO3
        MOV  AH,09H           
        INT  21H     
        MOV CH,4
ROTATE: MOV CL,4
        ROL BX,CL
        MOV AL,BL
        AND AL,0FH
        ADD AL,30H
        CMP AL,3AH
        JL  PRINTIT
        ADD AL,7H
PRINTIT:MOV DL,AL
        MOV AH,02H
        INT 21H
        DEC CH
        JNZ  ROTATE
        SUB AX,AX   ;輸出H
        ADD AL,48H
        MOV DL,AL
        MOV AH,02H
        INT 21H
        RET
BINIHEX ENDP

BINIQEC PROC NEAR  ;輸出八進制
        LEA  DX,INFO4
        MOV  AH,09H           
        INT  21H    
        PUSH BX 
        SHL BX,1    
        MOV CH,5
ROTATE: MOV CL,3
        ROL BX,CL
        MOV AL,BL
        AND AL,07H
        ADD AL,30H
        MOV DL,AL
        MOV AH,02H
        INT 21H
        DEC CH
        JNZ  ROTATE
        POP BX
        SUB AX,AX  ;輸出Q
        ADD AL,51H
        MOV DL,AL
        MOV AH,02H
        INT 21H
        RET
BINIQEC ENDP        
        
BINIBIN PROC NEAR       ;輸出二進制
        LEA  DX,INFO5
        MOV  AH,09H           
        INT  21H    
        PUSH BX   
        MOV CH,16
ROTATE: MOV CL,1
        ROL BX,CL
        MOV AL,BL
        AND AL,01H
        ADD AL,30H
        MOV DL,AL
        MOV AH,02H
        INT 21H
        DEC CH
        JNZ  ROTATE
        POP BX
        SUB AX,AX     ;輸出B
        ADD AL,42H
        MOV DL,AL
        MOV AH,02H
        INT 21H
        RET  
BINIBIN ENDP
  
CRLF   PROC NEAR    ;輸出換行符
       MOV DL,0DH
       MOV AH,2
       INT 21H
       MOV DL,0AH
       MOV AH,2
       INT 21H
       RET
CRLF  ENDP
STOP PROC NEAR         ;用於結束MAIN過程
      MOV AX,4C00H
      INT 21H
      RET
STOP ENDP
ZHUANHUA    ENDS
  END MAIN