ASMB,L,R        ** CNUMO ** 
      HED CNUMO...ROUTINE TO CONVERT BINARY TO ASC
*     NAME:   MCNMO 
*     SOURCE: 92064-18221 
*     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 MCNMO,6  92064-16081  REV.1709  741120
      SPC 2 
* 
*     ROUTINE TO CONVERT BINARY TO OCTAL. USED IN 
*     RTEII 
*     CALLING SEQUENCE
*     JSB CNUMO 
*     DEF *+3 
*     DEF BINARY # TO BE CONVERTED
*     DEF BUFFER
*     . 
*     . 
*BUF  BSS 3 
* 
      SPC 2 
* 
*     DEFINE ENTRY POINT
* 
      ENT CNUMO 
      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
CNUMO NOP           ENTRY POINT INTO ROUTINE
      JSB $LIBR     TURN OFF THE "LIGHT"
      NOP 
      JSB .ENTP     GO GET PRAMS
      DEF BINA
      CLE           SET FOR BINARY TO OCTAL CONVERSION
      LDA BINA,I    GET NUMBER
      JSB $CVT3     GO CONVERT IT 
      STA FROM      SAVE ADDRESS FROM 
      JSB .DFER     AND MOVE IT 
      DEF BUFA,I
FROM  NOP 
      JSB $LIBX     AND RETURN
      DEF CNUMO 
      END 
                                                                                                                                              