Wednesday, May 2, 2012

8086 Assembly: ASCII/Decimal to Hex conversion

Well, I finally finished the assignment I was given in my 8086 Assembly class to convert from an ASCII character to it's Hex value, or from 5 decimal values to Hex.  If option #1 in the menu is chosen, you can enter more than 5 numbers and hit 'Enter', but it will error out.  It's only supposed to take 5.  Anyone learning Assembly on their own...here ya go:

; Conversion program
; Write a menu-driven program which accepts a 1, 2, or 3 as input.
;    1) Accept a decimal value (up to 5 digits), and print its hex value
;    2) Accept a character, and print its ascii value in hex. (convert to base 10)
;    3) Quit program.

    .MODEL SMALL

    .STACK 100h

    .DATA
        Menu    DB    10, 13, 'Enter a choice (1, 2, or 3):'
                DB    10, 13, '1) Convert 1 to 5 Decimal values to Hex'
                DB    10, 13, '2) Convert ASCII to Hex'
                DB    10, 13, '3) Quit Program', 10, 13, '$'        
        MenuErr    DB    10, 13, 'Choice must be a 1, 2, or 3!'
                DB    10, 13, 'Try again!', 10, 13, '$'
        AskDec    DB    10, 13, 'Enter a number with 1 to 5 digits: ', 10, 13, '$'        
        AskChar DB    10, 13, 'Enter any character: ', 10, 13, '$'

    .CODE

        START    PROC
                MOV AX, @DATA                ; Startup code
                MOV DS, AX

            dispMenu:
                MOV DX, OFFSET Menu            ; Display menu
                MOV AH, 09H
                INT 21H

                MOV AH, 01H                    ; Get keyboard input
                INT 21H

                CMP AL, '1'                    
                JL dispErr

                CMP AL, '3'                    
                JG dispErr

                CMP AL, '1'                    
                JE goDec
                
                
                CMP AL, '2'                    
                JE goChar
                
                
                CMP AL, '3'                    
                JE goQuit

            dispErr:
                MOV DX, OFFSET MenuErr        ; Display menu error.
                MOV AH, 09H
                INT 21H
                JMP dispMenu                

            goDec:    
                CALL DEC2HEX                ; Call DEC2HEX procedure.
                JMP dispMenu

            goChar:
                CALL CHAR2HEX                ; Call CHAR2HEX procedure.
                JMP dispMenu

            goQuit:                            

                MOV AL, 0                    ; Exit program.
                MOV AH, 4CH
                INT 21H    

        START ENDP

        DEC2HEX PROC                        ; *** Accept a decimal value (up to 5 digits) > print it's hex value.
       
                MOV DX, OFFSET AskDec
                MOV AH, 09H
                INT 21H
           
                MOV AX, 0                     ; Clear AX
                PUSH AX                        ; Save AX to stack (else overwritten when 0Dh is pressed)       

            Again:
                
                MOV AH, 01H                    ; Get keyboard input
                INT 21H
                                    
                CMP AL, 0Dh                    ; If Return is entered, start division.
                JE SDiv1
               
                CMP AL, '0'                    
                JL Again
               
                CMP AL, '9'                    
                JG Again
                            
                MOV AH, 0                    ; Change to a digit.
                SUB AL, 30h                    
                MOV CX, AX                    ; Save digit in CX
                   pop ax

                MOV BX, 10                    ; Division by 10.
                MUL BX                        
               
                ADD AX, CX                    ; Add CX (original number) to AX (number after multiplication).
                PUSH AX                        ; Save on stack.
                JMP Again                    ; Repeat.

            SDiv1:

                mov cx, 0
                MOV BX, 16             
                pop ax
               
            Div1:                            

                DIV BX                      ; Divide (Word-sized).
                PUSH DX                     ; Save remainder.
                   
                ADD CX, 1                   ; Add one to counter   
                MOV DX, 0                   ; Clear Remainder (DX)
                CMP AX, 0                   ; Compare Quotient (AX) to zero
                JNE Div1                      ; If AX not 0, go to "Div1:"
               
            getHex:                            ; Get hex number.
                MOV DX, 0                    ; Clear DX.
                POP DX                        ; Put top of stack into DX.
                ADD DL, 30h                    ; Conv to character.

                CMP DL, 39h                    ; If DL > 39h (character 9)...
                JG MoreHex

            HexRet:                            ; Display hex number
                MOV AH, 02h                    ; 02h to display DL

                INT 21H                        ; Send to DOS
               
                LOOP getHex                 ; LOOP subtracts 1 from CX. If non-zero, loop.   
                JMP Skip
            MoreHex:                        ; Add 7h if DL > 39h (10-15)
                ADD DL, 7h                    ; Add another 7h to DL to get into the A-F hex range.
                JMP HexRet                    ; Return to where it left off before adding 7h.
            Skip:                            ; Skip addition of 7h if it is not needed.
                RET
        DEC2HEX ENDP
            
        CHAR2HEX PROC                        ; Accept a character, print it's ascii value in hex.
                                    
                MOV DX, OFFSET AskChar        ; Display prompt
                MOV AH, 09H
                INT 21H

                MOV AH, 01H                    ; Get keyboard input w/ no echo (AL)
                INT 21H
            
                MOV CL, AL                    ; Copy user input (AL) to CL
                MOV AX, 0                    ; Clear AX (get rid of HO bits)
                MOV AL, CL                    ; Copy user input back into AL

                MOV BX, 16                    ; Set up the divisor (base 16)
                MOV CX, 0                    ; Initialize the counter
                MOV DX, 0                    ; Clear DX

            Divide:                         
                                            ; Dividend in DX/AX pair, Quotient in AX, Remainder in DX.
                DIV BX                      ; Divide (will be word sized).
                PUSH DX                        ; Save DX (the remainder) to stack.
            
                ADD CX, 1                   ; Add one to counter

                MOV DX, 0                    ; Clear Remainder (DX)
                CMP AX, 0                    ; Compare Quotient (AX) to zero
                JNE Divide                    ; If AX not 0, go to "Divide:"
                
            Divide2:
                MOV DX, 0                    ; Clear DX
                POP DX                        ; Put top of stack into DX
       
                ADD DL, 30h                    ; ADD 30h (2) to DL 

                CMP DL, 39h
                JG HexDigit
    
            HexRet2:
                MOV AH, 02h                    ; 02h to display AH (DL)
                INT 21H                        ; Send to DOS

                LOOP Divide2                ; If more to do, Divide2 again
                                            ; LOOP subtracts 1 from CX. If non-zero, loop.
                JMP SkipHex2
            HexDigit:
                ADD DL, 7h                    ; Convert [10-15] to [A-F]
                JMP HexRet2                    ; Return to where I jumped from to do the ADD
            SkipHex2:
                RET
        CHAR2HEX ENDP
    END START

2 comments:

  1. I think its official, I really appreciate the ease of Visual C#.

    ReplyDelete
  2. Haha, yea. In C#/VB, this is like...30 lines of code? MAYBE?

    It's OK...I've got this beat. I have another program that I had to write, but there's a "trick" (at least, I think it's a trick) on how to finish the last part. I've got everything except that! Ahh well, back to coding...

    ReplyDelete