;HEX TO DEC ROUTINE FOR 8086/88
;
; INPUT:  DX=HEX, [BX]=BUFFER
; OUTPUT: [BX]=DECIMAL, CX,AL DESTROYED
;
       MODULE  "HEXDEC"
;
       LOC     Code#
;
HEXDEC::
       MOV     LEAD,=0
       MOV     CX,=-10000
       CALL    MAKDEC
       MOV     CX,=-1000
       CALL    MAKDEC
       MOV     CX,=-100
       CALL    MAKDEC
       MOV     CX,=-10
       CALL    MAKDEC
       MOV     CX,=-1
       CALL    MAKDEC
       RET
;
MAKDEC: MOV     AH,=-1
       PUSH    BX
MDECLP: PUSH    DX
       INC     AH
       ADD     DX,CX
       JNC     DECD
       POP     BX
       JMPS    MDECLP
;
DECD:   POP     DX
       POP     BX
       OR      AH,AH
       JNZ     __S
       CMP     LEAD,=0
       JNZ     __S
       RET
;
__S:    MOV     AL,='0'
       ADD     AL,AH
       MOV     [BX],AL
       INC     BX
       MOV     LEAD,AL
       RET
;
       LOC     Data#
;
LEAD:   BYTE    0
;
       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.