ASMB,R,L,C
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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.        * 
*  **************************************************************** 
* 
*   NAME: PART OF MATH LIBRARY
*   SOURCE:  24998-18XXX  SEE NAM FOR LAST THREE DIGITS 
*   RELOC: PART OF 24998-12001
*   PGMR: BG & JTS
* 
      NAM .GOTO,7 24998-1X051 REV.2001 750701 
      ENT .GOTO 
.GOTO NOP 
      LDA .GOTO,I   GET MAXIMUM RETURN ADDRESS. 
      ISZ .GOTO 
      LDB .GOTO,I   GET SWITCH
      LDB 1,I        INDEX. 
      CMB,INB       TEST FOR LEQ 0
      CMB,SSB,INB   SKIP IF IT WAS OK 
      CLB,INB       SET TO 1 IF IT WASN'T 
      ADB .GOTO     GET DESTINATION ADDRESS 
      STB DEST
      CMB           TEST FOR GEQ MAX ADDRESS
      ADB 0 
      ADA MIN1      SET A TO LAST SWITCH ADDRESS
      SSB,RSS       IF B IS POSITIVE OR 0,
      LDA DEST       USE DEST 
      LDA 0,I       NOW GET ADDRESS OF LABEL
      JMP 0,I       PERFORM JUMP
DEST  REP 1 
      NOP 
MIN1  DEC -1
      END 
* 
* 
                                                                                                                                                                                                                                          