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