ASMB,L,R        ** CNUMO ** 
      HED CNUMO...ROUTINE TO CONVERT BINARY TO ASC
*     NAME:   CNUMO 
*     SOURCE: 92067-18285 
*     RELOC:  PART OF 92067-16268 AND 92067-16035 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  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 CNUMO,6 92067-1X285 REV.2013 770621 
      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 .ENTP,.DFER,$CVT3,.ZPRV 
      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 .ZPRV 
      DEF LIBX
      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 
LIBX  JMP CNUMO,I   AND RETURN
      DEF CNUMO 
      END 
                                                                                                                                                  