home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / cmsqueens / cm2upc.asm < prev   
Assembly Source File  |  2020-01-01  |  3KB  |  36 lines
  1. *********************************************************************** UPC00010
  2. *  UPCASE   - THIS MODULE IS A  CALL FROM PASCAL TO UPCASE AN ALPHA     UPC00020
  3. *             VARIABLE   .                                              UPC00030
  4. *                                                                       UPC00040
  5. *  IT IS CALLED FROM PASCAL A PROGRAM AS FOLLOWS:                       UPC00050
  6. *         UPCASE (ALPHA1)                                               UPC00060
  7. *                                                                       UPC00070
  8. **********************************************************************  UPC00080
  9. *                                                                       UPC00090
  10. UPCASE   CSECT                                                          UPC00100
  11.          USING *,15                                                     UPC00110
  12.          STM   14,12,12(13)            SAVE R14,R15,R0-R12              UPC00120
  13. *                                                                       UPC00130
  14. * GET PARAMETERS POINTED TO BY REGISTER 1                               UPC00140
  15.          USING PARMLIST,1                                               UPC00150
  16.          L     R4,ADDR1                                                 UPC00160
  17.          OC    0(8,R4),UPMASK           ***** ALL FOR THIS *****        UPC00170
  18. *                                                                       UPC00180
  19.          LM    14,12,12(13)            RESTORE REGISTER                 UPC00190
  20.          BR    14               RETURN TO CALLER                        UPC00200
  21. *                                                                       UPC00210
  22. UPMASK   DC    CL8'        '     UPCASE MASKING                         UPC00220
  23. *********************************************************************** UPC00230
  24. *                                                                       UPC00240
  25. R1       EQU   1                                                        UPC00250
  26. R2       EQU   2                                                        UPC00260
  27. R3       EQU   3                                                        UPC00270
  28. R4       EQU   4                                                        UPC00280
  29. *                                                                       UPC00290
  30. PARMLIST DSECT                                                          UPC00300
  31. ADDR1    DS    F                                                        UPC00310
  32. ADDR2    DS    F                                                        UPC00320
  33. *                                                                       UPC00330
  34.          END                                                            UPC00340
  35.  
  36.