Retro1.org codex

*DECK     SSSCRR
          IDENT  SSSCRR 
          ENTRY  SSSCRR 
          TITLE  SSSCRR - CALL REQUESTED ROUTINE. 
*COMMENT  CALL REQUESTED ROUTINE. 
 SSSCRR   SPACE  4,10 
***       SSSCRR - CALL REQUESTED ROUTINE.
* 
*         S. H. FISCHER.     81/07/31.
          SPACE  4,10 
***       SSSCRR IS A ROUTINE TO PERFORM A COMPUTED RETURN JUMP. IT 
*         IS USED WHEN THE ADDRESS OF THE ROUTINE HAS BEEN
*         KEPT IN A TABLE.
          SPACE  4,10 
***       SYMPL CALLING SEQUENCE. 
* 
*         SSSCRR(ADD, P1, P2, ...PN)
* 
*                ADD = ADDREDSS OF ROUTINE TO CALL. 
* 
*                P1-PN = PARAMETERS FOR ROUTINE.
* 
*         NOTE   ENTIRE PARAMETER LIST IS PASSED INCLUDING ADD. 
 CRR      SPACE  4,10 
 SSSCRR   EQ     *+1S17D
          SA3    X1          ADDRESS OF ROUTINE 
          SA2    SSSCRR 
          BX6    X2 
          SA6    X3          RETURN TO CALLER OF THIS ROUTINE 
          SB7    X3+1 
          RJ     CRR1        VOID STACK ON ALL CDC LOWER CYBER MACHINES 
 CRR1     DATA   0
          JP     B7 
 
          END