*DECK QU2000
          IDENT  QU2000 
          COMMENT  INITIALIZATION OF OVERLAY 20-0 
QU2000    TITLE    QU2000 - INITIALIZATION OF OVERLAY 20-0
*  THIS IS THE ENTRY POINT OF OVERLAY 20-00.
*  THE PROCEDURE MERELY LOADS OVERLAY 20-01 WITHOUT ANY FURTHER 
*  PROCESSING.  IT PROVIDES TWO TABLES DEFINED AS 
*  COMMON ENTRY POINT WHERE 20-01 AND 20-02 CAN STORE AND RETRIEVE DATA.
          SPACE  3
          LIST   -L          *CALL MACRO FOLLOWS
*CALL MACRO 
          LIST   L
          SST 
          LIST   F
          SPACE  4
**        CAPSULE LIST FOR (20,0) 
  
 CAPLIST  BSS    0
          CAPSULE CDCSREQ    ENTRY POINTS TO CALL CDCS
          CAPSULE RTNSSCM    RETURN CM AFTER FATAL CDCS ERROR 
          CON    0           END OF LIST
          SPACE  4
**        CAPSULE ENTRY POINTS
* 
*         THESE ENTRY POINTS MUST BE IN ALPHABETIC ORDER FOR FDL
  
 CDCSREQ  INCAP  CDCSREQ,QU2000 
 DB.CLS   INCAP  CDCSREQ,QU2000 
 DB.OPN   INCAP  CDCSREQ,QU2000 
 DB.RDX1  INCAP  CDCSREQ,QU2000 
 DB.RWX   INCAP  CDCSREQ,QU2000 
 DB.STX   INCAP  CDCSREQ,QU2000 
 RTNSSCM  INCAP  RTNSSCM,QU2000 
          SPACE  4
**        ENTRY POINT PASSLOC LIST FOR (20,0) 
  
 ENTLIST  PASSLOC            BUILD (20,0) ENTRY POINT PASSLOC TABLE 
          SPACE  4
**        EXTERNAL PASSLOC LIST FOR (20,0)
* 
*         THESE ENTRIES MUST BE IN ALPHABETIC ORDER FOR FDL 
  
          PASS   ER$SRM,X    REQD BY *CDCSREQ* - KLUGE FOR LOADER PSR 
          PASS   RTNSSCM,X   REQUIRED BY CAPSULE *CDCSREQ*
 EXTLIST  PASSLOC            BUILD (20,0) EXTERNAL PASSLOC TABLES 
          SPACE  4
**        GLOBAL DECLARATIONS 
 P1       CON    CAPLIST     ALTERNATE CAPSULE LIST 
          CON    ENTLIST     ALTERNATE ENTRY POINT PASSLOC LIST 
          CON    EXTLIST     ALTERNATE EXTERNAL PASSLOC LIST
          SPACE  3
*  THE FOLLOWING TABLE IS THE FIRST PARAMETER TO RM$BLP.
*  THE TABLE IS FILLED-IN BY OVERLAY 20-01 (PROC IFKEY) 
*  AND USED BY OVERLAY 20-02 (PROC RM$BLP). 
          ENTRY  BLPTBLE
BLPTBLE   BSS    1000B       AN ARBITRARY LARGE NUMBER
* 
*  THE FOLLOWING TABLE IS THE SECOND PARAMETER TO RM$BLP. 
*  IT IS FILLED BY OVERLAY 20-02. 
          ENTRY  BLPRC
BLPRC     BSSZ   2           2 WORDS ONLY 
          SPACE  3
          ENTRY  AKGRPID
AKGRPID   DATA   0           CMM GROUP ID OF CM REQUESTED BY IFKEY AND
*                            RELEASED BY CALLBLP TO CONTAIN MAJOR 
*                            ALTERNATE KEYS OR ALT KEYS CONTAINING
*                            UNIVERSAL CHARACTER WHICH HAVE BEEN PADDED 
*                            TO FULL ALTERNATE KEY SIZE WITH HIGH OR
*                            LOW CHARACTER
          ENTRY  QU2000 
QU2000    DATA   0
          SA1    P1          PARAMETER LIST 
          RJ     =XQU.LNK    LINK UP ALTERNATE CAPSULE LISTS
          SA1    LOADPARM 
          RJ     =XLOADOVL
*         --                 EXIT FROM 20-00 VIA OVERLAY LOAD 
          SPACE  2
          ENTRY  KEYFLFI
KEYFLFI   BSSZ   1           DUMMY FIT ENTRY FOR -RELEASESPACE- 
LOADPARM  BSS    0           PARAMETER FOR 20-00 LOAD 
          VFD    60/*        UNUSED LOADOVL PARAMETER 
          VFD    60/TWENTY
          VFD    60/ONE 
TWENTY    DATA   20B
ONE       DATA   1
          END    QU2000 
