DSECT                                                          00001000
UCNTRL   DS    0D                                                       00002000
UDASDDIR DS    F              UDIR DASD PAGE ADDRESS (0CCCPPDD)         00003000
         DS    H              RESERVED                                  00004000
UDISPMAC DS    H              UMAC DISPLACEMENT INTO PAGE               00005000
UDASDMAC DS    F              UMAC DASD PAGE ADDRESS (0CCCPPDD)         00006000
         SPACE 1                                                        00007000
ULOCDVAD DS    H              DEVICE ADDRESS TO LOCATE                  00008000
UDISPDEV DS    H              UDEV DISPLACEMENT INTO PAGE               00009000
UDASDDEV DS    F              UDEV DASD PAGE ADDRESS (0CCCPPDD)         00010000
         SPACE 1                                                        00011000
URPAGDIR DS    A              UDIR REAL STORAGE PAGE ADDRESS            00012000
URPAGMAC DS    A              UMAC REAL STORAGE PAGE ADDRESS            00013000
URPAGDEV DS    A              UDEV REAL STORAGE PAGE ADDRESS            00014000
         SPACE 1                                                        00015000
UVPAGDIR DS    A              UDIR VIRTUAL STORAGE PAGE ADDRESS         00016000
UVPAGBUF DS    A              UMAC/UDEV VIRTUAL STORAGE PAGE ADDRESS    00017000
         SPACE 1                                                        00018000
UDIRAD   DS    A              REAL ADDRESS OF UDIRBLOK                  00019000
UMACAD   DS    A              REAL ADDRESS OF UMACBLOK                  00020000
UDEVAD   DS    A              REAL ADDRESS OF UDIRBLOK                  00021000
         SPACE 1                                                        00022000
UVMBLOK  DS    A              ADDRESS OF CALLER'S VMBLOK                00023000
UOBJVMBK DS    A              ADDRESS OF OBJECT USERID'S VMBLOK         00024000
UFLAGS   DS    X              FLAG FIELD                                00025000
UDEVCODE DS    X              DEVICE CODE FROM DASD ADDRESS (0CCCPPDD)  00026000
URETCODE DS    H              RETURN CODE                               00027000
USVDASD  DS    A              UDIR DASD ADDRESS FROM SWPTABLE           00028000
UWORK    DS    D              WORK AREA                                 00029000
UCNTRLSZ EQU   (*-UCNTRL+7)/8                                           00030000
         SPACE 1                                                        00031000
* UFLAGS - DEFINITIONS                                                  00032000
UDIRF    EQU   X'80'          OPERATION UPDATES UDIR BLOCK              00033000
UMACF    EQU   X'40'          OPERATION UPDATES UMAC BLOCK              00034000
UDEVF    EQU   X'20'          OPERATION UPDATES UDEV BLOCK              00035000
URES1F   EQU   X'10'          RESERVED                                  00036000
UNOUPF   EQU   X'08'          NO UPDATE FLAG                            00037000
URECMP   EQU   X'04'          STATUS OF SWPRECMP                        00038000
URES2F   EQU   X'02'          RESERVED                                  00039000
UTESTMD  EQU   X'01'          TEST MODE (NO UPDATING)                   00040000
*------------------------------------------------------------------     00041000