*********************************************************************** UPC00010
*  UPCASE   - THIS MODULE IS A  CALL FROM PASCAL TO UPCASE AN ALPHA     UPC00020
*             VARIABLE   .                                              UPC00030
*                                                                       UPC00040
*  IT IS CALLED FROM PASCAL A PROGRAM AS FOLLOWS:                       UPC00050
*         UPCASE (ALPHA1)                                               UPC00060
*                                                                       UPC00070
**********************************************************************  UPC00080
*                                                                       UPC00090
UPCASE   CSECT                                                          UPC00100
         USING *,15                                                     UPC00110
         STM   14,12,12(13)            SAVE R14,R15,R0-R12              UPC00120
*                                                                       UPC00130
* GET PARAMETERS POINTED TO BY REGISTER 1                               UPC00140
         USING PARMLIST,1                                               UPC00150
         L     R4,ADDR1                                                 UPC00160
         OC    0(8,R4),UPMASK           ***** ALL FOR THIS *****        UPC00170
*                                                                       UPC00180
         LM    14,12,12(13)            RESTORE REGISTER                 UPC00190
         BR    14               RETURN TO CALLER                        UPC00200
*                                                                       UPC00210
UPMASK   DC    CL8'        '     UPCASE MASKING                         UPC00220
*********************************************************************** UPC00230
*                                                                       UPC00240
R1       EQU   1                                                        UPC00250
R2       EQU   2                                                        UPC00260
R3       EQU   3                                                        UPC00270
R4       EQU   4                                                        UPC00280
*                                                                       UPC00290
PARMLIST DSECT                                                          UPC00300
ADDR1    DS    F                                                        UPC00310
ADDR2    DS    F                                                        UPC00320
*                                                                       UPC00330
         END                                                            UPC00340