*DECK DB$GOTO 
          IDENT  DB$GOTO
*#
* *   DB$GOTO                                    PAGE  1
* *   C O GIMBER                                 10/20/75 
* 
* DC  PURPOSE 
* 
*     UNCONDITIONAL JUMP TO ADDRESS PASSED AS PARAMETER.
*#
          ENTRY  DB$GOTO
DB$GOTO   EQ   *+1S17 
          SA1    X1          (X1) = ADDRESS 
          SB7    X1 
          JP   B7 
          END 
