Table of Contents

MCRECORD Source

References

Source Listing

MCRECORD.COPY.txt 
  1. *COPY MCRECORD                                                          00001000
  2.          PUSH  PRINT                                                    00001200
  3.          AIF   ('&SYSPARM' NE 'SUP').MCR01                              00001400
  4.          PRINT OFF,NOGEN                                                00001600
  5. .MCR01   ANOP                                                           00001800
  6. MCRECORD DSECT                                                          00002000
  7.          SPACE 1                                                        00003000
  8. *                                                                       00004000
  9. ***      MCRECORD - MACHINE CHECK HANDLER RECORD                        00005000
  10. *                                                                       00006000
  11. *              +----+----+----+----+---------+----+----+                00007000
  12. *           0  |M*1 |M*2 |M*3 |M*4 | MCSWITCH|M*5 |M*6 |                00008000
  13. *              +---------------------------------------+                00009000
  14. *           8  |              MCDATE                   |                00010000
  15. *              +---------------------------------------+                00011000
  16. *          10  |              MCCPUID                  |                00012000
  17. *              +---------------------------------------+                00013000
  18. *          18  |              MCPROGID                 |                00014000
  19. *              +---------------------------------------+                00015000
  20. *          20  |              MCJOBID                  |                00016000
  21. *              +---------------------------------------+                00017000
  22. *          28  |              MCOLDPW                  |                00018000
  23. *              +---------------------------------------+                00019000
  24. *              |                                       |                00020000
  25. *          30  =              MCFXDLOG                 =                00021000
  26. *              =                                       =                00022000
  27. *              |                                       |                00023000
  28. *              +---------------------------------------+                00024000
  29. *              |                                       |                00025000
  30. *              =                                       =                00026000
  31. *              =              MCEXTLOG                 =                00027000
  32. *              =                                       =                00028000
  33. *              |                                       |                00029000
  34. *              +---------------------------------------+                00030000
  35. *              |                                       |                00031000
  36. *              =              MCHDAMAG                 =                00032000
  37. *              |                                       |                00033000
  38. *              +---------------------------------------+                00034000
  39. *                                                                       00035000
  40. ***      MCRECORD - MACHINE CHECK HANDLER RECORD                        00036000
  41. *                                                                       00037000
  42.          SPACE 1                                                        00038000
  43. MCREC    DS    0D                                                       00039000
  44. MCRECTYP DS    1X             M*1 - MACHINE CHECK RECORD TYPE           00040000
  45. MCOPSYS  DS    1X             M*2 - OPERATING SYSTEM                    00041000
  46. MCSWONE  DS    1X             M*3 - RECORD INDEPENDENT SWITCH           00042000
  47. MCSWTWO  DS    1X             M*4 - RECORD DEPENDENT SWITCH             00043000
  48. MCSWITCH DS    2X             UNUSED SWITCHES                           00044000
  49. MCRECCNT DS    1X             M*5 - RECORD COUNT                        00045000
  50. MCRECCC  DS    1X             M*6 - SPARE                               00046000
  51. MCDATE   DS    XL8            DATE AND TIME                             00047000
  52. MCCPUID  DS    XL8            CPU INDENTIFICATION                       00048000
  53. MCPROGID DS    XL8            PROGRAM IDENTITY                          00049000
  54. MCJOBID  DS    XL8            JOB IDENTITY (UNUSED)                     00050000
  55. MCOLDPW  DS    XL8            MACHINE CHECK OLD PSW                     00051000
  56. MCFXDLOG DS    35D            MACHINE CHECK FIXED LOGOUT                00052000
  57. FXDLGLH  EQU   (*-MCFXDLOG)                                             00053000
  58. MCEXTLOG EQU   *              MACHINE CHECK EXTENDED LOGOUT             00054000
  59. *                             (THE EXTENDED LOGOUT LENGTH IS A          00055000
  60. *                             VARIABLE LENGTH-MACHINE DEPENDED)         00056000
  61. MCHDAMAG EQU   *              THE DAMAGE ASSESSMENT AREA                00057000
  62. *                             (THE DAMAGE ASSESSMENT IS 80 BYTES)       00058000
  63. **********************************************************************  00059000
  64.          EJECT                                                          00060000
  65.          POP   PRINT                                                    00061000
  66.          SPACE                                                          00062000