ASMB,L
*     NAME  :  CNVSC-- SUBROUTINE CALLED BY DSPMP 
*     SOURCE:  91730-18004  1805
*     RELOC:   91730-16004  1805
*     PROGMR: G.W.J.
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  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 CNVSC,7 91730-16004 REV 1805 771219 
      ENT CNVSC,IGETX 
      EXT $OPSY 
      EXT .ENTR 
A     EQU 0 
B     EQU 1 
SC    NOP 
ID    NOP 
* 
* 
CNVSC NOP 
      JSB .ENTR 
      DEF SC
      LDA SC,I
      CLB 
      DIV D8
      ADB B60 
      STB SC
      CLB 
      SZA 
      DIV D8
      ADB B60 
      BLF,BLF 
      ADB SC
      STB ID,I
      JMP CNVSC,I 
* 
* 
*  IGETX--SPECIAL IGET ROUTINE FOR BOTH RTE-II/III AND IV.
* 
* 
IGETX NOP 
      DLD IGETX,I 
      SWP 
      LDA A,I 
      STB IGETX 
      LDB $OPSY 
      CPB DM9 
      JMP RTE4
      LDA A,I 
      JMP IGETX,I 
RTE4  XLA A,I 
      JMP IGETX,I 
D8    DEC 8 
B60   OCT 60
DM9   DEC -9
      END 
                                                                                                                                                                                                                            