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