*COPY MICBLOK 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').MIC01 00001400 PRINT OFF,NOGEN 00001600 .MIC01 ANOP 00001800 MICBLOK DSECT 00002000 * 00003000 *** MICBLOK - VIRTUAL MACH. POINTER LIST FOR VM ASSIST 00004000 * 00005000 * +-------------------+-------------------+ 00006000 * 0 | MICRSEG | MICCREG | 00007000 * +-------------------+-------------------+ 00008000 * 8 | MICVPSW | MICWORK | 00009000 * +-------------------+-------------------+ 00010000 * 10 | MICVTMR | MICACF | 00010110 * +-------------------+-------------------+ 00010200 * 00011000 *** MICBLOK - VIRTUAL MACH. POINTER LIST FOR VM ASSIST 00012000 * 00013000 SPACE 1 00014000 MICRSEG DS 1F REAL SEGMENT TABLE POINTER 00015000 MICCREG DS 1F VIRTUAL CONTROL REGISTER POINTER 00016000 MICVPSW DS 1F VIRTUAL PSW POINTER 00017000 MICWORK DS 1F WORKSPACE POINTER 00018000 MICVTMR DS 1F VIRTUAL INTERVAL TIMER POINTER 00018100 MICACF DS 1F ASSIST CONTROLS FULLWORD 00018250 SPACE 1 00019000 MICSIZE EQU (*-MICBLOK)/8 SIZE OF DSECT IN DOUBLEWORDS 00020000 SPACE 1 00021000 * DEFINITION OF MICVPSW 00022000 ORG MICVPSW 00023000 MICVIP DS 1X VIRTUAL INTERRUPT PENDING BIT 00024000 DS 3X ADDRESS OF VIRTUAL PSW 00025000 SPACE 1 00026000 * BITS DEFINED IN MICVIP 00027000 MICPEND EQU X'80' VIRTUAL INTERRUPT IS PENDING; 00028000 * THEREFORE MICROCODE IS NOT TO HANDLE CHANGE OF PSW 00029000 * CHANNEL MASKS OR EXTERNAL MASK FROM DISABLED TO 00030000 * ENABLED. ALL OTHER BITS IN THIS BYTE MUST BE 0. 00031000 * DEFINITION OF MICACF 00031020 ORG MICACF 00031040 MICEVMA DS 1X EVMA CONTROL BITS 00031060 MICEVMA2 DS 1X SYBYPASS ASSIST (STBA) CONTROL BITS HRC068DK 00031070 DS 2X RESERVED FOR IBM USE HRC068DK 00031081 * BITS DEFINED IN MICEVMA 00031100 MICLPSW EQU X'80' LPSW SIMULATION 00031120 MICPTLB EQU X'40' PTLB SIMULATION 00031140 MICSCSP EQU X'20' SCKC, SPT SIMULATION 00031160 MICSIO EQU X'10' SIO SIMULATION 00031180 MICSTSM EQU X'08' STNSM, STOSM, SSM SIMULATION 00031200 MICSTPT EQU X'04' STPT SIMULATION 00031220 MICTCH EQU X'02' TCH SIMULATION 00031240 MICDIAG EQU X'01' DIAGNOSE SIMULATION 00031260 * BITS DEFINED IN MICEVMA2 HRC068DK 00031500 MICSTBAL EQU X'FF' ALL STBA ASSISTS ENABLED HRC068DK 00031520 MICSTBVR EQU X'80' STBYPASS ASSIST (STBA) ACTIVE HRC068DK 00031540 MICPTLB2 EQU X'40' PTLB SIMULATION STBA HRC068DK 00031560 MICIPTE2 EQU X'20' IPTE,TPROT SIMULATION STBA HRC068DK 00031580 MICVPFR2 EQU X'10' VIRTUAL PAGE FAULT REFLECTION STBA HRC068DK 00031600 MICLRA2 EQU X'08' LRA SIMULATION STBA HRC068DK 00031620 MICSTP EQU X'04' STP CONTROL HRC068DK 00031640 MICSTSM2 EQU X'02' STNSM, STOSM SIMULATION STBA HRC068DK 00031660 MICLCTL2 EQU X'01' LCTL SIMULATION STBA HRC068DK 00031680 EJECT 00032000 POP PRINT 00032200 SPACE 00032300