         DEF      SSDATU:           PATCHING DEF
SSDATU:  RES
*
         SYSTEM   UTS
***********************************************************************
*
*M*      SSDATU - SWAPPER DATA AREA IN UMOV
*
***********************************************************************
         DEF      S:BECL
         DEF      SB:OSULT
         DEF      TSC3
         DEF      TSC4
         DEF      SDA%END
         DEF      SCL%END
         DEF      SWAP%PRI
         DEF      SX:HPP
         DEF      SB:NP
         DEF      SB:PNL
         DEF      S:PCT
         DEF      S:FPPH
         DEF      S:FPPT
         DEF      S:FPPC
         DEF      S:AJP
         DEF      SB:OSN
         DEF      SB:OSUL
         DEF      SB:FPN
         DEF      SB:FPL
         DEF      S:OSS
         DEF      S:BDA
         DEF      SH:EDA
         DEF      S:BCL
         DEF      S:ECL
         DEF      S:SCL
         DEF      SH:SDA
         DEF      SMAXOUT
         DEF      S:JCL
         DEF      SH:JAJDA
         DEF      CHNMSK
         DEF      C0MSK
         DEF      TSC0
         DEF      TSC1
         DEF      TSC2
         DEF      S:JSP
         DEF      SCLLIM
         DEF      DOWTCK
         DEF      BANPMC
         DEF      SB:#TBL
         DEF      SB:XTBL
         DEF      SB:WST
         DEF      S:C2SEEK
         DEF      S:#SWAP%DEV
         DEF      S:FPL             FREE PROCESSOR LIST
         DEF      S:PRPC
         DEF      S:IOEA%ADR,S:SECTOR
         DEF      S:SWSTAT
         DEF      TOPUMVDTA         ADDRESSOF END OF MODULE
*
*
         REF      NPMC
         REF      CPOOL
         REF      MPOOL
         REF      RECOVER0
         REF      CPOOLEND
         REF      :DP               PACK SWAPPER FLAG
*
SMAXOUT  EQU      20                MAX NR. OF USERS OUTSWAPABLE
PROCSIZE EQU       40                    MAX SIZE OF PROCESSOR CLIST (K)
SWAP%PRI EQU      X'10'
SB:NP    EQU      SB:PNL            NO PROCS TO SWAP IN
SB:PNL   DATA     0                 IN SWAP PROC NOS
         DATA     0
S:PCT    DATA     0                 PAGE COUNT TOTAL FOR SWAP IN
S:FPPH   DATA     0                 FREE PAGE POOL HEAD
S:FPPT   DATA     0                              TAIL
S:FPPC   DATA     0                                COUNT
S:AJP    DATA     0
SB:OSN   EQU      SB:OSUL           NO USERS TO SWAP OUT
SB:OSUL  BYTAB    SMAXOUT,0         OUT SWAP USER NOS
SB:OSULT BYTAB    SMAXOUT,0         SCRATCH TABLE
SB:#TBL  BYTAB    SMAXOUT,0
SB:XTBL  BYTAB    SMAXOUT,0
SB:WST   BYTAB    SMAXOUT,0
SX:HPP   DATA     0,0,0             PROCESSOR TEMP PG CHAIN HEADS.
S:OSS    DATA     0                 OUTSWAPSIZE
S:PRPC   DATA     0
S:FPL    RES      0                 SHARES SPACE WITH S:BDA,SH:EDA,S:BCL,S:ECL
S:BDA    WORTAB   SMAXOUT,0
SH:EDA   HAFTAB   SMAXOUT,0         END DISA ADDR
S:BCL    WORTAB   SMAXOUT,0         BEG OF COMMAND LIST
S:ECL    WORTAB   SMAXOUT,0         END OF COMMAND LIST
         BOUND    8
SB:FPN   RES      0
SB:FPL   RES      0                 OVERLAP S:BECL
S:BECL   EQU      %                 BEG & END CL ADDRESSES
         DO       SMAXOUT
         DATA     0,0
         FIN
         BOUND    8
SEEK     EQU      X'03'
SENSE    EQU      X'04'
READ     EQU      X'02'
AJFLGS   EQU      X'2C'
JFLGS    EQU      X'4C'
S:SCL    EQU      %
I        DO       2*PROCSIZE
         GEN,8,24 SEEK,BA(SH:SDA)+2*(I-1)
         GEN,8,24 X'2E',2
         GEN,8,24 READ,BA(0)
         GEN,1,1,1,5,4,20   :DP,0,1-:DP,12,8,4*512
         FIN
         ORG      %-1               OVERLAY LAST FLAG WORD
         DATA     X'2C800800'       TO INSURE ITS COMMAND CHAINED.
SCL%END  DATA     0                 SPACE FOR HALT TIC
         BOUND    8
SH:SDA   EQU      %
         RES      X'44'
SDA%END  EQU      HA(SH:SDA)+(2*PROCSIZE)-1
         BOUND    4
         BOUND    8
S:JCL    EQU      %
        GEN,8,24 SEEK,BA(SH:JAJDA) CL FOR AJIT IF EXISTS, OTHERWISE JIT
         GEN,8,24 X'2E',2
         GEN,8,24 READ,BA(0)
         GEN,8,4,20  AJFLGS,8,4*512
         GEN,8,24 SEEK,BA(SH:JAJDA)+2  CL FOR JIT IF AJIT EXISTS
         GEN,8,24 X'2E',2
         GEN,8,24 READ,BA(0)
         GEN,8,4,20  JFLGS,8,4*512
SH:JAJDA DATA,2   0,0               DA TABLE FOR JIT CL
         BOUND    4
CHNMSK   DATA     X'FF00007F'
C0MSK    DATA     X'C0000000'
DOWTCK   DATA     0                 DFAULT IS NO SWAPPER CHECKWRITE
BANPMC   GEN,21,11  NPMC,0          BA OF NO PG
         BOUND    8
SCLLIM   DATA     S:SCL
         DATA     SH:SDA
TSC0     DATA     0                 TEMPORARY SWAPPER CELL 0
TSC1     DATA     0                 TEMPORARY SWAPPER CELL 1
TSC2     DATA     0                 TEMPORARY SWAPPER CELL 2
TSC3     DATA     0
TSC4     DATA     0
S:JSP    DATA     0                 (JIT SECTOR POS + SDLAY) /2
*  COULD USE SB:HPP OR TSCO FOR THE ABOVE
         PAGE
S:C2SEEK DATA     0
         DATA     0
S:#SWAP%DEV  DATA 0
S:IOEA%ADR DATA   0
S:SECTOR DATA     0
         BOUND    8
S:SWSTAT DATA     0,0               TDV STATUS IF SWAPPER ERROR
TOPUMVDTA  EQU  %
         END

