*DECK,QU0200
          IDENT  QU0200 
          COMMENT  INITIALIZATION OF OVERLAY 2-0
QU0200    TITLE    QU0200 - INITIALIZATION OF OVERLAY 2-0 
          TITLE     INITIALIZATION OF OVERLAY 2-0.         (OVERLAY 2,0)
          ENTRY  QU0200 
QU0200    JP     *+400000B
          SX6    =XAUTOPSY   SET UP RETURN ADDRESS FOR ABORT
          SA6    =XAUTLOC                                               000190
          RJ     =XQUCLOCK   UPDATE CURRENT-TIME (MAYBE DATE, TOO ) 
          SA1   RPTFIT+1          CHECK IF FIT FILLED IN YET            000160
          NZ     X1,CALLXEQ       YES, SKIP THE FIT MOVE
          SB1    LFITM1      LENGTH OF MOVE - 1 
MCZFIT    SA1    CZFIT+B1          MOVE THE MODEL CZFIT TO RPTFIT IN    000190
          BX6   X1                OVERLAY (0,0)                         000200
          SA6   RPTFIT+B1                                               000210
          SB1   B1-1                                                    000220
          NZ    B1,MCZFIT                                               000230
CALLXEQ   BSS    0                                                      000240
          RJ     =XXEQREP 
          SX6    1
          SA1    =XQU$RPT 
          ZR     X1,CALLXEQ1 IF WE ARE EXECUTING *QU* AND NOT *REPORT*
          SX6    71B         RETURN TO *REPORT* PROCESSING
 CALLXEQ1 SA6    PRIMARY
          RJ     =XLOADX0           RETURN TO (1,0) OVERLAY 
*         ---    ------------- EXIT VIA OVERLAY LOAD
**        XSETFIT 
* 
*         USE SETFIT MACRO TO READ FILE CARD INFORMATION
* 
          ENTRY XSETFIT 
 XSETFIT  JP     *+400000B
          SETFIT X1 
          EQ     XSETFIT
          SPACE  4,10 
          USE    /ENVIRON/
          LIST   -L          *CALL ENVIRON FOLLOWS
*CALL ENVIRON 
          LIST   L
          LIST   -L                SEE LISTING OF COSPACE IN QU10 
          LIST   L
          LIST   -L                *CALL MACRO FOLLOWS
*CALL MACRO 
          LIST   L
          LIST   -L                *CALL NUMOPT FOLLOWS 
*CALL NUMOPT
          LIST   L
*CALL CKININF 
*CALL CCLFN                                                             000290
 CZFIT    FILE   BT=C,RT=Z,BFS=896,FL=8500,EFC=3
          SPACE  4
          END    QU0200 
