*DECK QU7100
          IDENT  QU7100 
          COMMENT  INITIALIZATION OF OVERLAY 71-0 
QU7100    TITLE    QU7100 - INITIALIZATION OF OVERLAY 71-0
          ENTRY  QU7100 
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL MACRO 
          SPACE  4,10 
**        EXTERNAL PASSLOC LIST FOR (71,0) OVERLAY. 
* 
*         THIS LIST MUST BE IN ALPHABETIC ORDER.
  
  
          PASS   CURLENG,X   REQUIRED BY CAPSULE *DIAGS*
          PASS   CURWORD,X   REQUIRED BY CAPSULE *DIAGS*
          PASS   NEXLENG,X   REQUIRED BY CAPSULE *DIAGS*
          PASS   NEXWORD,X   REQUIRED BY CAPSULE *DIAGS*
 EXTLIST  PASSLOC            BUILD PASSLOC LIST HERE
          SPACE  4,10 
**        GLOBAL SYMBOLS AND DEFINITIONS. 
  
  
 P1       VFD    60/0        NO ALTERNATE CAPSULE LIST
          VFD    60/0        NO ALTERNATE ENTRY POINT LIST
          VFD    60/EXTLIST  ALTERNATE EXTERNAL PASSLOC LIST
          ENTRY  TEXTFIT
          SPACE  4,10 
**        TEXTFIT - MODEL FIT FOR *REPORT* PROCESSING.
* 
*              THIS FIT IS THE MODEL FIT FOR THE SOURCE DATA FILE FOR 
*         *PREFACE* OR *SUMMARY* TEXT.  IT IS PRESET WITH BLOCK/RECORD
*         TYPE OF C/Z AND A MRL OF 1024 WORDS.  THESE CAN BE ALTERED BY 
*         USING THE *FILE* CONTROL CARD.
  
  
 TEXTFIT  FILE   BT=C,RT=Z,MRL=1024,FO=SQ,EFC=3 
          SPACE  3
QU7100    DATA   0
          SA1    P1 
          RJ     =XQU.LNK    LINK UP ALTERNATE CAPSULE LISTS
          RJ     =XREP7100
          EQ     QU7100 
          END    QU7100 
