ASMB,R,L,C
*     NAME:   CLD.R 
*     SOURCE: 92070-18055 
*     RELOC:  92070-16055 
*     PGMR:   M.L.K.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
* 
      NAM CLD.R,7  92070-1X055  REV.1941  790709
* 
* 
*     THIS ROUTINE PROVIDES A CENTRAL CALLING POINT 
*     FOR D.RTR 
* 
      ENT CLD.R 
      ENT .P1,.P2,.P3,.P4,.P5,.P6,.P7,.P8,.P9 
      ENT .R1,.R2,.R3,.R4,.R5 
* 
      EXT D.RTR,GTOPN 
      SUP 
      SPC 3 
CLD.R NOP 
      JSB GTOPN     GET CURRENT OPEN FLAG 
      DEF *+1 
      STA .P0       STORE IN 1ST PARAMETER
      JSB D.RTR     NOW CALL
      DEF .P0       PASSED PARAMETERS 
      DEF .R1       RETURNED PARAMETERS 
      JMP CLD.R,I   RETURN
      SPC 3 
.P0   NOP 
.P1   NOP 
.P2   NOP 
.P3   NOP 
.P4   NOP 
.P5   NOP 
.P6   NOP 
      NOP 
      NOP 
.P7   NOP 
.P8   NOP 
.P9   NOP 
* 
.R1   NOP 
.R2   NOP 
.R3   NOP 
.R4   NOP 
.R5   NOP 
* 
END   EQU * 
      END 
                                                                                                                                                                                                                  