home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol12n22.zip / NUMPRN.ZIP / NUMSUB.ASM < prev   
Assembly Source File  |  1993-11-29  |  494b  |  23 lines
  1. _dpt       PROC NEAR
  2.            MOV CX, 10
  3. dploop:
  4.            XOR DX, DX
  5.            DIV CX
  6.            PUSH DX
  7.            CMP AX, 0
  8.            JE undo
  9.            CALL dploop
  10. undo:
  11.            POP DX
  12. pdig:
  13.            ADD DL, 30H
  14.            CMP DL, 39H           ;test for Hex digits
  15.            JLE pch               ;not required for radix <= 10
  16.            ADD DL, 7             ;convert 9+1 to A
  17. pch:
  18.            MOV AH, 2
  19.            INT 21H
  20.            RET
  21.  
  22. _dpt       ENDP
  23.