*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