ASMB,L,R       ** CNUMD **
      HED CNUMD...ROUTINE TO CONVERT BINARY TO ASC
*     NAME:   MCNMD 
*     SOURCE: 92064-18220 
*     RELOC:  92064-16081 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975.  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 MCNMD,6  92064-16081  REV.1709  741120
      SPC 2 
* 
*     ROUTINE TO CONVERT BINARY TO OCTAL. USED IN 
*     RTEII 
*     CALLING SEQUENCE
*     JSB CNUMD 
*     DEF *+3 
*     DEF BINARY # TO BE CONVERTED
*     DEF BUFFER
*     . 
*     . 
*BUF  BSS 3 
* 
      SPC 2 
* 
*     DEFINE ENTRY POINT
* 
      ENT CNUMD 
      SPC 2 
* 
*     DEFINE EXTERNAL 
* 
      EXT $LIBR,$LIBX,.ENTP,.DFER,$CVT3 
      SPC 4 
* 
*     HERE WE START BY DEFINING PRAM AREA 
* 
BINA  NOP           BINARY # ADDRESS WILL APPEAR HERE 
BUFA  NOP           BUFFER ADDRESS WILL APEAR HERE
CNUMD NOP           ENTRY POINT INTO ROUTINE
      JSB $LIBR     TURN OFF THE "LIGHT"
      NOP 
      JSB .ENTP     GO GET PRAMS
      DEF BINA
      CCE           SET FOR BINARY TO DEC. CONVERSION 
      LDA BINA,I    GET NUMBER
      JSB $CVT3     GO CONVERT IT 
      STA FROM      SAVE ADDRESS FROM 
      JSB .DFER     AND MOVE IT 
      DEF BUFA,I    WHERE TO PUT IT 
FROM  NOP 
      JSB $LIBX     AND RETURN
      DEF CNUMD 
      END 
                                                                                                                            