Number System Convert

; ------------------------
; Macro Assembler 6.11
; Number System Convert
; @author #Utroz(RSC)#
; Visit: www.Gcoders.info
; ------------------------

CODE__SEG        SEGMENT
        ASSUME CS: CODE__SEG
        ORG 100h

PUBLIC @MAIN

@MAIN   PROC NEAR
        MOV DX,12345    ;Hex:3039h
    CALL @SIGNAL
    CALL @DEC__PRINT

    INT 20h     ;Return to DOS(Exit System).
@MAIN   ENDP

@SIGNAL PROC NEAR
    PUSH DX
    CMP DX,8000h    ;IF(DX <=  7FFFh)
    JA NEGATIVE ;GOTO NEGATIVE

    MOV DL,2Bh  ;POSITIVE
    JMP Short PRINT

NEGATIVE:
    MOV DL,2Dh

PRINT:
    CALL @PRINT
    POP DX

    RET

@SIGNAL ENDP

;------ DECIMAL ----

PUBLIC @DEC__PRINT

@DEC__PRINT PROC NEAR
    PUSH AX     ;Save used registers.
    PUSH CX
    PUSH DX
    PUSH SI

    MOV AX,DX   ;Move hex to AX.
    MOV SI,10   ;Divisor by 10 using SI.
    XOR CX,CX   ;Stack digits count.

NOT__ZERO:
    XOR DX,DX   ;N word start on zero.
    DIV SI      ;Div value on AX for SI: n/10 / DX = mod.
    PUSH DX     ;Put DX in stack.
    INC CX      ;Increments a CX.

    OR AX,AX    ;IF(AX != 0)
    JNZ NOT__ZERO   ;GOTO NOT__ZERO

PRINT__LOOP:
    POP DX      ;Take digits in reverse.
    CALL @HEX__CONVERT ;Send to print.
    LOOP PRINT__LOOP

END__DEC:
    POP SI
    POP DX
    POP CX
    POP AX
    RET

@DEC__PRINT ENDP
;----------------

;------ HEXDECIMAL --

PUBLIC @HEX__PRINT

@HEX__PRINT PROC NEAR
    PUSH CX     ;Save registers
    PUSH DX
    MOV DH, DL  ;Copy low byte to high byte.
    MOV CL,04h
    SHR DL,CL

    CALL @HEX__CONVERT ;First digit.
    MOV DL, DH
    AND DL, 0Fh

    CALL @HEX__CONVERT ;Second digit.
    POP DX
    POP CX

    RET

@HEX__PRINT ENDP
;----------------

PUBLIC @HEX__CONVERT

@HEX__CONVERT   PROC NEAR
    PUSH DX
    CMP DL,10   ; !(DL > 10d)
    JAE HEX     ;IF no
    ADD DL,"0"  ;ADD DL,30 - IF yes(DEC)
    JMP Short PRINT_CHAR

    HEX:
        ADD DL,"A"-10 ;ADD DL,37

    PRINT_CHAR:
        CALL @PRINT
        POP DX

        RET

@HEX__CONVERT   ENDP
;------

PUBLIC @PRINT

@PRINT  PROC NEAR
    PUSH AX
    MOV AH, 02h ;Function 02 a INT 21h.
    INT 21h
    CALL @BEEP_SOUND
    POP AX
    RET

@PRINT  ENDP

@BEEP_SOUND PROC NEAR
    PUSH DX
    MOV DL,7    ;Play a Beep Sound on print char.
    INT 21h
    POP DX

    RET

@BEEP_SOUND ENDP


CODE__SEG   ENDS
END @MAIN

;-------END--------