home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / ASSEMBLY / NOR_ASMB.ZIP / VIDEO_9.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-04-27  |  2.3 KB  |  74 lines
  1. .MODEL    SMALL
  2. .CODE
  3.  
  4. TEST_WRITE_HEX    PROC
  5.     MOV    DL,3Fh            ;Test with 3Fh
  6.     CALL    WRITE_HEX
  7.     INT    20h            ;Return to DOS
  8. TEST_WRITE_HEX    ENDP
  9.  
  10.     PUBLIC    WRITE_HEX
  11. ;-----------------------------------------------------------------------;
  12. ; This procedure converts the byte in the DL register to hex and writes    ;
  13. ; the two hex digits at the current cursor position.            ;
  14. ;                                    ;
  15. ; On entry:    DL    Byte to convert to hex.                ;
  16. ;                                    ;
  17. ; Uses:        WRITE_HEX_DIGIT                        ;
  18. ;-----------------------------------------------------------------------;
  19. WRITE_HEX    PROC            ;Entry point
  20.     PUSH    CX            ;Save registers used in this procedure
  21.     PUSH    DX
  22.     MOV    DH,DL            ;Make a copy of byte
  23.     MOV    CX,4            ;Get the upper nibble in DL
  24.     SHR    DL,CL
  25.     CALL    WRITE_HEX_DIGIT        ;Display first hex digit
  26.     MOV    DL,DH            ;Get lower nibble into DL
  27.     AND    DL,0Fh            ;Remove the upper nibble
  28.     CALL    WRITE_HEX_DIGIT        ;Display second hex digit
  29.     POP    DX
  30.     POP    CX
  31.     RET
  32. WRITE_HEX    ENDP
  33.  
  34.     PUBLIC    WRITE_HEX_DIGIT
  35. ;-----------------------------------------------------------------------;
  36. ; This procedure converts the lower 4 bits of DL to a hex digit and    ;
  37. ; writes it to the screen.                        ;
  38. ;                                    ;
  39. ; On entry:    DL    Lower 4 bits contain number to be printed    ;
  40. ;            in hex.                        ;
  41. ;                                    ;
  42. ; Uses:        WRITE_CHAR                        ;
  43. ;-----------------------------------------------------------------------;
  44. WRITE_HEX_DIGIT        PROC
  45.     PUSH    DX            ;Save registers used
  46.     CMP    DL,10            ;Is this nibble <10?
  47.     JAE    HEX_LETTER        ;No, convert to a letter
  48.     ADD    DL,"0"            ;Yes, convert to a digit
  49.     JMP    Short WRITE_DIGIT    ;Now write this character
  50. HEX_LETTER:
  51.     ADD    DL,"A"-10        ;Convert to hex letter
  52. WRITE_DIGIT:
  53.     CALL    WRITE_CHAR        ;Display the letter on the screen
  54.     POP    DX            ;Restore old value of DX
  55.     RET
  56. WRITE_HEX_DIGIT        ENDP
  57.  
  58.     PUBLIC    WRITE_CHAR
  59. ;-----------------------------------------------------------------------;
  60. ; This procedure prints a character on the screen using the DOS        ;
  61. ; function call.                            ;
  62. ;                                    ;
  63. ; On entry:    DL    Byte to print on screen.            ;
  64. ;-----------------------------------------------------------------------;
  65. WRITE_CHAR    PROC
  66.     PUSH    AX    
  67.     MOV    AH,2            ;Call for character output
  68.     INT    21h            ;Output character in DL register
  69.     POP    AX            ;Restore old value in AX
  70.     RET                ;And return
  71. WRITE_CHAR    ENDP
  72.  
  73.     END    TEST_WRITE_HEX
  74.