ASMB,R,L,C
      HED "ISSR"  SET THE SWITCH REGISTER ROUTINE 
* 
*     NAME:   ISSR
*     SOURCE: 92068-18019 
*     RELOC:  PART OF 92067-16268 AND 92067-16035 
*     PGMR:   R.A.G.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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 ISSR,7 92068-1X019 REV.2013 750701
      ENT ISSR
      SPC 1 
* 
*  CALLING SEQUENCE:
*     CALL ISSR(IVAL) 
*     JSB ISSR
*     DEF *+2 
*     DEF IVAL
*    <RETURN> 
      SPC 2 
ISSR  NOP           ENTRY, .ENTR STYLE
      LDB ISSR,I    GET ADDRESS OF RETURN 
      ISZ ISSR      BUMP TO VALUE 
      LDA ISSR,I    GET DEF IVAL
      LDA A,I       GET IVAL
      OTA 1         OUTPUT TO S.R.
      JMP B,I       RETURN
A     EQU 0 
B     EQU 1 
      END 
* 
                                                                                                                                                                                  