ibm:vm370-lib:copy:micblok.copy_src
Table of Contents
MICBLOK Source
References
- Fixes Applied : 1
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC068DK]
Source Listing
- MICBLOK.COPY.txt
- *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
ibm/vm370-lib/copy/micblok.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator