Retro1.org codex

User Tools

Site Tools

Trace: • MSG Source
ibm:vm370-lib:macro:msg.macro_src

Table of Contents

MSG Source

References

Source Listing

MSG.MACRO.txt 
  1.          MACRO                                                          00001000
  2. &NAME    MSG   &ARG1,&ARG2                                              00002000
  3.          LCLA  &CNT,&CODE                                               00003000
  4.          LCLC  &LEN                                                     00004000
  5. &LEN     SETC  'L'''                                                    00005000
  6.          AIF   (T'&ARG2 EQ 'O').M3                                      00006000
  7.          AIF   (T'&ARG1 EQ 'O').M1                                      00007000
  8. &CODE    SETA  &ARG1                                                    00008000
  9. .M1      ANOP                                                           00009000
  10.          AIF   ('&ARG2'(1,1) NE '''').M2                                00010000
  11. &CNT     SETA  K'&ARG2-2                                                00011000
  12. &NAME    LA    R0,&CNT                                                  00012000
  13.          LA    R1,=C&ARG2                                               00013000
  14.          LA    R2,&CODE                                                 00014000
  15.          MEXIT                                                          00015000
  16. .M2      ANOP                                                           00016000
  17. &NAME    LA    R0,&LEN&ARG2                                             00017000
  18.          LA    R1,&ARG2                                                 00018000
  19.          LA    R2,&CODE                                                 00019000
  20.          MEXIT                                                          00020000
  21. .M3      ANOP                                                           00021000
  22.          AIF   ('&ARG1'(1,1) NE '''').M4                                00022000
  23. &CNT     SETA  K'&ARG1-2                                                00023000
  24. &NAME    LA    R0,&CNT                                                  00024000
  25.          LA    R1,=C&ARG1                                               00025000
  26.          MEXIT                                                          00026000
  27. .M4      ANOP                                                           00027000
  28.          LA    R0,&LEN&ARG1                                             00028000
  29.          LA    R1,&ARG1                                                 00029000
  30.          MEND                                                           00030000
ibm/vm370-lib/macro/msg.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator