ASMB,R,L,C
* 
*     NAME:   ISSW
*     SOURCE: 92068-18032 
*     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.       *
*  ***************************************************************
* 
* 
*     RETURNS WITH THE SETTING OF THE SWITCH REGISTER IN A
*      ROTATED TO PUT THE IMAGE OF THE SWITCH TO BE TESTED
*      INTO THE SIGN POSITION - A(15) 
* 
      NAM ISSW,7 92068-1X032 REV.2013 750701
      ENT ISSW
ISSW  NOP           FUNCTION SENSE SWITCH 
      CMA            CALL BY VALUE
      LIB 1          N = SWITCH # 
      RBR 
      INA,SZA 
      JMP *-2 
      LDA 1 
      JMP ISSW,I
      END 
* 
* 
                            