         SYSTEM SIG7
         DEF S:OVRLY
*
FMT      COM,1,7,4,3,17 AFA(1),CF(2),CF(3),AF(2),AF(1)
*
         REF      TCBADR,JITREE
TREE     EQU      11                LOC OF TREE POINTER WITHIN THE TCB
OUTINFLG EQU      3                 BIAS INTO TREE FOR OUT-IN CORE FLAG
*
R0       EQU      0
R1       EQU      1
*
S:OVRLY  EQU %
         STCF     TEMP              SACE
         STW,R1   TEMP+1
         LW,R0    *R0               GET PARAMETER WORD FROM RFLD TABLE
         LW,R1    MASK
         STS,R0   EXIT              BUILD INSTRUCTION FOR EXIT
         AND,R1   EXIT
         EOR,R1    R0               GET TREE INDEX FROM PARAMETER
         MI,R0    11**12            MAKE IT A DISPLACEMENT INTO TREE
         AI,R0    1
         AW,0     X'8C00'+JITREE
         LW,1     X'8C00'+TCBADR
         XW,R0    R1                R0=TCBPTR R1=SPECIFIC TREE SEG
         MTW,0    OUTINFLG,R1
         BLZ      %+2               IGNORE SEGLD IN IN-CORE FLAG IS SET
         CAL1,8   SEGLD
         LW,R1    TEMP+1            RESTORE
         LC       TEMP
EXIT     FMT,X'68' 0                SKELETON BRANCH FOR EXIT TO USER
*
MASK     FMT   *X'1FFFF',7      FOR STORING ALL BUT OP CODE AND REG
*
SEGLD    FMT,1    0                 FPT FOR SEGLD CAL
         FMT      *R1
TEMP     RES      2                 TEMPORARU STOREGE
         END

