*DECK     QSKEL - (QCG)  INSTRUCTION SKELETON CONSTRUCTION. 
          IDENT  QSKEL
 QSKEL    SECT   ((QCG)   INSTRUCTION SKELETON CONSTRUCTION.) 
 QSKEL    SPACE  4,8
*         IN FUN
          EXT    O=APRET,O=FAP,O=FUN,O=GAP,O=HLEX,O=HREL,O=HSTO,O=IAP 
          EXT    O=INF,O=IOC,O=IOD,O=IOF,O=IOU,O=LIB,O=LIBF,O=LURET 
          EXT    O=SCRET,O=SUB,O=SURET
  
*         IN GEN
          EXT    O=BVD,O=CAR,O=CBJ,O=CDCS,O=CDDOT,O=CDLOO,O=CDW,O=CRJ 
          EXT    O=DATA,O=DOC,O=DOB,O=DOBZ,O=ENT,O=EVD,O=FIN,O=FINX 
          EXT    O=FPENT,O=FPHDR,O=FUNT,O=GENT,O=GENTX,O=GFD,O=HCAT 
          EXT    O=HCOL,O=HDR,O=HSBS,O=ID,O=ILL,O=IM,O=LCC,O=MASK,O=MENT
          EXT    O=MOD,O=NOOP,O=PASG,O=PCG,O=PDE,O=PLA,O=PLIM,O=RGT 
          EXT    O=SEX,O=SHIFT
  
*         IN PAR
          EXT    ES=CMPL,ES=LEN,ES=LGE,ES=LGT,ES=LLE,ES=LLT,ES=LOCF 
          EXT    ES=MASK,ES=RANF,ES=SHIF
  
*         IN PUC
          EXT    S=AEXIT,S=BU,S=ENTRY,S=ERR,S=EXIT,S=FILES,S=INIT,S=TA0 
          EXT    S=TRACE,S=VALUE
  
*         IN REG
          EXT    O=PAR
 QSKEL    SPACE  4,10 
***       QSKEL - QCG INSTRUCTION SKELETONS.
* 
*         R. H. FRANK        71-12-31.
*         L. D. HARE         75-07-09.     REWRITE. 
*         M. A. HERBACH      76-07-31.     FTN 5 COMMON SKELETONS.
*         W. E. DICK         77-05-99.     FTN 5 QCG. 
* 
*         THIS DECK CONTAINS ALL INSTRUCTION SKELETONS AND
*         THE NECESSARY PSEUDO CODE FOR GENERATING THEM.
*         AS SUCH, THIS DECK IS NON EXECUTABLE. 
*         MODIFICATIONS MUST BE HANDLED WITH EXTREME CARE, ATTENTION
*         BEING PAID ESPECIALLY TO TABLES THAT LIE HEREIN AND 
*         ARE REFERENCED BY GEN.
          TITLE  MACRO DEFINITIONS. 
**        THE FOLLOWING MACROS ARE DEFINED IN THIS DECK TO CAUSE
*         THE COMDECKS TO GENERATE QCG FORMAT SKELETON DEFINITIONS. 
 .OPT     EQU    1
 .FAST    EQU    0
 .CG      EQU    .FAST
  
*CALL COMFSKL 
  
          END 
