Re: Converson of hex value to character

[Dan Skomsky]

This is easy peasy.  The following was gleaned for subroutine XXXXHEXO written 
circa 1969 at Penn State.  Take with it what you will.  This subroutine 
converts the entire contents of a GP Register to an eight byte printable buffer.
.
.
.
         L            1,XXXXXXXX              REG TO BE CONVERTED               
   
         ST         1,XXHOAREA          STORE NUMBER TO BE CONVERTED        
         LR         1,0                 R1 POINTS TO OUTPUT AREA            
         L            14,=A(XXHOTAB3-C'0')    FOR CONVERSION OF 0-9 TO F0-F9   
         UNPK  XXHODOUB(9),XXHOAREA(5) CONVERT THE NUMBER              
         TR         XXHODOUB,0(14)      MAKE PRINTABLE                      
         MVC     0(8,1),XXHODOUB     MOVE NUMBER TO CALLER           
.
.
.          
XXHOTAB3   DC    C'0123456789ABCDEF'                                      
XXHOAREA   DS    F,C                 STORAGE AREA                         
XXHODOUB  DS    D,C                 STORAGE AREA                         
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN