Oct 6th 1999.
          

            
Assembler
          
        
      

THIS PROGRAM CONVERTS LOWERCASE TO UPPER CASE                              
CREATED JUN 10/83 jmm                                                   
                                                                 
        EJECT                                                                       
QRK01   IOLENTRY RESTORE=YES                                                   
        L   Rl,0(,Rl)        GET ADDRESS OF PARM                                               
        LA  R2,0             LOAD WITH ZERO                                                         
        LA  R3,TABLE         LOAD TABLE ADDRESS                                                 
TRANS   TRT 0(20,Rl),0(R3)   TRANSLATE                                            
        BC  8,END            NO HITS                                                                        
        BC  4,TRANS1         HIT AND CONTINUE                                                      
        BC  2,TRANS2         HIT AND END                                                                
        ABEND 001                                                                                       
TRANS1  LA  R4,256(R2,R3)    FIND ADDRESS                                                    
        MVC 0(1,Rl),0(R4)    CHANGE CHARACTER                                                      
        B   TRANS REPEAT                                                    
TRANS2  LA  R4,256(R2,R3)    FIND ADDRESS                                                  
        MVC 0(1,Rl),0(R4)    CHANGE CHARACTER AND END                                                   
END     IOLEXIT                                                  

TABLE   DC XL129'0'                                                    
        DC C'abcdefghi'                                                   
        DC XL7'0'                                                    
        DC C'jklmnopqr'                                                      
        DC XLB'0'                                                  
        DC C'stuvwxyz'                                                     
        DC XL86'0'                                                      
TABLE2  DC XL129'0'                                                    
        DC C'ABCDEFGHI'                                                   
        DC XL7'0'                                                   
        DC C'JKLMNOPQR'                                                     
        DC XLB'O'                                                      
        DC C'STUVWXYZI                                                      
        DC XL86'0'                                                      
END                                                     

PROGRAM SOURCLIB ID QRK01 JUNE 10, 1983