Table of Contents

TRACE Source

References

Source Listing

TRACE.MACRO.txt 
  1.          MACRO                                                 @V407595 00001000
  2.          TRACE &CODE=,&REGWRK1,&REGWRK2,&REGWRK3               @V407595 00002000
  3.          LCLA  &ID,&REG                                        @V407595 00003000
  4.          LCLC  &NL1,&TRACEID                                   @V407595 00004000
  5.          GBLB  &AP                                             @V407595 00005000
  6. &NL1     SETC  '&SYSNDX'(2,3)                                  @V407595 00006000
  7. &TRACEID SETC  '&CODE'                                         @V407595 00007000
  8. &ID      SETA  K'&CODE                                         @V407595 00008000
  9.          AIF   (&ID EQ 0).ERR3                                 @V407595 00009000
  10.          AIF   ('&CODE'(1,1) NE '(').NOTREG                    @V407595 00010000
  11.          AIF   ('&CODE'(&ID,1) NE ')').ERR3                    @V407595 00011000
  12. &ID      SETA  &ID-2                                           @V407595 00012000
  13. &TRACEID SETC  '&CODE'(2,&ID)                                  @V407595 00013000
  14. &REG     SETA  1                                               @V407595 00014000
  15. .NOTREG  ANOP                                                  @V407595 00015000
  16.          AIF   (&ID EQ 0).ERR3                                 @V407595 00016000
  17.          AIF   (T'&REGWRK1 EQ 'O' OR T'&REGWRK2 EQ 'O').ERR1   @V407595 00017000
  18.          AIF   (T'&REGWRK3 EQ 'O' ).ERR1                       @V407595 00018000
  19.          AIF   ('&AP' EQ '0').INITUP                           @V407595 00019000
  20.          L     &REGWRK3,PREFIXA     FORCE TRACE REFERENCES TO  @V407595 00020000
  21. *                                   ABSOLUTE 0.                         00021000
  22. TRC1&NL1 EQU   *                                               @V407595 00022000
  23.          L     &REGWRK1,TRACCURR(&REGWRK3) CURRENT TRACE PTR   @V407595 00023000
  24.          LA    &REGWRK2,16(,&REGWRK1)  SET PTR TO NXT TRACE    @V407595 00024000
  25. *                                   ENTRY                               00025000
  26.          C     &REGWRK2,TRACEND(&REGWRK3) END OF TRACE TABLE ? @V407595 00026000
  27.          BNE   TRC2&NL1             NO - TRACE PTR IS OK       @V407595 00027000
  28.          L     &REGWRK2,TRACSTRT(&REGWRK3) YES - RESET POINTER @V407595 00028000
  29. *                                   TO BEGINNING OF TABLE.              00029000
  30. TRC2&NL1 EQU   *                                               @V407595 00030000
  31.          TM    APSTAT1,APUOPER      IS APU OPERATIONAL ?       @V407595 00031000
  32.          BO    TRC3&NL1             YES - USE CS LOGIC         @V407595 00032000
  33.          ST    &REGWRK2,TRACCURR(&REGWRK3) NO - UPDATE PTR TO           00033100
  34. *                             NEXT AVAILABLE TRACE ENTRY.               00033200
  35.          AIF   (&REG NE 1).INITMVI                             @V407595 00034000
  36.          STC   &TRACEID,0(&REGWRK1) STORE TRACE IDENTIFIER     @V407595 00035000
  37.          AGO   .SKIPMVI                                        @V407595 00036000
  38. .INITMVI ANOP                                                  @V407595 00037000
  39.          MVI   0(&REGWRK1),&TRACEID STORE TRACE IDENTIFIER     @V407595 00038000
  40. .SKIPMVI ANOP                                                  @V407595 00039000
  41.          B     TRC4&NL1             TRACE NOW COMPLETE         @V407595 00040000
  42. TRC3&NL1 EQU   *                                               @V407595 00041000
  43.          CS    &REGWRK1,&REGWRK2,TRACCURR-PSA(&REGWRK3) UPDATE @V407595 00042000
  44. *                                   NXT AVAILABLE TRACE ENTRY PTR       00043000
  45.          BNE   TRC1&NL1             CS UNSUCCESSFUL-TRY AGAIN  @V407595 00044000
  46.          AIF   (&REG NE 1).XINTMVI                             @V407595 00045000
  47.          STC   &TRACEID,0(&REGWRK1) STORE TRACE IDENTIFIER     @V407595 00046000
  48.          AGO   .XSKPMVI                                        @V407595 00047000
  49. .XINTMVI  ANOP                                                 @V407595 00048000
  50.          MVI   0(&REGWRK1),&TRACEID STORE TRACE IDENTIFIER     @V407595 00049000
  51. .XSKPMVI  ANOP                                                 @V407595 00050000
  52.          OC    0(1,&REGWRK1),TRACPROC SET PROCESSOR IDENTIFIER @V407595 00051000
  53. TRC4&NL1 EQU   *                                               @V407595 00052000
  54.          MEXIT                                                 @V407595 00053000
  55. .INITUP  ANOP                                                  @V407595 00054000
  56.          L     &REGWRK1,TRACCURR    OBTAIN NXT AVAILABLE TRACE ENTRY    00055000
  57. *                                                              @V407595 00056000
  58.          LA    &REGWRK2,16(,&REGWRK1)  SETUP TO UPDATE TRACCURR         00057000
  59. *                                                              @V407595 00058000
  60.          C     &REGWRK2,TRACEND     END OF TRACE TABLE ?       @V407595 00059000
  61.          BNE   TRC1&NL1             NO - UPDATE TRACCURR       @V407595 00060000
  62.          L     &REGWRK2,TRACSTRT    YES - POINT TO BEGINNING OF TABLE   00061000
  63. *                                                              @V407595 00062000
  64. TRC1&NL1 EQU   *                                               @V407595 00063000
  65.          ST    &REGWRK2,TRACCURR    UPDATE NEXT AVAILABLE TRACE         00064000
  66. *                                   ENTRY POINTER              @V407595 00065000
  67.          AIF   (&REG NE 1).YINTMVI                             @V407595 00066000
  68.          STC   &TRACEID,0(&REGWRK1) STORE TRACE IDENTIFIER     @V407595 00067000
  69.          AGO   .YSKPMVI                                        @V407595 00068000
  70. .YINTMVI ANOP                                                  @V407595 00069000
  71.          MVI   0(&REGWRK1),&TRACEID STORE TRACE IDENTIFIER     @V407595 00070000
  72. .YSKPMVI ANOP                                                  @V407595 00071000
  73.          MEXIT                                                 @V407595 00072000
  74. .ERR1    MNOTE 8,'WORK REGISTERS REQUIRED, ARE OMITTED'        @V407595 00073000
  75.          MEXIT                                                 @V407595 00074000
  76. .ERR3    MNOTE 8,'INVALID CODE= VALUE SPECIFIED'               @V407595 00075000
  77.          MEXIT                                                 @V407595 00076000
  78.          MEND                                                  @V407595 00077000