Table of Contents

UCNTRL Source

References

Source Listing

UCNTRL.COPY.txt
  1. DSECT 00001000
  2. UCNTRL DS 0D 00002000
  3. UDASDDIR DS F UDIR DASD PAGE ADDRESS (0CCCPPDD) 00003000
  4. DS H RESERVED 00004000
  5. UDISPMAC DS H UMAC DISPLACEMENT INTO PAGE 00005000
  6. UDASDMAC DS F UMAC DASD PAGE ADDRESS (0CCCPPDD) 00006000
  7. SPACE 1 00007000
  8. ULOCDVAD DS H DEVICE ADDRESS TO LOCATE 00008000
  9. UDISPDEV DS H UDEV DISPLACEMENT INTO PAGE 00009000
  10. UDASDDEV DS F UDEV DASD PAGE ADDRESS (0CCCPPDD) 00010000
  11. SPACE 1 00011000
  12. URPAGDIR DS A UDIR REAL STORAGE PAGE ADDRESS 00012000
  13. URPAGMAC DS A UMAC REAL STORAGE PAGE ADDRESS 00013000
  14. URPAGDEV DS A UDEV REAL STORAGE PAGE ADDRESS 00014000
  15. SPACE 1 00015000
  16. UVPAGDIR DS A UDIR VIRTUAL STORAGE PAGE ADDRESS 00016000
  17. UVPAGBUF DS A UMAC/UDEV VIRTUAL STORAGE PAGE ADDRESS 00017000
  18. SPACE 1 00018000
  19. UDIRAD DS A REAL ADDRESS OF UDIRBLOK 00019000
  20. UMACAD DS A REAL ADDRESS OF UMACBLOK 00020000
  21. UDEVAD DS A REAL ADDRESS OF UDIRBLOK 00021000
  22. SPACE 1 00022000
  23. UVMBLOK DS A ADDRESS OF CALLER'S VMBLOK 00023000
  24. UOBJVMBK DS A ADDRESS OF OBJECT USERID'S VMBLOK 00024000
  25. UFLAGS DS X FLAG FIELD 00025000
  26. UDEVCODE DS X DEVICE CODE FROM DASD ADDRESS (0CCCPPDD) 00026000
  27. URETCODE DS H RETURN CODE 00027000
  28. USVDASD DS A UDIR DASD ADDRESS FROM SWPTABLE 00028000
  29. UWORK DS D WORK AREA 00029000
  30. UCNTRLSZ EQU (*-UCNTRL+7)/8 00030000
  31. SPACE 1 00031000
  32. * UFLAGS - DEFINITIONS 00032000
  33. UDIRF EQU X'80' OPERATION UPDATES UDIR BLOCK 00033000
  34. UMACF EQU X'40' OPERATION UPDATES UMAC BLOCK 00034000
  35. UDEVF EQU X'20' OPERATION UPDATES UDEV BLOCK 00035000
  36. URES1F EQU X'10' RESERVED 00036000
  37. UNOUPF EQU X'08' NO UPDATE FLAG 00037000
  38. URECMP EQU X'04' STATUS OF SWPRECMP 00038000
  39. URES2F EQU X'02' RESERVED 00039000
  40. UTESTMD EQU X'01' TEST MODE (NO UPDATING) 00040000
  41. *------------------------------------------------------------------ 00041000