*COPY VMBLOK 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').VMB01 00001400
PRINT OFF,NOGEN 00001600
.VMB01 ANOP 00001800
VMBLOK DSECT 00009000
SPACE 1 00010000
*** VMBLOK - VIRTUAL MACHINE CONTROL BLOCK 00012000
* 00012500
* 0 +-----------------------+-----------------------+ 00013000
* | VMQFPNT | VMQBPNT | 00013500
* 8 +-----------------------+-----------------------+ 00014000
* | VMPNT | VMECEXT | 00014500
* 10 +-----------------------+-----------------------+ 00015000
* | VMSEG | VMSIZE | 00015500
* 18 +-----------------------+-----------------------+ 00016000
* | VMCHSTRT | VMCUSTRT | 00016500
* 20 +-----------------------+-----------------------+ 00017000
* | VMDVSTRT | VMTERM | 00017500
* 28 +-----------+-----------+-----+-----+-----+-----+ 00018000
* | VMVTERM | VMTRMID | V*1 | V*2 | V*3 | V*4 | 00018500
* 30 +-----------+-----------+-----+-----+-----+-----+ 00019000
* | VMCHCNT | VMCUCNT | VMDVCNT | VMIOACTV | 00019500
* 38 +-----------+-----------+-----------+-----------+ 00020000
* | | 00020500
* = VMCHTBL = 00021000
* | | 00021500
* 58 +-----+-----+-----+-----+-----+-----+-----+-----+ 00022000
* | V*5 | V*6 | V*7 | V*8 | V*9 | V*10| V*11| V*12| 00022500
* 60 +-----+-----+-----+-----+-----+-----+-----+-----+ 00023000
* | V*13| V*14| V*15| V*16| VMLOCKER | 00023510
* 68 +-----+-----+-----+-----+-----------+-----------+ 00024000
* | V*19| V*20| VMIOINT | VMTIMER | 00024550
* 70 +-----------+-----------+-----------------------+ 00025000
* | VMVTIME | 00025500
* 78 +-----------------------------------------------+ 00026000
* | VMTMOUTQ | 00026500
* 80 +-----------------------------------------------+ 00027000
* | VMTTIME | 00027500
* 88 +-----------------------------------------------+ 00028000
* | VMTMINQ | 00028500
* 90 +-----------------------------------------------+ 00029000
* | VMTODINQ | 00029500
* 98 +-----------------------------------+-----+-----+ 00030000
* | VMINST | V*17| V*18| 00030500
* A0 +-----------------------+-----------+-----+-----+ 00031000
* | VMPERCTL | VMADSTOP |RC013DK 00031690
* A8 +-----------------------+-----------------------+ 00032000
* | VMPSW | 00032500
* B0 +-----------------------------------------------+ 00033000
* | (CONT) | 00033500
EJECT 00034000
* | (CONT) | 00034500
* B0 +-----------------------------------------------+ 00035000
* | | 00035500
* = VMGPRS = 00036000
* | | 00036500
* F0 +-----------------------------------------------+ 00037000
* | | 00037500
* = VMFPRS = 00038000
* | | 00038500
* 110 +-----------------------------------------------+ 00039000
* | VMUSER | 00039500
* 118 +-----------------------------------------------+ 00040000
* | VMACNT | 00040500
* 120 +-----------------------------------------------+ 00041000
* | VMDIST | 00041500
* 128 +-----------------------+-----------------------+ 00042000
* | VMPGREAD | VMPGWRIT | 00042500
* 130 +-----------+-----------+-----------------------+ 00043000
* | VMWCNT | VMSEGDSP | VMSTOR | 00043510
* 138 +-----------+-----------+-----------------------+ 00044000
* | VMIOCNT | VMPNCH | 00044500
* 140 +-----------------------+-----------------------+ 00045000
* | VMLINS | VMCRDS | 00045500
* 148 +-----------------------+-----------------------+ 00046000
* | VMCOMND | 00046500
* 150 +-----------+-----------+-----------+-----------+ 00047000
* | VMPDRUM | VMPDISK | VMPAGES | VMPRGIL | 00047500
* 158 +-----------+-----------+-----------+-----------+ 00048000
* | VMDEDCH | VMQPRIOR | VMWSPROJ | VMSTEALS | 00048500
* 160 +-----------+-----------+-----------+-----------+ 00049000
* | VMTIMEON | VMTRQBLK | 00049500
* 168 +-----------------------+-----------------------+ 00050000
* | VMACOUNT | VMRDINQ | 00050500
* 170 +-----------------------+-----------------------+ 00051000
* | VMPGRINQ | VMEPRIOR | 00051500
* 178 +-----------------------+-----------------------+ 00052000
* | VMSTKO | VMMICRO | 00052500
* 180 +-----------------------+-----------------------+ 00053000
* | VMPFUNC | VMPXINT | 00053500
* 188 +-----------------------+-----------------------+ 00054000
* | VMDELAY | VMRPRIOR | 00054750
* 190 +-----------------------+-----------------------+ 00055000
* | VMPGPNT | VMNDCNT | VMSHRSYS | 00055511
* 198 +-----+-----+-----------+-----------+-----------+ 00056100
* | V*21| V*22| V*26| V*27| VMASSIST | 00056310
* 1A0 +-----+-----+-----------+-----------------+-----+ 00056500
* | VMCPNT | VMCPUID | V*25| 00056600
* 1A8 +-----------------------+-----------------+-----+ 00056700
* | VMLOCK | VMDFTPNT | 00057810
* 1B0 +-----------+-----------+-----------------------HRC101DK 00057980
* | VMMORETM | VMUSERH1 | VMUSER2 HRC101DK 00058060
* 1B8 +-----------+-----------+-----------------------HRC101DK 00058140
* | VMTREXT | P*1 | P*2 | P*3 | RSV |RC018DK 00058260
* 1C0 +-----------------------+-----------------------+ 00058300
* | VMUHS | VMPCKP | 00058310
* 1C8 +-----------+-----+-----+-----------------------+ 00058360
* | VMXPG | C*1 | C*2 | VMSTKCNT | VMPRRCT | 00058420
* 1D0 +-----------+-----+-----+-----------------------+ 00058460
* | VMSWPMIG | C*3 | C*4 |V*28 |V*29 | 00058520
* 1D8 +-----------------------+-----+-----+-----+-----+ 00058560
* | VMCPTIME | 00058610
* 1E0 +-----------------------------------------------+ 00058660
* | VMAPTIME | 00058710
* 1E8 +-----------------------------------------------+ 00058760
* | VMACTDEV | VMFLPAG | V*30| | VMCONLN | 00058800
* 1F0 +-----------+-----------|-----+-----+-----------| 00058900
* | VMCONBUF | V*31| RESERVED | 00059000
* 1F8 +-----------------------+-----------+-----------| 00059100
* 00059500
*** VMBLOK - VIRTUAL MACHINE CONTROL BLOCK 00060000
EJECT 00060500
SPACE 1 00097000
VMQFPNT DS 1F POINTER TO NEXT VMBLOK IN QUEUE 00098000
VMQBPNT DS 1F POINTER TO PREVIOUS VMBLOK IN QUEUE 00099000
VMPNT DS 1F POINTER (CYCLIC) TO NEXT VMBLOK 00100000
VMECEXT DS 1F VMBLOK EXTENDED CONTROL POINTER - ECBLOK 00101000
VMVCR0 EQU VMECEXT VIRTUAL C-REG 0 FOR NON-EC MACHINE 00102000
VMSEG DS 1F POINTER TO VMSEGTBL 00103000
VMSIZE DS 1F TEMPORARY STORAGE SIZE (BYTES) 00104100
VMCHSTRT DS 1F POINTER TO VCHBLOK TABLE 00105000
VMCUSTRT DS 1F POINTER TO VCUBLOK TABLE 00106000
VMDVSTRT DS 1F POINTER TO VDEVBLOK TABLE 00107000
VMTERM DS 1F POINTER TO RDEVBLOK FOR USER TERMINAL 00108000
VMVTERM DS 1H DISPLACEMENT TO VIRTUAL CONSOLE VDEVBLOK 00108100
VMTRMID DS 1H RESOURCE ID OF REAL TERMINAL IF 370X 00108200
VMTLEND DS 1C V*1 TERMINAL LINE END CHARACTER 00108300
VMTLDEL DS 1C V*2 TERMINAL LINE DELETE CHARACTER 00108400
VMTCDEL DS 1C V*3 TERMINAL CHARACTER DELETE CHARACTER 00108500
VMTESCP DS 1C V*4 TERMINAL ESCAPE CHARACTER 00108600
VMCHCNT DS 1H VIRTUAL CHANNEL COUNT 00109000
VMCUCNT DS 1H VIRTUAL CONTROL UNIT COUNT 00110000
VMDVCNT DS 1H VIRTUAL DEVICE COUNT 00111000
VMIOACTV DS 1H ACTIVE CHANNEL MASK 00112000
VMCHTBL DS 16H CHANNELS ATTACHED - VMCHSTRT INDEX 00113000
VMRSTAT DS 1X V*5 VIRTUAL MACHINE RUNNING STATUS 00114000
VMDSTAT DS 1X V*6 VIRTUAL MACHINE DISPATCHING STATUS 00115000
VMOSTAT DS 1X V*7 VIRTUAL MACHINE OPERATING STATUS 00116000
VMQSTAT DS 1X V*8 VIRTUAL MACHINE QUEUEING STATUS 00117000
VMPSTAT DS 1X V*9 VIRTUAL MACHINE PROCESSING STATUS 00118000
VMESTAT DS 1X V*10 VIRTUAL MACHINE CONTROL STATUS 00119000
VMTRCTL DS 1X V*11 VIRTUAL MACHINE TRACING CONTROL 00120000
VMMLEVEL DS 1X V*12 MESSAGE LEVEL 00121000
VMQLEVEL DS 1X V*13 QUEUE LEVEL 00122000
VMCLEVEL DS 1X V*14 COMMAND LEVEL 00123000
VMTLEVEL DS 1X V*15 TIMER LEVEL 00124000
VMPEND DS 1X V*16 INTERRUPT PENDING SUMMARY FLAG 00125000
VMLOCKER DS 1F BASE ADDR OF HOLDER OF VMLOCK @V4075A0 00126100
VMFSTAT DS 1X V*19 VIRTUAL MACHINE FEATURE STATUS 00128100
VMMLVL2 DS 1X V*20 MORE MSG HANDLING INFO 00128250
VMIOINT DS 1H I/O INTERRUPT PENDING FLAGS 00129000
VMTIMER DS 1F VIRTUAL TIMER VALUE - X'50' 00130000
VMVTIME DS 1D VIRTUAL CPU TIME USED - 2'S COMPLEMENT 00131000
VMTMOUTQ DS 1D TIME REMAINING IN QUEUE 1 - QUEUE 2 00132000
VMTTIME DS 1D TOTAL TIME WHILE IN SUPERVISOR STATE 00133000
VMTMINQ DS 1D VMTTIME VALUE AT ENTRY TO Q 00134000
VMTODINQ DS 1D TOD CLOCK TIME STAMP AT QUEUE ENTRY 00135000
VMINST DS CL6 VM PRIVILEGED OR TRACING INSTRUCTION 00136525
VMUPRIOR DS 1X V*17 USER PRIORITY FROM DIRECTORY 00137300
VMPSWDCT DS 1X V*18 INVALID 'LINK' PASSWORD COUNT 00137700
VMPERCTL DS 1F ADDRESS OF PER TRACE CONTROL BLOKHRC013DK 00138490
VMADSTOP DS 1F ADDRESS OF ADDRESS STOP CONTRON BLOK 00139000
VMPSW DS 1D VIRTUAL MACHINE PSW 00140000
VMGPRS DS 16F VIRTUAL MACHINE GEN. PURP. REGISTERS 00141000
VMFPRS DS 4D VIRTUAL MACHINE FLT. PT. REGISTERS 00142000
VMUSER DS CL8 VIRTUAL MACHINE IDENTIFICATION 00143000
VMACNT DS CL8 VIRTUAL MACHINE ACCOUNTING NUMBER 00144000
VMDIST DS CL8 VIRTUAL MACHINE DISTRIBUTION CODE 00145000
VMPGREAD DS 1F TOTAL PAGE READS 00146000
VMPGWRIT DS 1F TOTAL PAGE WRITES 00147000
VMWCNT DS 1H PAGE WAIT COUNT 00148000
VMSEGDSP DS 1H DISP. OF VM SEGTABLE FROM START OF BLOK 00149000
VMSTOR DS 1F PERMANENT STORAGE SIZE (BYTES) 00150100
VMIOCNT DS 1F VIRTUAL SIO COUNT FOR NON-SPOOLED IO 00151000
VMPNCH DS 1F VIRTUAL CARD COUNT - SPOOLED PUNCH 00152000
VMLINS DS 1F VIRTUAL LINE COUNT - SPOOLED PRINTER 00153000
VMCRDS DS 1F VIRTUAL CARD COUNT - SPOOLED READER 00154000
VMCOMND DS CL8 LAST CP COMMAND EXECUTED 00155000
VMPDRUM DS 1H COUNT OF USER PAGES ON DRUM 00156000
VMPDISK DS 1H COUNT OF USER PAGES ON DISK 00157000
VMPAGES DS 1H NUMBER OF CURRENTLY RESIDENT REAL PAGES 00158000
VMPRGIL DS 1H ILC FOR LATEST PROGRAM INTERRUPT 00159000
VMDEDCH DS 1H MASK FOR DEDICATED CHANNELS 00160000
VMQPRIOR DS 1H PRIORITY IN DISPATCHING QUEUE 00161000
VMWSPROJ DS 1H PROJECTED WORKING SET SIZE 00162000
VMSTEALS DS 1H NUMBER OF WAITS FOR STOLEN PAGES 00163000
VMTIMEON DS 1F LOGON TIME - TOD CLOCK WORD ZERO 00164000
VMTRQBLK DS 1F ADDRESS OF TRQBLOK FOR REAL TIMER 00165000
VMACOUNT DS 1F ADDRESS OF USER ACCTBLOK 00166000
VMRDINQ DS 1F PAGE READ TOTAL (VMPGREAD) @ Q ENTRY 00167000
VMPGRINQ DS 1F SUM OF VMPAGES COUNT @ EACH PAGE READ 00168000
VMEPRIOR DS 1F ELIGIBLE LIST PRIORITY 00169000
VMSTKO DS 1F CONSOLE FUNCTION OUTPUT STACK 00172100
VMMICRO DS 1F VM ASSIST - REAL CNTRL REG 6 00173100
VMPFUNC DS 1F PFNN FUNCTION TABLE 00174100
VMPXINT DS 1F EXTENDED EXTERNAL INTERRUPT STACK 00174200
VMDELAY DS 1F TRQBLOK FOR DELAYED SLEEP OR LOGOFF 00174300
VMRPRIOR DS 1F RUNLIST DISPATCHING PRIORITY 00174450
VMPGPNT DS 1F POINTER TO LIST OF PGBLOKS 00174510
VMNDCNT DS 1H NON-DEFERED PAGE READ COUNT 00174520
VMSHRSYS DS 1H NUMBER OF SHARED NAMED SYSTEMS 00174531
VMRBSC DS 1X V*21 3270 REMOTE DISPLAY LINE COUNT 00174710
VMCXSTAT DS 1X V*22 VMCF STATUS BYTE 00174730
VMVCR14 EQU VMCXSTAT V*22 DATA FROM C-REG 14, PARALLELS ECBLOK. 00174740
VMAFF DS 1X V*26 AFFINITY REQUEST FIELD @V4075A0 00174750
VMLSTPRC DS 1X V*27 LAST PROCSR EXECUTED PROB STATE @V4075A0 00174751
VMASSIST DS 1F POINTER TO LIST OF VMABLOKS 00174810
VMCPNT DS 1F VMCBLOK ANCHOR 00174830
VMCPUID DS XL3 CPUID SERIAL IN BINARY 00174855
VMNOECPS DS 1X V*25 ECPS FLAG BYTE 00174865
VMLOCK DS 1F LOCKWORD FOR CS LOCKING @V4075A0 00174873
VMDFTPNT DS 1F DEFERRED TASK POINTER @V4075A0 00174893
VMMORETM DS 0H CONTAINS TIME INTERVALS FOR GRAF HRC101DK 00175190
VMMOREBP DS 1X BEEP TIME HRC101DK 00175380
VMMORECL DS 1X CLEAR TIME HRC101DK 00175570
VMUSERH1 DS 1H RESERVED FOR INSTALLATION USE HRC101DK 00175760
VMHRCALL DS 1F ADDRESS OF RECALL BUFFER HRC001DK 00176490
VMTREXT DS 1F ADDRESS OF TRACE CONTROL BLOCK HRC013DK 00177190
VMPERFLG DS 1X P*1 PER FLAGS HRC013DK 00177380
VMHRCFLG DS 1X P*2 HRC FLAGS HRC018DK 00177660
VMHRCPRV DS 1X P*3 COPY OF CLASS FROM DIRECTORY HRC018DK 00177750
VMLCLRSV DS 1X RESERVED FOR INSTALLATION USE HRC018DK 00177840
VMUHS DS 1F RECENT HISTORY USER CPU UTIL. @V408246 00178010
VMPCKP DS 1F USER PAGE READ CHECKPOINT @V408246 00178060
VMXPG DS 1H MAXIMUM VMPAGES COUNT IN-QUEUE @V408246 00178110
VMQ2CNT DS 1X (C*1) CONSECUTIVE QUEUE 2 COUNT @V408246 00178160
VMQ3CNT DS 1X (C*2) COUNT OF CONSECATIVE Q2S @V408246 00178210
* ALLOWED 00178260
VMSTKCNT DS 1H COUNT OF STACKED IOB + CPEXBLOKS @V4075A0 00178315
VMPRRCT DS 1H COUNT OF PRIORITY CPEXBLOKS @V4M0141 00178320
VMSWPMIG DS 1A POINTER TO PSUEDO PAGE TABLE @V408246 00178360
VMFVRF DS 1X (C*3) SET FAVORED PERCENTAGE @V408246 00178410
* FOR USER 00178460
VMCRTO DS 1X (C*4) COMPUTE/ELAPSED RATIO @V408246 00178510
VMSHRPRC DS 1X V*28 PROCESSOR WHOSE SHRD SEGS WE HAV @V4075A0 00178565
VMGRFTAB DS 1X V*29 GRAF VIRTUAL CONSOLE LOGICAL TAB @V60A6B6 00178570
VMCPTIME DS 1D MAIN PROCESSOR SUPERVISOR TIME @V4M0203 00178610
VMAPTIME DS 1D ATTACHD PROCESSR SUPERVISOR TIME @V4M0203 00178620
VMACTDEV DS 1H VDEV ADDRESS FOR LAST SIO/TIO/HIO @VM13658 00178636
VMFLPAG DS H COUNT OF NON-SHARED FLUSHED PAGES 00178640
VMSPMFLG DS 1X V*30 MISCELLANEOUS STATUS BYTE @VA13304 00178645
DS 1X RESERVED 00178650
VMCONLN DS 1H BYTES LEFT IN RESPONSE BUFFER 00178655
VMCONBUF DS 1F VIRTUAL ADDRESS OF RESPONSE BUFFER 00178660
VMPSWDCA DS 1X V*31 INVALID 'AUTOLOG' PASSWORD COUNT @V60BBBB 00178665
VMSVSTAT DS 1X V*32 VMSAVE STATUS AND OTHER @VA13026 00178670
* PARMS 00178770
VMLGFORC EQU X'10' INDICATE FORCED LOGOFF @VA13026 00178870
VMLGNMSG EQU X'08' INDICATE NO OPERATOR MESSAGE @VA13026 00178970
DS 1X RESERVED FOR FUTURE USE @VA13026 00179070
VMWSADJ DS 1H WORKING SET SIZE ADJUSTED @VA13026 00179170
VMTSOUTQ EQU VMTMINQ SUPRV. TIME ALLOWED (REDEFINE @VA13026 00179270
* LABEL) 00179370
VMVMPS DS 1F ANCHOR FOR VIRTUAL RDEVBLOK @VA13026 00179470
* CHAIN 00179570
DS 1F RESERVED FOR FUTURE USE @VA13026 00179670
SPACE 1 00179770
VMBSIZE EQU (*-VMBLOK)/8 VMBLOK SIZE IN DOUBLE WORDS 00180000
SPACE 1 00181000
ORG VMMICRO DEFINITION FOR VMMICRO: 00181100
VMMCR6 DS 1X CR 6 - HARDWARE FLAG BYTE 00181200
VMMADDR DS 3X CR 6 - ADDR OF V. MACH PTR LIST 00181300
EJECT 00181400
* BITS DEFINED IN VMRSTAT 00182000
VMCFWAIT EQU X'80' WAITING - EXECUTING CONSOLE FUNCTION 00183000
VMPGWAIT EQU X'40' WAITING - PAGING OPERATION(S) 00184000
VMIOWAIT EQU X'20' WAITING - SCHEDULED IOBLOK START 00185000
VMPSWAIT EQU X'10' WAITING - VIRTUAL PSW WAIT STATE 00186000
VMEXWAIT EQU X'08' WAITING - INSTRUCTION SIMULATION 00187000
VMLOGON EQU X'04' USER NOT YET LOGGED ON 00188000
VMLOGOFF EQU X'02' USER LOGGING OFF 00189000
VMIDLE EQU X'01' VIRTUAL MACHINE IN IDLE WAIT STATE 00190000
VMCPWAIT EQU VMCFWAIT+VMPGWAIT+VMIOWAIT+VMEXWAIT+VMLOGOFF+VMLOGON 00191000
VMNORUN EQU VMCPWAIT+VMPSWAIT 00192000
VMLONGWT EQU VMCFWAIT+VMLOGON+VMLOGOFF+VMIDLE 00193000
SPACE 1 00194000
* BITS DEFINED IN VMDSTAT 00195000
VMDSP EQU X'80' VIRTUAL MACHINE IS DISPATCHED RUNUSER 00196000
VMTSEND EQU X'40' VIRTUAL MACHINE HAS GONE COMPUTE BOUND 00197000
VMQSEND EQU X'20' VIRTUAL MACHINE IN-QUEUE TIME SLICE END 00198000
VMTIO EQU X'10' VIRTUAL MACHINE IS IN TIO BUSY LOOP 00199000
VMRUN EQU X'08' VIRTUAL MACHINE RUNNABLE 00200000
VMINQ EQU X'04' VIRTUAL MACHINE IN A Q 00201000
VMELIG EQU X'02' VIRTUAL MACHINE IN ELIGIBLE LIST @V4M0202 00201500
VMDSPCH EQU X'01' USE DISPATCH PATH 'DMKDSPCH' 00202100
SPACE 1 00203000
* BITS DEFINED IN VMOSTAT 00204000
VMSYSOP EQU X'80' VIRTUAL MACHINE IS SYSTEM OPERATOR 00205000
VMSHR EQU X'40' VIRTUAL MACHINE RUNNING SHARED SYSTEM 00206000
VMSLEEP EQU X'20' VIRTUAL MACHINE IN SLEEP STATE 00206100
VMDISC EQU X'10' VIRTUAL MACHINE CONSOLE DISCONNECTED 00207000
VMCFRUN EQU X'08' VIRTUAL MACHINE RUNNING IN CF MODE 00208000
VMVIRCF EQU X'04' VIRTUAL MACHINE EXECUTING VIRTUAL CF 00209000
VMCF EQU X'02' VIRTUAL MACHINE EXECUTING CF 00210000
VMKILL EQU X'01' VIRTUAL MACHINE TO BE LOGGED OFF 00211100
SPACE 1 00212000
* BITS DEFINED IN VMQSTAT 00213000
VMPRIDSP EQU X'80' VIRTUAL MACHINE ELIGIBLE FOR Q1 00214000
VMAUTLOG EQU X'40' AUTOLOGGED USER IN DISCONNECT MODE 00215000
VMWSERNG EQU X'20' LAST WORKING SET ERROR WAS NEGATIVE 00216000
VMDLDRP EQU X'10' DELAYED QUEUE DROP FLAG @V408246 00217050
VMWSCHG EQU X'08' FORCE NEW WORKING SET ON QUEUE ENTRY 00217100
VMINHMIG EQU X'04' PAGE MIGRATION SWITCH @V408246 00217105
VMCFREAD EQU X'02' VIRTUAL MACHINE WITH CF READ UP 00217110
VMPA2APL EQU X'01' REFLECT EXTERNAL INTERRUPT TO MACHINE 00217200
SPACE 1 00218000
* BITS DEFINED IN VMPSTAT 00219000
VMISAM EQU X'80' VIRTUAL MACHINE HAS ISAM CCW CHECKING 00220000
VMV370R EQU X'40' VIRTUAL MACHINE CAN USE EXTENDED FORMAT 00221000
VMRPAGE EQU X'20' VIRTUAL MACHINE MAY RESERVE PAGES 00222000
VMREAL EQU X'10' VIRTUAL MACHINE HAS VIRT=REAL OPTION 00223000
VMNOTRAN EQU X'08' NO CCW TRANSLATION FOR VIRT=REAL USER 00224000
VMNSHR EQU X'04' RUNNING NON-SHARED NAMED SAVED SYSTEM 00224100
VMACCOUN EQU X'02' VIRTUAL MACHINE MAY PUNCH ACCOUNT CARD 00226000
VMPAGEX EQU X'01' VIRT. MACH. RECEIVING PSEUDO PAGE FAULTS 00227100
EJECT 00228000
* BITS DEFINED IN VMESTAT 00229000
VMSHADT EQU X'80' SHADOW TABLES ARE PRESENT 00230000
VMPERCM EQU X'40' VRT/CP PER ACTIVE 00231000
VMBADCR0 EQU X'20' VIRTUAL C-REG ZERO IN INVALID 00232000
VMMICSVC EQU X'10' USER WANTS SVCS DONE BY VM ASSIST 00233100
VMEXTCM EQU X'08' VIRTUAL MACHINE IN EXTENDED CONTROL MODE 00234000
VMNEWCR0 EQU X'04' VIRTUAL C-REG 0 HAS CHANGED 00235000
VMINVSEG EQU X'02' ALL SHADOW TABLES INVALID 00236000
VMINVPAG EQU X'01' SHADOW PAGE TABLES INVALID 00237000
VMECZAP EQU 255-VMMICSVC ALL BITS EXCEPT VMMICSVC 00237100
SPACE 00238000
* BITS DEFINED IN VMTRCTL 00239000
VMTRPER EQU X'80' VIRTUAL PER TRACING ACTIVE 00240000
VMTRSVC EQU X'40' TRACE USER SVC INSTRUCTIONS 00241000
VMTRPRG EQU X'20' TRACE VIRTUAL PROGRAM INTERRUPTS 00242000
VMTRIO EQU X'10' TRACE VIRTUAL I/O INTERRUPTS 00243000
VMTREX EQU X'08' TRACE EXTERNAL INTERRUPTS 00244000
VMTRPRV EQU X'04' TRACE USER PRIVILEGED INSTRUCTIONS 00245000
VMTRSIO EQU X'02' TRACE VIRTUAL I/O INSTRUCTIONS 00246000
VMTRBRIN EQU X'01' TRACE SUCCESSFUL BRANCHES OR ALL INSTR. 00247000
VMTRINT EQU VMTRSVC+VMTRPRG+VMTRIO+VMTREX TRACE ALL USER INTERRUPTS 00248000
SPACE 1 00249000
* BITS DEFINED IN VMMLEVEL 00250000
VMMSGON EQU X'80' RECEIVING MESSAGES 00251000
VMWNGON EQU X'40' RECEIVING WARNINGS 00252000
VMMCODE EQU X'20' RECEIVING ERROR MESSAGE CODES 00253000
VMMTEXT EQU X'10' RECEIVING TEXTS OF ERROR MESSAGES 00254000
VMMLINED EQU X'08' LINE EDITING ON 00255000
VMMACCON EQU X'04' RECEIVING ACCOUNTING INFORMATION 00256000
VMMCPENV EQU X'02' TERMINAL ENVIROMENT IN CP MODE 00257000
VMMSTMP EQU X'01' TIME STAMP DESIRED ON CONSOLE OUTPUT 00257500
SPACE 1 00258000
* BITS DEFINED IN VMMLVL2 00258100
VMMIMSG EQU X'80' RECEIVING ALL INFORMATIONAL MSGS 00258200
VMMHLITE EQU X'40' HIGHLIGHT INPUT REDISPLAY HRC101DK 00258220
VMMDIAL EQU X'20' USER IS DIALING @VA11241 00258250
VMMAUTCR EQU X'08' AUTOCR ON 3215S HRC101DK 00258260
VMMNHOLD EQU X'04' DON'T GOING HOLDING MODE ON GRAF HRC101DK 00258270
SPACE 00258300
* BITS DEFINED IN VMQLEVEL 00259000
VMQ1 EQU X'80' VIRTUAL MACHINE IS INTERACTIVE 00260000
VMCOMP EQU X'40' VIRTUAL MACHINE IS COMPUTE BOUND 00261000
VMHIPRI EQU X'20' VIRTUAL MACHINE IS HIGHEST PRIORITY 00262000
VMLOPRI EQU X'10' VIRTUAL MACHINE IS LOWEST PRIORITY 00263000
VMAEX EQU X'08' VIRTUAL MACHINE IS ASSURED EXECUTION 00264000
VMAEXP EQU X'04' VIRTUAL MACHINE IS ASSURED PERCETAGE 00265000
VMQ3 EQU X'02' VIRTUAL MACHINE USING MULTIPLE Q2@V408246 00266100
* VMQ3 IS USED ONLY BY THE FAIR SHARE SCHEDULAR 00266200
VMDROP1 EQU X'02' VIRT. MACHINE DROPPED FROM Q1 @V408246 00266300
* VMDROP1 IS USED ONLY BY THE STANDARD SCHEDULAR 00266400
VMFS EQU X'01' USING MORE THAN FAIR SHARE FLAG @V408246 00266500
SPACE 1 00267000
* BITS DEFINED IN VMCLEVEL 00268000
VMCLASSA EQU X'80' CLASS A FUNCTIONS 00269000
VMCLASSB EQU X'40' CLASS B FUNCTIONS 00270000
VMCLASSC EQU X'20' CLASS C FUNCTIONS 00271000
VMCLASSD EQU X'10' CLASS D FUNCTIONS 00272000
VMCLASSE EQU X'08' CLASS E FUNCTIONS 00273000
VMCLASSF EQU X'04' CLASS F FUNCTIONS 00274000
VMCLASSG EQU X'02' CLASS G FUNCTIONS 00275000
VMCLASSH EQU X'01' RESERVED - IBM USE ONLY 00276100
EJECT 00277000
* BITS DEFINED IN VMTLEVEL 00278000
VMTON EQU X'80' VIRTUAL TIMER RUNNING 00279000
VMRON EQU X'40' VIRTUAL REAL TIMER RUNNING 00280000
VMCPUTMR EQU X'20' VIRTUAL CPU TIMER IN REAL CPU TIMER 00281000
VMSTMPI EQU X'08' VIRTUAL INTERVAL TIMER REQUEST QUEUED 00282000
VMSTMPT EQU X'04' VIRTUAL CPU TIMER REQUEST QUEUED 00283000
VMTMRINT EQU X'01' INTERRUPT FROM REAL CPU TIMER PENDING 00284000
SPACE , HRC013DK 00284070
* HRC013DK 00284140
* BITS DEFINED IN VMPERFLG HRC013DK 00284210
* HRC013DK 00284280
VMPERUSE EQU X'80' A PER TRACE BLOCK EXISTS HRC013DK 00284350
VMPERANY EQU X'40' EITHER USER PER ON OR PER TRACE HRC013DK 00284420
SPACE 1 HRC021DK 00284430
* BITS DEFINED IN VMHRCFLG HRC021DK 00284440
VMTRMOFF EQU X'80' SUPPRESS CONSOLE OUTPUT HRC021DK 00284450
SPACE 1 HRC021DK 00284460
EJECT 00284500
* 00285000
* BITS RE-DEFINED FOR SYSTEM VMBLOK 00286000
* 00287000
VMTIDLE EQU VMTON CPU TIMER CONTAINS IDLE WAIT STATE TIME 00288000
VMTPAGE EQU VMRON CPU TIMER CONTAINS SYSTEM PAGE WAIT TIME 00289000
VMTIONT EQU VMSTMPI CPU TIMER CONTAINS I/O WAIT STATE TIME 00290000
SPACE 1 00291000
* BITS DEFINED IN VMPEND 00292000
VMDEFSTK EQU X'80' DEFERRED TASK WAIT 4 SYSTEM LOCK @V4075A0 00292100
VMPERPND EQU X'40' VIRTUAL PER INTERRUPT PENDING 00293000
VMPRGPND EQU X'20' VIRTUAL PROGRAM INTERRUPT DEFERRED 00294000
VMSVCPND EQU X'10' VIRTUAL SVC INTERRUPT DEFERRED 00295000
VMPGPND EQU X'08' VIRTUAL PSEUDO PAGE FAULT PENDING 00295500
VMIOPND EQU X'02' VIRTUAL I/O INTERRUPT PENDING 00296000
VMEXTPND EQU X'01' VIRTUAL EXTERNAL INTERRUPT PENDING 00297000
SPACE 1 00297100
* BITS DEFINED IN VMFSTAT 00297200
VMFBMX EQU X'80' VIRTUAL BLOCK MULTIPLEXER CHANNELS 00297300
VMFAUTO EQU X'40' AUTOPOLL HANDSHAKE FEATURE IN USE 00298300
VMFVTMR EQU X'20' USER REQUESTED VIRTUAL TIMER ASSIST 00299300
VMFDLNKN EQU X'10' LINK NOPASS ALLOWED HRC011DK 00299600
VMSTFRST EQU X'08' USER HAS STFIRST DIRECTORY OPTN HRC068DK 00299700
VMNPWOCL EQU X'04' VM REQUESTED PASSWORD SUPPRESSION@V60BBBB 00300100
SPACE 1 00306100
* BITS DEFINED IN VMMCR6: 00306200
VMMFE EQU X'80' VM ASSIST FEATURE ENABLED 00306300
VMMPROB EQU X'40' VIRTUAL MACHINE IN PROBLEM STATE 00306400
VMMNOSK EQU X'20' VM ASSIST DOESN'T HANDLE SSK,ISK 00306500
VMM360 EQU X'10' 360 OPS ONLY-NO ECMODE OPS ALLOWD 00306600
VMMSVC EQU X'08' VM ASSIST DOES NOT HANDLE SVCS 00306700
VMMSHADT EQU X'04' SHADOW TABLES PRESENT-EC, TRANS 00306800
VMMCPAST EQU X'02' CP ASSIST FEATURE ENABLED 00306850
VMMVTMR EQU X'01' VIRTUAL INTERVAL TIMER FEATURE ENABLED 00306900
SPACE 00306910
* BITS DEFINED IN VMCXSTAT (V*22) 00306920
VMBCAUTH EQU X'80' VMCF ACTIVE 00306930
VMIOLOG EQU X'20' C-REG 14 IOLOG MASK. REF'D VIA VMVCR14. 00306938
VMSTBYPS EQU X'04' STBYPASS VR IS ACTIVE HRC068DK 00306939
SPACE 1 @V4075A0 00306940
* DEFINITION OF VMAFF @V4075A0 00306950
VMAFFON EQU X'40' AFFINITY SET ON @V4075A0 00306960
SPACE 00306965
* BITS DEFINED FOR VMSPMFLG 00306970
VMLOGON2 EQU X'80' VDEVBLOK GOTTEN DURING LOGON @VA13304 00306972
VMSPMON EQU X'40' RECEIVING SPECIAL MESSAGES @VA09952 00306975
VMSMSGON EQU X'20' PROCESSING SPACIAL MESSAGES @VA09952 00306976
VMCPVIRT EQU X'08' WE GOT A CP UNDER CP SITUATION @VA09952 00306977
VMCPSV76 EQU X'04' AND IT ISSUED AN SVC76 @VA09952 00306978
VMCFRD1 EQU X'01' BACK UP OF VMCFREAD @VA13025 00306979
SPACE 1 00306984
* BITS DEFINED IN VMSVSTAT 00306989
VMLGHOLD EQU X'02' HOLD LINE AFTER MSG, KEEP ENABLE 00306994
EJECT 00307000
ECBLOK DSECT 00308000
SPACE 1 00309000
*** ECBLOK - VMBLOK EXTENSION FOR VIRTUAL 370R 00311000
* 00312000
* 0 +-----------------------+-----------------------+ 00313000
* | EXTCR0 | EXTCR1 | 00314000
* 8 +-----------------------+-----------------------+ 00315000
* | EXTCR2 | EXTCR3 | 00316000
* 10 +-----------------------+-----------------------+ 00317000
* | EXTCR4 | EXTCR5 | 00318000
* 18 +-----------------------+-----------------------+ 00319000
* | EXTCR6 | EXTCR7 | 00320000
* 20 +-----------------------+-----------------------+ 00321000
* | EXTCR8 | EXTCR9 | 00322000
* 28 +-----------------------+-----------------------+ 00323000
* | EXTCR10 | EXTCR11 | 00324000
* 30 +-----------------------+-----------------------+ 00325000
* | EXTCR12 | EXTCR13 | 00326000
* 38 +-----------------------+-----------------------+ 00327000
* | EXTCR14 | EXTCR15 | 00328000
* 40 +-----------------------+-----------------------+ 00329000
* | EXTSHCR0 | EXTSHCR1 | 00330000
* 48 +-----------+-----------+-----------------------+ 00331000
* | EXTSHLEN | EXTVSEGS | EXTSTOLD | 00332000
* 50 +-----------+-----------+-----------+-----------+ 00333000
* | EXTSHSEG | EXTSEGLN | EXTARCH | 00334000
* 58 +-----------------------+-----------+-----------+ 00335000
* | EXTPERAD | EXTPERCD | EXTCOPY | 00336000
* 60 +-----------------------+-----------+-----------+ 00337000
* | EXTCPTMR | 00338000
* 68 +-----------------------+-----------------------+ 00339000
* | EXTCPTRQ | EXTCCTRQ | 00340000
* 70 +-----------------------+-----------------------+ 00341000
* 00342000
*** ECBLOK - VMBLOK EXTENSION FOR VIRTUAL 370R 00343000
SPACE 1 00345000
EXTCR0 DS 1F VIRTUAL C-REG 0; ARCHITECTURE CONTROLS 00346000
EXTCR1 DS 1F VIRTUAL C-REG 1; SEGMENT TABLE POINTER 00347000
EXTCR2 DS 1F VIRTUAL CONTROL REGISTER 2 00348000
EXTCR3 DS 1F ...THRU REGISTER 15 00349000
EXTCR4 DS 1F 00350000
EXTCR5 DS 1F 00351000
EXTCR6 DS 1F 00352000
EXTCR7 DS 1F 00353000
EXTCR8 DS 1F 00354000
EXTCR9 DS 1F 00355000
EXTCR10 DS 1F 00356000
EXTCR11 DS 1F 00357000
EXTCR12 DS 1F 00358000
EXTCR13 DS 1F 00359000
EXTCR14 DS 1F 00360000
EXTCR15 DS 1F 00361000
EXTSHCR0 DS 1F SHADOW CONTROL REGISTER 0 00362000
EXTSHCR1 DS 1F SHADOW CONTROL REGISTER 1 00363000
EXTSHLEN DS 1H LENGTH OF SHADOW SEGTABLE IN BYTES 00364000
EXTVSEGS DS 1H LENGTH OF VIRTUAL SEGTABLE IN BYTES 00365000
EXTSTOLD DS 1F C-REG 1 VALUE CORRESPONDING TO TABLES 00366000
EXTSHSEG DS 1F REAL ADDRESS OF SHADOW SEGTABLE 00367000
EXTSEGLN DS 1H LENGTH OF SHADOW SEGTABLE IN DBL WORDS 00368000
EXTARCH DS 1H ARCHITECTURE CONTROL INDEX 00369000
EXTPERAD DS 1F ADDRESS OF INSTRUCTION CAUSING PER INT. 00370000
EXTPERCD DS 1H PER CODE TO BE REFLECTED 00371000
EXTCOPY DS 1H LENGTH CODE FROM ACTIVE SEGTABLE ENTRY 00372000
EXTCPTMR DS 1D VIRTUAL CPU TIMER 00373000
EXTCPTRQ DS 1F ADDRESS OF TRQBLOK FOR CPU TIMER 00374000
EXTCCTRQ DS 1F ADDRESS OF TRQBLOK FOR CLOCK COMPARATOR 00375000
SPACE 1 00376000
EXTSIZE EQU (*-ECBLOK)/8 ECBLOK SIZE IN DOUBLE WORDS 00377000
EJECT 00378000
POP PRINT 00379000
SPACE 00380000