Table of Contents

MICBLOK Source

References

Source Listing

MICBLOK.COPY.txt 
  1. *COPY MICBLOK                                                           00001000
  2.          PUSH  PRINT                                                    00001200
  3.          AIF   ('&SYSPARM' NE 'SUP').MIC01                              00001400
  4.          PRINT OFF,NOGEN                                                00001600
  5. .MIC01   ANOP                                                           00001800
  6. MICBLOK  DSECT                                                          00002000
  7. *                                                                       00003000
  8. ***      MICBLOK - VIRTUAL MACH. POINTER LIST FOR VM ASSIST             00004000
  9. *                                                                       00005000
  10. *              +-------------------+-------------------+                00006000
  11. *           0  |    MICRSEG        |    MICCREG        |                00007000
  12. *              +-------------------+-------------------+                00008000
  13. *           8  |    MICVPSW        |    MICWORK        |                00009000
  14. *              +-------------------+-------------------+                00010000
  15. *          10  |    MICVTMR        |      MICACF       |                00010110
  16. *              +-------------------+-------------------+                00010200
  17. *                                                                       00011000
  18. ***      MICBLOK - VIRTUAL MACH. POINTER LIST FOR VM ASSIST             00012000
  19. *                                                                       00013000
  20.          SPACE 1                                                        00014000
  21. MICRSEG  DS    1F             REAL SEGMENT TABLE POINTER                00015000
  22. MICCREG  DS    1F             VIRTUAL CONTROL REGISTER POINTER          00016000
  23. MICVPSW  DS    1F             VIRTUAL PSW POINTER                       00017000
  24. MICWORK  DS    1F             WORKSPACE POINTER                         00018000
  25. MICVTMR  DS    1F             VIRTUAL INTERVAL TIMER POINTER            00018100
  26. MICACF   DS    1F   ASSIST CONTROLS FULLWORD                            00018250
  27.          SPACE 1                                                        00019000
  28. MICSIZE  EQU   (*-MICBLOK)/8  SIZE OF DSECT IN DOUBLEWORDS              00020000
  29.          SPACE 1                                                        00021000
  30. *        DEFINITION OF MICVPSW                                          00022000
  31.          ORG   MICVPSW                                                  00023000
  32. MICVIP   DS    1X             VIRTUAL INTERRUPT PENDING BIT             00024000
  33.          DS    3X             ADDRESS OF VIRTUAL PSW                    00025000
  34.          SPACE 1                                                        00026000
  35. *        BITS DEFINED IN MICVIP                                         00027000
  36. MICPEND  EQU   X'80'          VIRTUAL INTERRUPT IS PENDING;             00028000
  37. *              THEREFORE MICROCODE IS NOT TO HANDLE CHANGE OF PSW       00029000
  38. *              CHANNEL MASKS OR EXTERNAL MASK FROM DISABLED TO          00030000
  39. *              ENABLED. ALL OTHER BITS IN THIS BYTE MUST BE 0.          00031000
  40. *        DEFINITION OF MICACF                                           00031020
  41.          ORG   MICACF                                                   00031040
  42. MICEVMA  DS    1X   EVMA CONTROL BITS                                   00031060
  43. MICEVMA2 DS    1X   SYBYPASS ASSIST (STBA) CONTROL BITS        HRC068DK 00031070
  44.          DS    2X   RESERVED FOR IBM USE                       HRC068DK 00031081
  45. *        BITS DEFINED IN MICEVMA                                        00031100
  46. MICLPSW  EQU   X'80'     LPSW SIMULATION                                00031120
  47. MICPTLB  EQU   X'40'     PTLB SIMULATION                                00031140
  48. MICSCSP  EQU   X'20'     SCKC, SPT SIMULATION                           00031160
  49. MICSIO   EQU   X'10'     SIO SIMULATION                                 00031180
  50. MICSTSM  EQU   X'08'     STNSM, STOSM, SSM SIMULATION                   00031200
  51. MICSTPT  EQU   X'04'     STPT SIMULATION                                00031220
  52. MICTCH   EQU   X'02'     TCH SIMULATION                                 00031240
  53. MICDIAG  EQU   X'01'     DIAGNOSE SIMULATION                            00031260
  54. *        BITS DEFINED IN MICEVMA2                              HRC068DK 00031500
  55. MICSTBAL EQU   X'FF'     ALL STBA ASSISTS ENABLED              HRC068DK 00031520
  56. MICSTBVR EQU   X'80'     STBYPASS ASSIST (STBA) ACTIVE         HRC068DK 00031540
  57. MICPTLB2 EQU   X'40'     PTLB SIMULATION STBA                  HRC068DK 00031560
  58. MICIPTE2 EQU   X'20'     IPTE,TPROT SIMULATION STBA            HRC068DK 00031580
  59. MICVPFR2 EQU   X'10'     VIRTUAL PAGE FAULT REFLECTION STBA    HRC068DK 00031600
  60. MICLRA2  EQU   X'08'     LRA SIMULATION STBA                   HRC068DK 00031620
  61. MICSTP   EQU   X'04'     STP CONTROL                           HRC068DK 00031640
  62. MICSTSM2 EQU   X'02'     STNSM, STOSM SIMULATION STBA          HRC068DK 00031660
  63. MICLCTL2 EQU   X'01'     LCTL SIMULATION STBA                  HRC068DK 00031680
  64.          EJECT                                                          00032000
  65.          POP   PRINT                                                    00032200
  66.          SPACE                                                          00032300