*DECK QU6000
          IDENT  QU6000 
          COMMENT  INITIALISATION OF OVERLAY 60-0 
          ENTRY  QU6000 
          ENTRY  EXITCTL     EXIT (60,00) BY LOADING (01,00)
QU6000    JP     *+400000B
          SA1    P1          ALTERNATE CAPSULES PARAMETERS
          RJ     =XQU.LNK    LINK-UP ALTERNATE CAPSULES 
          SX6    AUTOP60     SET UP *AUTOP60* FOR ABORT PROCESSING
          SA6    =XAUTLOC 
 EXITCTL  RJ     =XCTL60
          SX6    1           THEN RELOAD OVERLAY 1,0
          SA6    =XPRIMARY
          RJ     =XLOADX0 
*         --     ------      UNCONDITIONAL EXIT BY OVERLAY LOAD 
          ABORT              ABORT IF RETURN HERE...
          SPACE  3
          LIST   -L          *CALL MACRO FOLLOWS
*CALL MACRO 
          LIST   L
          SPACE  3
P1        CON    CAPLIST     ALTERNATE CAPSULE LIST 
          CON    ENTLIST     ALTERNATE ENTRY POINTS PASSLOC LIST
          CON    EXTLIST     ALTERNATE EXTERNAL PASSLOC LIST
          SPACE  3
CAPLIST   BSS    0           BEGINNING OF CAPSULE LIST
          CAPSULE IMFRUN     IMF RUN-TIME ROUTINES
          CAPSULE USINGEX    *USING* OPTION PROCESSING
          CON    0           END OF CAPSULE LIST
          SPACE  3
 AUTOP60  INCAP  IMFRUN,QU6000
 CLOSE$   INCAP  IMFRUN,QU6000
 EXEC$    INCAP  IMFRUN,QU6000
 FROMERR  INCAP  USINGEX,QU6000 
 USINGEX  INCAP  USINGEX,QU6000 
ENTLIST   PASSLOC            BUILD (60-0) ENTRY POINTS PASSLOC LIST 
          SPACE  3
          PASS   CURLENG,X   REQUIRED BY CAPSULE *DIAGS*
          PASS   CURWORD,X   REQUIRED BY CAPSULE *DIAGS*
          PASS   GET,X       REQUIRED BY CAPSULE *USINGEX*
          PASS   IMFDBM,X    REQUIRED BY CAPSULE *USINGEX*
          PASS   IMF$GRP,X   REQUIRED BY CAPSULE *IMFRUN* 
          PASS   NEWDATA,X   REQUIRED BY CAPSULE *USINGEX*
          PASS   NEXLENG,X   REQUIRED BY CAPSULE *DIAGS*
          PASS   NEXTON,X    REQUIRED BY CAPSULE *USINGEX*
          PASS   NEXWORD,X   REQUIRED BY CAPSULE *DIAGS*
          PASS   ONALTER,X   REQUIRED BY CAPSULE *USINGEX*
          PASS   QUESF,X     REQUIRED BY CAPSULE *IMFRUN* 
          PASS   TIMES,X     REQUIRED BY CAPSULE *USINGEX*
EXTLIST   PASSLOC            BUILD (60-0) EXTERNAL PASSLOC LIST 
          SPACE  3
***       BITCOUN - COUNT 1-BITS IN A WORD
* 
*                THIS IS A FUNCTION WHOSE RETURN VALUE IS THE 
*         COUNT OF 1-BITS IN THE PARAMETER WORD.
* 
*         ENTRY  (X1) = ADDRESS OF PARAMETER WORD 
* 
*         EXIT   (X6) = COUNT OF 1-BITS IN PARAMETER WORD 
  
  
          ENTRY  BITCOUN     COUNTS 1-BITS IN A WORD
  
 BITCOUN  JP     *+1S17      ENTRY/EXIT 
          SA1    X1          (X1) = PARAMETER WORD
          CX6    X1          (X6) = COUNT OF 1-BITS IN PARAMETER WORD 
          EQ     BITCOUN
          SPACE  3
          END    QU6000 
