MACRO                                                          00005000
&NAME    VMBLK &VMRSTAT=0,&VMSIZE=0,&VMOSTAT=0,&VMPSTAT=0,             X00006000
               &VMMLEVL=0,&VMCLEVL=0,&VMUSER=,&VMACNT=,&VMNEXT=         00007000
.*  THIS MACRO GENERATES A VMBLOK                                       00008000
&NAME    DS    0D                                                       00009000
         DC    A(0),A(0)      VMQFPNT, VMQBPNT                          00010500
         AIF   (T'&VMNEXT EQ 'O').VM5                                   00012000
         DC    A(&VMNEXT)     VMPNT                                     00013000
         AGO   .VM6                                                     00014000
.VM5     ANOP                                                           00015000
         DC    A(&NAME)       VMPNT                                     00016000
.VM6     ANOP                                                           00017000
         DC    A(0),A(0)      VMECEXT, VMSEG                            00018100
         DC    XL4'&VMSIZE'   VMSIZE                                    00019100
         DC    A(0),A(0)      VMCHSTRT, VMCUSTRT                        00020100
         DC    A(0),A(0)      VMDVSTRT, VMTERM                          00021100
         DC    XL2'FFFF',H'0' VMVTERM, VMTRMID                          00022100
         DC    C'#¢@"'        VMTLEND, VMTLDEL, VMTCDEL, VMTESCP        00023100
         DC    2H'0',2H'0'    VMCHCNT, VMCUCNT, VMDVCNT, VMIOACTV       00024100
         DC    16X'FFFF'      VMCHTBL                                   00025100
         DC    AL1(&VMRSTAT)  VMRSTAT                                   00026100
         DC    X'00'          VMDSTAT                                   00027100
         DC    AL1(&VMOSTAT)  VMOSTAT                                   00028100
         DC    X'00'          VMQSTAT                                   00029100
         DC    AL1(&VMPSTAT)  VMPSTAT                                   00030100
         DC    X'00',X'00'    VMESTAT, VMTRCTL                          00031100
         DC    AL1(&VMMLEVL)  VMMLEVEL                                  00032100
         DC    X'00'          VMQLEVEL                                  00033100
         DC    AL1(&VMCLEVL)  VMCLEVEL                                  00034100
         DC    X'00',X'00'    VMTLEVEL, VMPEND                          00035100
         DC    2H'0',2H'0'    VMSLOCK, VMLLOCK, VMEXTINT, VMIOINT       00036100
         DC    X'FFFFFF00'    VMTIMER                                   00037100
         DC    D'0'           VMVTIME                                   00038100
         DC    X'7FFFFFFFFFFFF000' VMTMOUTQ                             00039100
         DC    X'7FFFFFFFFFFFF000' VMTTIME                              00040100
         DC    X'7FFFFFFFFFFFF000' VMTMINQ                              00041100
         DC    D'0'           VMTODINQ                                  00042100
         DC    XL6'00',2X'00' VMINST, VMUPRIOR, VMPSWDCT                00043100
         DC    A(0),A(0)      VMTREXT, VMADSTOP                         00044100
         DC    X'00020000',A(0)    VMPSW                                00045100
         DC    16F'0'         VMGPRS                                    00046100
         DC    4D'0'          VMFPRS                                    00047100
         DC    CL8'&VMUSER '  VMUSER                                    00048100
         DC    CL8'&VMACNT '  VMACNT                                    00049100
         DC    CL8' '         VMDIST                                    00050100
         DC    F'0',F'0'      VMPGREAD, VMPGWRIT                        00051100
         DC    2H'0',A(0)     VMWCNT, VMSEGDSP, VMSHRSYS                00052100
         DC    F'0',F'0'      VMIOCNT, VMPNCH                           00053100
         DC    F'0',F'0'      VMLINS, VMCRDS                            00054100
         DC    CL8' '         VMCOMND                                   00055100
         DC    2H'0',2H'0'    VMPDRUM, VMPDISK, VMPAGES, VMPRGIL        00056100
         DC    2H'0',2H'0'    VMDEDCH, VMQPRIOR, VMWSPROJ, VMSTEALS     00057100
         DC    F'0',F'0'      VMTIMEON, VMTRQBLK                        00058100
         DC    F'0',F'0'      VMACOUNT, VMRDINQ                         00059100
         DC    F'0',F'0'      VMPGRINQ, VMEPRIOR                        00060100
         DC    F'0',F'0'      VMSTKO, VMMICRO                           00061100
         DC    F'0',F'0'      VMPFUNC, VMPXINT                          00062100
         DC    F'0',F'0'      VMDELAY, VMRPRIOR                         00063150
         DC    F'0',2H'0'     VMPGPNT, VMNDCNT, VMSHRSYS                00063200
         DC    4X'00'         VMRBSC,VMCXSTAT,VMAFF,VMLSTPRC   @V4075A0 00063260
         DC    F'0'           VMASSIST                         @V4075A0 00063275
         DC    F'0',F'0'      VMRSVW1, VMRSVW2                          00063300
         DC    F'0',F'0'      VMLOCK,VMDFTPNT                  @V4075A0 00063360
         DC    H'12810'       VMMORETM BEEP|CLEAR 50|10        HRC101DK 00066290
         DC    H'0'           VMUSERH1                         HRC101DK 00066480
         DC    F'0'           VMUSER2                          HRC101DK 00066670
         DC    F'0',F'0'      VMUSER3, VMUSER4                          00067100
         DC    F'0',F'0'      VMUHS, VMPCKP                    @V408246 00068110
         DC    H'0',X'0',X'0' VMXPG, VMQ2CNT, VMQ3CNT          @V408246 00069110
         DC    2H'0'          VMSTKCNT,VMPRRCT                 @V4075A0 00070115
         DC    A(0),X'0',X'0' VMSWPMIG, VMFVRF, VMCRTO         @V408246 00071110
         DC    XL1'00'        RESERVED                         @V60A6B6 00072110
         DC    X'6A'          VMGRFTAB                         @V60A6B6 00072610
         DC    D'0'           VMCPTIME                         @V4M0203 00073110
         DC    D'0'           VMAPTIME                         @V4M0203 00074110
         DC    XL2'00'        VMACTDEV                         @V5M0106 00075010
         DC    H'0'           VMFLPAG                                   00076000
         DC    XL1'00'        VMSPMFLG -SET TO OFF                      00077000
         DC    XL1'00'        RESERVED                                  00078000
         DC    H'0'           VMCONLN  - BYTES LEFT IN RESPONSE BUFFER  00079000
         DC    F'0'           VMCONBUF - ADDRESS OF RESPONSE BUFFER     00080000
         DC    X'00'          VMPSWDCA INV. 'AUTOLOG' PW COUNT @V60BBBB 00081000
         DC    X'00'          RESERVED                                  00082000
         DC    H'0'           RESERVED                                  00083000
         SPACE 3                                                        00105000
         MEND                                                           00106000